flights qtp脚本

Services.StartTransaction "登录"

Dialog("Login").WinEdit("Agent Name:").Set "mercury"
Dialog("Login").WinEdit("Password:").SetSecure "4ca002b878a56d595c9a60f2e99111f888fe2b8c"
Dialog("Login").WinButton("OK").Click

Services.EndTransaction "登录"
Services.StartTransaction "订票"

Window("Flight Reservation").Activate
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111111"
a=Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
If Window("Flight Reservation").WinButton("FLIGHT").GetROProperty("enabled") = false then
        Reporter.ReportEvent micPass,"FLIGHT按钮有效性","日期和航班输入前FLIGHT按钮无效"
        else
        Reporter.ReportEvent micFail,"FLIGHT按钮有效性","日期和航班输入前FLIGHT按钮有效"
end if
Window("Flight Reservation").WinComboBox("Fly From:").Select  RandomNumber(0,a-1)//随机选择出发地
a1=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("selection")
print a1
b=Window("Flight Reservation").WinComboBox("Fly To:").GetItemsCount
Window("Flight Reservation").WinComboBox("Fly To:").Select RandomNumber(0,b-1)//随机选择目的地
If Window("Flight Reservation").WinButton("FLIGHT").GetROProperty("enabled")=TRUE then
        Reporter.ReportEvent micPass,"FLIGHT按钮有效性","日期和航班输入前FLIGHT按钮有效"
        else
        Reporter.ReportEvent micFail,"FLIGHT按钮有效性","日期和航班输入前FLIGHT按钮无效"
end if
b1=Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("selection")
print b1