【编程控制reporter输出】
Dim oldfilter
oldfilter=reporter.Filter
msgbox oldfilter
reporter.Filter=rfEnableErrorsAndWarnings'报告中只看错误和警告,过滤掉其他的
Dialog("Login").WinEdit("Agent Name:").Set "mercury"
Dialog("Login").WinEdit("Password:").Set "mer"
Dialog("Login").WinButton("OK").Click
If dialog("Login").dialog("Flight Reservations").Exist(3) Then
actualmsg=dialog("Login").dialog("Flight Reservations").Static("loginmsg").GetROProperty("text")
expectmsg="password incorrect"
If actualmsg=expectmsg Then
reporter.ReportEvent micPass,"登录功能测试","提示信息与期望结果一致,测试通过"
else
reporter.ReportEvent micFail,"登录功能测试","提示信息与期望结果不一致,期望结果是:"&expectmsg&",实际结果是:"&actualmsg
End If
dialog("Login").dialog("Flight Reservations").WinButton("确定").Click
else
reporter.ReportEvent micWarning,"登录功能测试","未能出现提示信息"
End If
【加密crypt对象】
Dim passwprd
passwprd=crypt.Encrypt("123456")
msgbox passwprd
【pathfinder对象】
Dim casepath
casepath=pathfinder.Locate("testcase.txt")
If casepath="" Then
msgbox "测试用例不存在" '考虑异常情况
else
msgbox casepath 'C:\logintest\testcase\testcase.txt 先工具-选项-GUI文件夹-选择文件夹路径
End If
【randomnumber对象】
Dim num
num=randomnumber.Value(0,100)
msgbox num
num=randomnumber(0,100)'效果同上
msgbox num
【systemutil对象】
systemutil.Run "iexplore.exe","http://www.baidu.com" '打开ie浏览器百度页面
wait 5
systemutil.CloseProcessByName("iexplore.exe")'关闭浏览器
【webutil对象 删除cookie】
'保持应用环境的干净,用于初始化
Dim objwebutil
Set objwebutil=createobject("Mercury.GUI_Webutil")
objwebutil.DeleteCookies
Set objwebutil=nothing