'Open Application
app()
Function app()
SystemUtil.Run "flight4a.exe","","C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","Open"
End Function
'import Data's from Excel Sheet to QTP Global Sheet
Datatable.Import"D:\Velmurugan\Learning\Data\Login.xls"
a=Datatable.GetRowCount
msgbox a
login()
'Open Login window
Function login()
For i=1 to a
Datatable.SetCurrentRow(i)
Dialog("Login").WinEdit("Agent Name:").Set datatable.Value("agentname")
Dialog("Login").WinEdit("Password:").SetSecure datatable.Value("password")
Dialog("Login").WinButton("OK").Click
If Window("Flight Reservation").Exist Then
'Status to Report
Reporter.ReportEvent micPass, "Login","Passed"
Window("Flight Reservation").Close
Else
Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click
'Status to Report
Reporter.ReportEvent micFail,"Login","Faild"
End If
If Not Dialog("Login").Exist(5) Then
Call app()
End If
Next
End Function
--------------------------*-------------------------*-----------------------------------*----------------
Data’s
Ex-