qtp实例网易免费邮登陆

Dim b
Browser("网易").Page("网易").Link("免费邮箱").Click
 
 Browser("网易163免费邮--中文邮箱第一品牌").Page("网易163免费邮--中文邮箱第一品牌").WebEdit("username").Set DataTable("user_name", dtGlobalSheet)
 Browser("网易163免费邮--中文邮箱第一品牌").Page("网易163免费邮--中文邮箱第一品牌").WebEdit("password").SetSecure DataTable("password", dtGlobalSheet)
 Browser("网易163免费邮--中文邮箱第一品牌").Page("网易163免费邮--中文邮箱第一品牌").WebButton("登录邮箱").Click

 If   Browser("网易163免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Exist(1) Then
 error_message=Browser("网易163免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").Static("请输入您的用户名 ?").GetROProperty("regexpwndtitle")
 b=DataTable("check_message", dtGlobalSheet)
                                   If   (b=error_message)  Then
                       Browser("网易163免费邮--中文邮箱第一品牌").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                       reporter.ReportEvent micdone ,"成功:","执行与预期一致！"
                                                Else  reporter.ReportEvent micFail ,"错误：","第"&i&"个用例实际执行结果与预期不一致！"
                            End If
  else
Browser("网易163免费邮--中文邮箱第一品牌").Page("网易电子邮箱 - 极速3.0正式版").Sync
Browser("网易163免费邮--中文邮箱第一品牌").Page("网易电子邮箱 - 极速3.0正式版").Check CheckPoint("网易电子邮箱 - 极速3.0正式版")
reporter.ReportEvent micDone,"成功:","可以正常登陆"
end if

Browser("网易163免费邮--中文邮箱第一品牌").Close
Browser("网易").Page("网易").Sync
Browser("网易").Close

主要实现了脚本和数据的分离，第一次试验，脚本会根据参数的函数运行三遍，每遍用不同的参数