|
大家好,公司最近让看QTP呢,给我留一个任务。但是我总是弄不出来,希望大家能帮忙,谢谢了。
我的步骤就是先录制了一个正确的登陆,
然后把用户名进行参数化
然后修改代码:
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set DataTable("my", dtGlobalSheet)
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure DataTable("we", dtGlobalSheet)
Dim CheckUS
Dim CheckPW
CheckUs=Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set(DataTable("my", dtGlobalSheet) )
CheckPW=Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure(DataTable("we", dtGlobalSheet))
If ( CheckUS = "" )Then
If ( Browser("Welcome: Mercury Tours_2").Dialog("Microsoft Internet Explorer").Exist(1)) Then
Dim a
if ( a = Browser("Welcome: Mercury Tours_2").Dialog("Microsoft Internet Explorer").Static("请输入登录名!").check(checkpoint("请输入登录名!")) = true )then
msgbox "passed"
end if
end if
End if
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 39,11
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury").Sync
Browser("Welcome: Mercury Tours").Close
但是,出错了,出错如下图,希望大家能帮忙解决,谢谢。论坛里的帖子我也看了,但是我还是没有弄明白,希望高人指点,谢谢了 |
|