自动化测试思想之QTP登录脚本

本文为小孩原创，转载请注明出处：http://www.51testing.com/?117535

遇到过很多测试界的朋友,做了几年手工测试现在想转过来做自动化测试,
可是无从下手,比如一个登录的测试脚本，都搞得不知所措，老觉得自动化
跟手工的区别很大，其实非也，什么是自动化，自动化测试只不过是使用工具或脚本
代替我们对被测系统操作，然后通过工具的检查点或是通过我们自己编写的比较语句
来验证系统输出的实际结果和预期结果是不是一致得。
接下来我们就来看这个脚本，希望大家从脚本中能得到一些体会，如果有疑问可以给我留言

'***********************************************************************************
'                       脚本说明:登录测试脚本
'                       编 写 者:小孩
'                       编写时间:2008/09/03
'                       修 改 者:
'                       修改时间:
'                       修改内容:
'***********************************************************************************

Option explicit
on error resume next
Dimoie
Setōie=CreateObject("InternetExplorer.Application")      '创建IE 对象
oie.Visible=true                                          'IE 显示模式是显示的(False)
oie.Navigate"http://www.poco.cn"                         '打开www.poco.cn网站
Browser("POCO首页").Page("POCO首页").Sync
Browser("POCO首页").Page("POCO首页").Image("selector_icon").Click
IfDataTable("Accounts_Type",dtGlobalsheet)="用户名"Then'判断输入的数据是用户名还是POCOID
    Browser("POCO首页").Page("POCO首页").Link("用户名").Click
 else
    Browser("POCO首页").Page("POCO首页").Link("POCO号码").Click
End If
Browser("POCO首页").Page("POCO首页").WebEdit("UserName").SetDataTable("username",dtGlobalsheet) '输入用户名或POCOID
Browser("POCO首页").Page("POCO首页").WebEdit("PassWord").SetSecure DataTable("password",dtGlobalsheet) '输入密码
Browser("POCO首页").Page("POCO首页").Image("login_0418").Click 26,13 '点击登陆按钮
IfBrowser("POCO首页").Dialog("msgbox").Exist (3)Then'用3秒判断提示对话是否存在,也可以作为系统的一个标准,如果是异常登陆3秒种不出现提示对话框属于的BUG的话这个也可以覆盖到了这点
   DataTable("Actual_Result",dtGlobalsheet)=Browser("POCO首页").Dialog("msgbox").Static("info").GetROProperty("text") '获得提示对话框里面的内容
  IfDataTable("Expect_Result",dtGlobalsheet)=DataTable("Actual_Result",dtGlobalsheet)Then'判断预期结果和实际结果是否一致
      Reporter.ReportEvent micPass,"异常登记","预期结果"& DataTable("Expect_Result",dtGlobalsheet)_  
  &"实际结果"& DataTable("Actual_Result",dtGlobalsheet)                                                                                             '输出异常登录pass报告
  else
  Reporter.ReportEvent micFail,"异常登陆","预期结果"& DataTable("Expect_Result",dtGlobalsheet)_    
   &"实际结果"& DataTable("Actual_Result",dtGlobalsheet)                                                                                             '输出异常登录fail报告
 End If
 Browser("POCO首页").Dialog("msgbox").WinButton("确定").Click                                                                       '点击提示对话框的确定按钮
 oie.Quit                                                                                                                                                                                       '  退出IE
 Setōie=nothing                                                                                                                                                                      '释放资源 
 ExitTestIteration                                                                                                                                                                      '跳出本次运行
End If
 DataTable("Actual_Result",dtGlobalsheet)=Browser("POCO首页").Page("个人空间").Link("个人域名").GetROProperty("text")      '捕获实际结果
 If  DataTable("Expect_Result",dtGlobalsheet)=DataTable("Actual_Result",dtGlobalsheet)Then' 判断预期结果和实际结果是否一致
  Reporter.ReportEvent micPass,"正常登陆","预期结果"& DataTable("Expect_Result",dtGlobalsheet)_ 
   &"实际结果"&DataTable("Actual_Result",dtGlobalsheet)                                                                                          '输出正常登录pass报告
 else
  Reporter.ReportEvent micFail,"正常登陆","预期结果"& DataTable("Expect_Result",dtGlobalsheet)_   
  &"实际结果"& DataTable("Actual_Result",dtGlobalsheet)                                                                                            ' 输出异常登录FAIL报告
  oie.Quit                                                                                                                                                                               '退出IE
    Setōie=nothing                                                                                                                                                            '释放资源  
     ExitTestIteration                                                                                                                                                             '跳出本次运行
 End If