[VB][测试技术应用]VB与IE交互实现WEB画面的自动测试(用VB填写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