精华内容
下载资源
问答
  • VB自动填写网页表单

    热门讨论 2011-01-06 12:28:22
    一个用VB实现自动填写网页表单的小程序。可以用于实现自动登录之类的应用。
  • VB自动填写页面表格

    2012-07-01 11:33:44
    利用Excel的VB脚本自动填写网页表单例程及说明
  • vb.net2005 网页自动填写并提交

    千次阅读 2007-10-03 11:17:00
    if request("B1")="提交" thenresponse.write "姓名:"&request("Name")end if%> 请填写下面表单注册(*项为必添项) *姓名 *昵称 电子邮件 *密码 =============================...

    <%
    if request("B1")="提交" then
    response.write "姓名:"&request("Name")
    end if
    %>
    <form method="POST" action="">
      <p>请填写下面表单注册(*项为必添项)</p>
      <p>*姓名<input type="text" name="Name" size="20"></p>
      <p>*昵称<input type="text" name="NickName" size="20"></p>
      <p>电子邮件<input type="text" name="EMail" size="20"></p>
      <p>*密码<input type="text" name="Password" size="20"></p>
      <p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
    </form>

    ===========================================

     

    Dim NAME As Windows.Forms.HtmlElement = WebBrowser1.Document.GetElementById("Name")
            NAME.InnerText = "liuhao"
            ' HtmlElement(dom = WebBrowser1.Document.GetElementById("Domain"))
            'dom.InnerText = "template"
            ' HtmlElement(psw = WebBrowser1.Document.GetElementById("PassWord"))
            ' psw.InnerText = "123456"
            Dim btl As Windows.Forms.HtmlElement = WebBrowser1.Document.GetElementById("B1")
            Dim haha As Object = btl.InvokeMember("Click") 

    展开全文
  • VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单) 看这篇文件需要有VBA编程基础.我们在做WEB项目测试的时候,为了测试一个点在IE上反复的输入相同的内容,浪费了很多的时间.我们就可以思考这样一...

    VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单) 


    看这篇文件需要有VBA编程基础.

    我们在做WEB项目测试的时候,为了测试一个点在IE上反复的输入相同的内容,浪费了很多的时间.我们就可以思考这样一个问题,画面测试是否也可以像Junit测试一样只要点击一下鼠标什么都不用做就完成测试. 答案是可以的.

    我的设想是:用EXCEL VBA技术把想要设置的值设置到网页上并模拟点击某一个按钮或提交某一个表单,分成三个步骤完成自动测试.:

    第一步,测试数据准备和测试结果预想..把测试需要的数据和测试预想结果罗列在EXECL中

    第二步,数据库数据初期化.清空这些表的数据,并把上面的数据插入到相应的表中

    第三步,测试实施.用EXCEL VBA技术把想要设置的值设置到网页上并模拟点击某一个按钮或提交某一个表单

    第四步,测试结果比较.把预想数据和数据库中的实际数据相比较,相同的话就说明没有问题了.相同表示测试通过,不同则是程序有问题.

    上述四点中,如果懂得用VBA进行数据库编程的话,那么数据库数据初期化和测试结果比较应该都没有问题.问题在测试实施上.如何让网页上的控件自动赋值并自动提交表单呢.下面我就正对这一点技术实现的可能性进行说明.

    HTML源码:

      <!DOCTYPE   HTML   PUBLIC   "-//W3C//DTD   HTML   4.0   Transitional//EN">   
        
      
    <html>   
      
    <head>   
        
    <title>testPage</title>   
      
    </head>   
        
      
    <body>   
        
      
    <FORM   name=chh   method   =   "POST"   action   =   "login.asp">   
        
          
    <table   width="100%"   border="0"   cellspacing="0"   cellpadding="2">   
              
    <tr>     
                  
    <td   width="31%"   align="center">用户:</td>   
                  
    <td   width="69%"   align="left">     
                    
    <input   name="LoginName"   type="text"   id="LoginName"   size="12">     
                  
    </td>   
              
    </tr>   
              
    <tr>     
                  
    <td   width="31%"   align="center">密码:</td>   
                  
    <td   width="69%"   align="left">     
                    
    <input   name="LoginPassword"   type="password"   id="LoginPassword"   size="12">     
                  
    </td>   
              
    </tr>   
          
    </table>   
      
    <input   type   =   "submit"   id   =   "clickme"   value   =   "提交">   
      
    </FORM>   
      
    </body>   
      
    </html>

     

      很简单的页面,在上面有一个登录的Form,一个用户名输入框LoginName,一个密码输入框LoginPassword和一个提交按钮clickme  
       
         
       
      然后用IE打开这个页面,注意页面的title设置为testPage。  
       
         
       
      然后打开VBA,在工程中引用Microsoft   internet   controls:  

     

      Private   Sub   Command1_Click()   
              
    Dim   IEList   As   New   ShellWindows   
              
    Dim   browser   
              
    Dim   Doc   
                
              
    On   Error   Resume   Next   
                
              
    '遍历当前地浏览器窗口   
              For   Each   browser   In   IEList   
                      
    '找到需要地IE窗口   
                      If   browser.Document.Title   =   "testPage"   Then   
                              
    '获得浏览器地文档对象   
                              Set   Doc   =   browser.Document   
                                
                              
    '填写用户名字段   
                              Doc.body.All("LoginName").Value   =   "eddie"   
                              
    '填写密码字段   
                              Doc.body.All("LoginPassword").Value   =   "123456"   
                                
                              
    '提交   
                              Doc.body.All("clickme").Click   
                      
    End   If   
              
    Next   
      
    End   Sub   


    展开全文
  • 看这篇文件需要有 VBA 编程基础. 我们在做 WEB 项目测试的时候,为了测试一个点在IE上反复的输入... 我的设想是:用 EXCEL VBA 技术把想要设置的值设置到网页上并模拟点击某一个按钮或提交某一个表单,分成三个

    看这篇文件需要有 VBA 编程基础.

     

    我们在做 WEB 项目测试的时候,为了测试一个点在IE上反复的输入相同的内容,浪费了很多的时间.我们就可以思考这样一个问题,画面测试是否也可以像 Junit 测试一样只要点击一下鼠标什么都不用做就完成测试.答案是可以的.

     

    我的设想是: EXCEL VBA 技术把想要设置的值设置到网页上并模拟点击某一个按钮或提交某一个表单,分成三个步骤完成自动测试.:

     

    第一步,测试数据准备和测试结果预想..把测试需要的数据和测试预想结果罗列在 EXECL 

     

    第二步,数据库数据初期化.清空这些表的数据,并把上面的数据插入到相应的表中

     

    第三步,测试实施. EXCEL VBA 技术把想要设置的值设置到网页上并模拟点击某一个按钮或提交某一个表单

     

    第四步,测试结果比较.把预想数据和数据库中的实际数据相比较,相同的话就说明没有问题了.相同表示测试通过,不同则是程序有问题.

     

    上述四点中,如果懂得用 VBA 进行数据库编程的话,那么数据库数据初期化和测试结果比较应该都没有问题.问题在测试实施上.如何让网页上的控件自动赋值并自动提交表单呢.下面我就正对这一点技术实现的可能性进行说明.

     

    HTML 源码:

      <!DOCTYPE   HTML   PUBLIC   "-//W3C//DTD   HTML   4.0   Transitional//EN">   
      
    <html>   
      
    <head>   
        
    <title>testPage</title>   
      
    </head>   
      
    <body>   
      
    <FORM   name=chh   method   =   "POST"   action   =   "login.asp">   
          
    <table   width="100%"   border="0"   cellspacing="0"   cellpadding="2">   
              
    <tr>     
                  
    <td   width="31%"   align="center">用户:</td>   
                  
    <td   width="69%"   align="left">     
                    
    <input   name="LoginName"   type="text"   id="LoginName"   size="12">     
                  
    </td>   
              
    </tr>   
              
    <tr>     
                  
    <td   width="31%"   align="center">密码:</td>   
                  
    <td   width="69%"   align="left">     
                    
    <input   name="LoginPassword"   type="password"   id="LoginPassword"   size="12">     
                  
    </td>   
              
    </tr>   
          
    </table>   
      
    <input   type   =   "submit"   id   =   "clickme"   value   =   "提交">   
      
    </FORM>   
      
    </body>   
      
    </html>

     

    很简单的页面,在上面有一个登录的 Form,一个用户名输入框 LoginName,一个密码输入框LoginPassword 和一个提交按钮 clickme,然后用 IE 打开这个页面,注意页面的 title 设置为 testPage。然后打开 VBA,在工程中引用 Microsoft   internet   controls  

     

      Private   Sub   Command1_Click()   
              
    Dim   IEList   As   New   ShellWindows   
              
    Dim   browser   
              
    Dim   Doc   
              
    On   Error   Resume   Next   
              
    '遍历当前地浏览器窗口   
              For   Each   browser   In   IEList   
                      
    '找到需要地IE窗口   
                      If   browser.Document.Title   =   "testPage"   Then   
                              
    '获得浏览器地文档对象   
                              Set   Doc   =   browser.Document   
                              
    '填写用户名字段   
                              Doc.body.All("LoginName").Value   =   "eddie"   
                              
    '填写密码字段   
                              Doc.body.All("LoginPassword").Value   =   "123456"   
                              
    '提交   
                              Doc.body.All("clickme").Click   
                      
    End   If   
              
    Next   
      
    End   Sub   

     

     

    控件共享群    40662788 (满)
    控件共享群1   45939285  (满)
    控件共享群2   45939346
    控件共享群3   45939415

    展开全文
  • VB 实现表单自动提交

    千次阅读 2003-09-10 11:32:00
    【序】 以摩托罗拉的九月大奖赛为例,下面介绍用 VB 实现带校验码的网页表单自动提交。我们现看看摩托罗拉的投票页面:...

    【序】

        以摩托罗拉的九月大奖赛为例,下面介绍用 VB 实现带校验码的网页表单的自动提交。我们现看看摩托罗拉的投票页面:http://www.motorola.com.cn/news/925/photo.asp?id={525147E1-C4A7-41EE-9190-95800AC81E29}


        如果要对用户投票的话就必须先填写验证码!由于验证码是图片,而且是随即的,所以对自动提交数据增加了很大的难度。因此,如果要提交投票就必须先得到验证码!

        难点:(1)取得验证码图片并识别成相应数据;(2)提交数据表单。

        首先我们来剖析一下本页面的 HTML 源代码,代码如下:

            … …
    <table>
            <form name="form1" method="post" action="photo_vote.asp">
                    <input type="hidden" name="id" value="{525147E1-C4A7-41EE-9190-95800AC81E29}">
            <tr>
                    <td>请输入4位数字验证码: <input type="text" name="CheckCode" size=4><img src="count.asp?sksid=624BE861D1FF9641DE7F1D1FF967C1E711D1FF95CD5E9B1D1FF9|3812D0|1AF2D7">

    <input type="submit" name="submit" value="投 票"><input type="button" value="关 闭" onClick="javascript:window.close()"></td>
            </tr>
            </form>
    </table>

            … …


    为了保证代码的易读性,进行了相应的处理,并省略了部分无用的代码!不难看出的是:

        (1)表单的名称是:form1 ; 提交的页面是:Photo_Vote.asp ; 提交方式是:Post
        (2)表单提交的数据有:id 和 CheckCode 。其中 id 为隐藏域,内容是:{525147E1-C4A7-41EE-9190-95800AC81E29}
        (3)验证码的图片文件为:count.asp?sksid=624BE861D1FF9641DE7F1D1FF967C1E711D1FF95CD5E9B1D1FF9|3812D0|1AF2D7 它是由 Count.asp 随即动态生成,存在不确定性!
        (4)在网页的验证码的图片上按右键,保存图片时显示为:Count.XBM 即图片的格式为:XBM

        通过上面的分析,问题就可以一个一个解决了。

     

    【表单的提交】


        表单的提交有几种方式,常用的有两种:一是直接提交含表单提交数据的网址;二是修改原表单,然后提交新数据!
        对于第一种,我们在得到验证码后可以这样发送:http://www.motorola.com.cn/news/925/photo_vote.asp?id={525147E1-C4A7-41EE-9190-95800AC81E29}&CheckCode=6793 然而由于摩托罗拉的网站对 Cookies 进行了操作,这样做起来不是很好,而且也难成功,所以我们直能改用第二种方法,修改原有的表单。
        首先,利用 WebBrowers 控件取得网页源代码(具体方法,请参考:http://www.cndevx.com/tips/showdoc.asp?detail_id=1337)利用VB中的 Replace 函数将原表单网页的代码修改成:
            … …
    <table>
            <form name="form1" method="post" action="http://www.motorola.com.cn/news/925/photo_vote.asp";>
                    <input type="hidden" name="id" value="{525147E1-C4A7-41EE-9190-95800AC81E29}">
            <tr>
                    <td>请输入4位数字验证码: <input type="text" name="CheckCode" size=4 value=6739><img src="count.asp?sksid=624BE861D1FF9641DE7F1D1FF967C1E711D1FF95CD5E9B1D1FF9|3812D0|1AF2D7">

    <Script>
            form1.submit();
    </Script>

    <input type="button" value="关 闭" onClick="javascript:window.close()"></td>
            </tr>
            </form>
    </table>
            … …


        然后利用 Webbrowers.Document.write HTMLCodes 方式,讲替换的 HTML 代码重新写入 Webbrowers 控件里面, Webbrowers 控件将自动运行新的代码,即自动提交了数据!

        这样,整个提交过程就自动完成了,如果我们再加上相应的时间控制或者其他网站的话,就可以实现自动刷新和消息群发了!

     

    【XBM 图片文件】

        XBM(X BitMap)一种图形文件格式

        文件结构类似如下:
    #define counter_width 32                           //定义图片宽(象素)
    #define counter_height 10                           //定义图片高(象素)
    static unsigned char counter_bits[]={
    0x3c,0x3c,0xfe,0x3c,0x66,0x66,0xfe,0x66,0xc3,0xc3,0x06,0x60,0x66,0x66,0x06,0x60,0x3c,0x3c,0x3e,0x30,0x66,0x66,0x60,0x18,0xc3,0xc3,0xc0,0x0c,0xc3,0xc3,0xc3,0x06,0x66,0x66,0x66,0x06,0x3c,0x3c,0x3c,0x7e};                           //图像数据,采取16进制格式的,还原图像时需转换成二进制后数据反向,否则图片将是反的

        得到 XBM 图片,分离成相应的字符,然后与预先的图片文件比较,即可得出此图像代表的数字,即所谓的识别!

        演示程序:http://www.cndevx.com/club/uploadfile/2003941042070557.rar

        源 代 码:http://www.cndevx.com/club/uploadfile/20039410421872749.rar

     

    =========================
    附:使用VB获得一页的HTML代码

    加入WebBrowser、Timer、CommandButton控件各一个,然后使用以下代码:

    Private Sub Command1_Click()
        WebBrowser1.Navigate "http://www.motorola.com.cn/news/925/photo_vote.asp?id={525147E1-C4A7-41EE-9190-95800AC81E29}"
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Timer()
        Dim doc, objhtml As Object
        Dim i As Integer
        Dim strhtml As String
        
        If Not WebBrowser1.Busy Then
            Set doc = WebBrowser1.Document
            i = 0
            Set objhtml = doc.body.createtextrange()
            If Not IsNull(objhtml) Then
                Text1.Text = objhtml.htmltext
            End If
            Timer1.Enabled = False
        End If
    End Sub 

        这是网上流行的一种方法,但是从我使用来看,因为 WebBrowers 控件本身有 DocumentComplete 事件,也就是说并不需要使用 Timer 控件!

     

    展开全文
  • VB网页的输入控制

    2010-07-03 23:00:22
    功能说明:可以实现自动填写网页上的表单等网页操作
  • vb/vb.net开发精粹(14)

    2011-11-08 17:03:14
    如何用vb自动填写、选择下拉框选项并提交网页表单?? 如何恢复最大化 如何写外接程序启动路径? 标尺控件 各位大侠帮忙啊,纠结好几天了 如何规定TEXT里面只能输入数字? 悲剧的时钟 各位大侠帮帮忙 这样的...
  • 各位大侠看看我这程序 求解 小白向各位请教下VB过滤广告的问题 关于回调函数的问题 新手请教ocx文件创建的问题 如何用vb自动填写、选择下拉框选项并提交网页表单?? 如何恢复最大化 如何写外接程序启动...
  • vb 点击

    2012-09-19 23:10:00
    可用于网页自动登录、网页模拟点击,调用到公共控件WebBrowser,模拟表单填写及鼠标点击事件等,演示的代码部分如下: 判断是否网络正常 Private Function IsConnectedToInternet() As Boolean Dim Desc As ...
  • IE WebBrowser编程技巧

    2009-09-02 17:12:55
    如何填写空白(about:blank)页的表单 屏蔽WebBrowser的Javascript 创建运行时的IHTMLDocument而不在WebBrowser内 HOOK Webbrowser 替换WebBrowser的窗口过程 Microsoft.XMLHttp的属性和方法的简介及使用 ----------...
  • 看一下检验表单控件是不是填写了的检验控件先: <asp:textbox id="username" runat="server" cssclass="textbox"/> 宋体" font-size="9pt" text="请填写" runat="server"/> controltovalidate就是你想检验的控件的...
  • log4Net详解(共2讲)

    2011-08-16 22:03:25
    ExtJs简介: Extjs在经过两年的发展,Ext JS从2.0版开始,越来越受用户欢迎,今年,Extjs不但推出3.0版本,而且还推出了Ext Core,准备在...以上在流程定义的时候,需要根据单据的填写值进行判断,系统自动选择流程。
  • vc++ 应用源码包_1

    热门讨论 2012-09-15 14:22:12
    实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除...
  • vc++ 应用源码包_2

    热门讨论 2012-09-15 14:27:40
    实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除...
  • vc++ 应用源码包_6

    热门讨论 2012-09-15 14:59:46
    实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除...
  • vc++ 应用源码包_4

    热门讨论 2012-09-15 14:38:35
    实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除...
  • vc++ 应用源码包_5

    热门讨论 2012-09-15 14:45:16
    实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除...
  • vc++ 应用源码包_3

    热门讨论 2012-09-15 14:33:15
    实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除...
  • asp.net知识库

    2015-06-18 08:45:45
    实现C#和VB.net之间的相互转换 深入剖析ASP.NET组件设计]一书第三章关于ASP.NET运行原理讲述的补白 asp.net 运行机制初探(httpModule加载) 利用反射来查看对象中的私有变量 关于反射中创建类型实例的两种方法 ASP...
  • Tomcat是一个免费的开源的Serlvet容器,在Tomcat中,应用程序的部署很简单,你只需将你的WAR放到Tomcat的webapp目录下,Tomcat会自动检测到这个文件,并将其解压。你在浏览器中访问这个应用的Jsp时,通常第一次会很...

空空如也

空空如也

1 2
收藏数 24
精华内容 9
关键字:

vb自动填写网页表单