Sample QTP Scripts..

1. To Count and display Object Properties and Values

Dim Obj1,ObPrp

Set Obj1=Window ("Flight Reservation")
Set ObPrp=Obj1.GetToProperties
For i=0 To ObPrp.Count -1
msgbox i+1 & " - " & ObPrp(i).Name & " ....... “& ObPrp(i).Value
Next

2 . Login Verification with constant input values

InvokeApplication "C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set "Jampani"
Dialog("Login").WinEdit("Password:").Set "Mury"
Dialog("Login").WinButton("OK").Click

If Dialog("Login").Dialog("Flight Reservations").Exist Then
Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click
Dialog("Login").WinButton("Cancel").Click
Reporter.ReportEvent 1,"Login Verify","Invalid Values...Test Failed"
Else
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
Reporter.ReportEvent 0,"Login Verify","Valid Inputs...Test Passed"
End If

3. Login Verification with Runtime Input Values

Dim Flights,Agt,Pwd

Flights="C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"

For i=1 To 4
Agt=InputBox("Enter Agent Name Plzzz")
Pwd=InputBox("Enter PAssword ..Plzzz")
InvokeApplication Flights
Dialog("Login").WinEdit("Agent Name:").Set Agt
Dialog("Login").WinEdit("Password:").Set Pwd
Dialog("Login").WinButton("OK").Click

If Dialog("Login").Dialog("Flight Reservations").Exist Then
wait(3)
Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click
wait(3)
Dialog("Login").WinButton("Cancel").Click
Reporter.ReportEvent 1,"Login","Test Failed"
Else
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
Reporter.ReportEvent 0,"Login","Test Passed"

End If

Next

4. Login with Parameterization ... Data Table (Global Sheet) Should contain Values

SystemUtil.Run "C:\Program Files\Mercury Interactive\QuickTest

Professional\samples\flight\app\flight4a.exe","","C:\Program Files\Mercury Interactive\ QuickTest Professional\samples\flight\app\","open"

'InvokeApplication "C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe"

Dialog("Login").WinEdit("Agent Name:").Set DataTable("Agent_Name", dtGlobalSheet)
Dialog("Login").WinEdit("Password:").Set DataTable("Pword", dtGlobalSheet)
Dialog("Login").WinButton("OK").Click

If Dialog("Login").Dialog("Flight Reservations").Exist Then
Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click
Dialog("Login").WinButton("Cancel").Click
Reporter.ReportEvent 1,"Login Verify","Invalid Values...Test Failed"
DataTable.Value("Act_Res")="Fail"
Else
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
Reporter.ReportEvent 0,"Login Verify","Valid Inputs...Test Passed"
DataTable.Value("Act_Res")="Pass"
End If

er=DataTable("Exp_Res",dtGlobalSheet)
ar=DataTable("Act_Res",dtGlobalSheet)

If StrComp(er,ar)=0 Then
DataTable.Value("Remarks")="OK"
Else
DataTable.Value("Remarks")="Defect"
End If
DataTable.Export("E:\QTP730\LoginResults.xls")