|
Dim str,MyArray ,i
'For i =1To DataTable.GetSheet("Global").GetRowCount
'DataTable.GetCurrentRow
Dialog("Login").WinEdit("Agent Name:").Set DataTable("UserName", dtLocalSheet)
Dialog("Login").WinEdit("Password:").SetSecure DataTable("PassWord", dtLocalSheet)
Dialog("Login").WinButton("OK").Click
wait(1)
If(Dialog("Login").Dialog("Flight Reservations").Exist) Then
str = Dialog("Login").Dialog("Flight Reservations").GetVisibleText
MyArray = Split(str, vbcrlf , -1, 1)
str = MyArray(1)
DataTable.Value("result",dtGlobalSheet)=str
DataTable.GetSheet("Global").SetNextRow
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
DataTable.GetSheet("Action1").SetNextRow
else
' DataTable.Value("result",dtGlobalSheet)="成功登录!"
Window("Flight Reservation").Close
' Exit For
End If
'Next
为什么脚本在全部走完后又会重新再走一边? |
|