FLY

filePath="c:\aa\data.xls"     
Dim user,pwd
Datatable.ImportSheet filePath,"sheet3","Global"      
rcount=DataTable.GetSheet(1).GetRowCount           
'On error resume next
For i=0 to rcount               
datatable.SetCurrentRow(i+1)
'   user=DataTable.GetSheet(1).getparameter("username").value
  user=datatable("username","Global")
  pwd=datatable("password","Global")
'   pwd=DataTable.GetSheet(1).getparameter("password").value

 'msgbox user& pwd

Dialog("Login").WinEdit("Agent Name:").Set user
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").Set pwd
Dialog("Login").WinButton("OK").Click
If Dialog("Login").Dialog("Flight Reservations").Exist(1) Then
'    error_message=Dialog("Login").Dialog("Flight Reservations").Static("Please enter password").GetVisibleText(top)
error_message=Dialog("Login").Dialog("Flight Reservations").Static("Please enter password").GetROProperty("text")
   If error_message="Please enter password" Then
        Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
'        Dialog("Login").Close  
   Dialog("Login").WinEdit("Password:").Set "mercury"
   Dialog("Login").WinButton("OK").Click
   Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
 end if
 
   If error_message="Incorrect password. Please try again" Then
        Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
        Dialog("Login").Close  
'   Dialog("Login").WinEdit("Password:").Set "mercury"
 end if
else
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
End If
systemutil.Run "D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"
Next