[原创] 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("FlightsTable").WinList("From").Activate"20146  FRA   12:48PM  DEN   01:33PM  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

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