UFT_reporter、pathfinder、crypt、randomnumber、systemutil、webutil

【编程控制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