QTP范例――系统登陆界面

'登陆系统
Browser("XX系统").Page("XXpage").WebEdit("WebEdit").Set DataTable("userName", dtGlobalSheet)'输入用户名
Browser("XX系统").Page("XXpage").WebEdit("WebEdit_2").Set DataTable("passWord", dtGlobalSheet) '输入密码

'输入验证码
Dim input
input = Inputbox("请输入验证码：")
Browser("XX系统").Page("XXpage").WebEdit("WebEdit_3").Set input

'点击登陆按钮
Browser("XX系统").Page("XXpage").WebElement("WebElement").Click

'用户登陆――测试用例脚本
Dim expected,username,password
expected=DataTable.RawValue("Expected",dtGlobalSheet)'获取期望值
username=DataTable.RawValue("userName",dtGlobalSheet)'获取userName的数据
password=DataTable.RawValue("passWord",dtGlobalSheet)'获取passWord的值

'如果给定的数据为空,则只检查提示语
If username<>"" and password<>"" Then
	If expected="pass" Then'如果期望值为ok,则说明登陆成功
		Reporter.ReportEvent micPass,"用户名："&(DataTable.RawValue("userName",dtGlobalSheet)&",密码："&DataTable.RawValue("passWord",dtGlobalSheet))," 正确用户名或密码，登录成功"
	elseif expected="fail" then '如果期望值为no,则继续判断登录处理
		Reporter.ReportEvent micDone,"用户名："&(DataTable.RawValue("userName",dtGlobalSheet)&",密码："&DataTable.RawValue("passWord",dtGlobalSheet))," 用户名或密码错误，登录失败"
		Browser("XX系统").Dialog("来自网页的消息").WinButton("确定").Click '点击提示框中的确定按钮
	else
		reporter.ReportEvent micDone, "else brach", "数据源Expected中有除pass或fail以外的其它值!"
	End If
else
	If expected="pass"  Then
		Reporter.ReportEvent micFail,"用户名："&(DataTable.RawValue("userName",dtGlobalSheet)&",密码："&DataTable.RawValue("passWord",dtGlobalSheet))," 数据为空，不能登陆成功"
	elseif expected="fail" then
		If username="" Then
			reporter.ReportEvent micDone, "empty userName", "用户名不能为空"
			Browser("XX系统").Dialog("来自网页的消息").WinButton("确定").Click '点击提示框中的确定按钮
		else
			reporter.ReportEvent micDone, "empty password", "密码不能为空"
			Browser("XX系统").Dialog("来自网页的消息").WinButton("确定").Click '点击提示框中的确定按钮
		End If
	else
		reporter.ReportEvent micDone, "else brach", "数据源Expected中有除pass或fail以外的其它值!"
	End If
End If

'关闭窗口
Browser("XX系统").Page("XXpage").Sync
Browser("XX系统").CloseAllTabs