[原创] QTP中 GetroProperty一个的…

QTP中 GetroProperty一个的简单用法，对初学者非常有用。

----------------------------------------------------------------------------

Dim a
Dialog("Login").WinEdit("Agent Name:").Set "Cheers_Lee"
Dialog("Login").WinEdit("Password:").SetSecure "480f3919934751d80255fe93e9a1acb7e649a63c"
a=Dialog("Login").WinEdit("Agent Name:").GetroProperty("text")
If     a="Cheers_Lee" Then
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").WinObject("Date of Flight:").Type "042608"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly To:").Select "Denver"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinList("From").Activate "20146   FRA   12:48 PM   DEN   01:33 PM   SR     $167.80"
Window("Flight Reservation").WinEdit("Name:").Set "lihuchang"
Window("Flight Reservation").WinRadioButton("Business").Set
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Close
else
wait 5
Dialog("Login").Close
End If

----------------------------------------------------------------------------