|
楼上说的手动也是一种解决方法。
如果一定要做的话,验证也简单,我的方法是判断跳转后的页面对象是否存在。
我写过一个飞机票,道理是一样的,你看能不能用到。
'*'''''*************************************************************************************
'''' Function Name: IsObjectExist
'''''' Description: Judge the object is existing
''''' Input Para: objectExist=> an object
''''
'''' Output Para: None
'''' Example: IsObjectExist ( objectExist )
'''' Auther: Hans Wang
'''' Create Date: 03/22/2008
'''' Modify History: None
'''' Releated Functions:
''''
''''**************************************************************************************
Function IsObjectExist ( objectExist, maxtime )
Dim t
t = 0
If objectExist.Exist(1) Then
fs.WriteLine ( "The object: " + " is exist!=====================")
IsObjectExist = true
else
While ( objectExist.Exist(1) = false )'''计数
''wait (1) '''' if you add this sentence, it should add one second for each cycle
t = t+1
'msgbox("OK")
If t = maxtime Then
IsObjectExist = False
fs.WriteLine ( "The object: " + " is not exist, so Exit this action.===")
Exit Function
End If
Wend
exit Function
End If
End Function
If IsObjectExist (Dialog("#32770"), 3 ) Then ''''这里就是你可以加入网页跳转后的可以找到的对象,最好是唯一的。
LoginAction = "SUCCESS"
ElseIf IsObjectExist ( Dialog("Login").Dialog("Flight Reservations"), 5 ) Then ‘’‘’这里是跳转不成功而爆出的错误,是我们可以预料的错误
LoginAction = cstr( Filght_Login_ErrorMessage ( Dialog("Login").Dialog("Flight Reservations") ) )
Dialog("Login").Dialog("Flight Reservations").Close
else
LoginAction = "FALSE1" ‘’‘’‘这个是我们预料不道的。可以加入截图的方法。
End If
msgbox( LoginAction )
你看看对你有帮助没有! |
|