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

来源：互联网发布：假ip攻击软件编辑：程序博客网时间：2024/04/30 16:00

看这篇文件需要有 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