QTP随机选择下拉列表的值

以下为获取下拉列表的随机值方法，可任选其一：

Dialog("Login").WinEdit("Agent Name:").Set "admin"

Dialog("Login").WinEdit("Password:").Type "MERCURY"

Dialog("Login").WinEdit("Password:").SetSecure "4b29c253db2a7749f082713f2b95c0f7f5583f35"

Dialog("Login").WinEdit("Password:").Type micReturn

Window("Flight Reservation").ActiveX("MaskEdBox").Type "111111"

方法一：

a1=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("items count")

Window("Flight Reservation").WinComboBox("Fly From:").Select Randomnumber(0,a1-1)

 

方法二：

a1=Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount

Window("Flight Reservation").WinComboBox("Fly From:").Select Randomnumber(0,a1-1)

 

方法三：

a1=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("items count")

Dim a1,a2,a3

Function getlist(i)

       Randomize

       getlist=Randomnumber(0,i)

 End Function

a2= getlist(a1-1)

a3=Window("Flight Reservation").WinComboBox("Fly From:").GetItem(a2+1)

Window("Flight Reservation").WinComboBox("Fly From:").Select a3

 

方法四：

Dim a1,a2

Function getlist(i)

       Randomize

       getlist=Randomnumber(0,i)

 End Function

a1=Window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("items count")

a2= getlist(a1-1)

Window("Flight Reservation").WinComboBox("Fly From:").Select a2

 

b1=Window("Flight Reservation").WinComboBox("Fly To:").GetROProperty("items count")

Window("Flight Reservation").WinComboBox("Fly To:").Select Randomnumber(0,b1-1)

Window("Flight Reservation").WinButton("FLIGHT").Click

c1=Window("Flight Reservation").Dialog("Flights Table").WinList("From").GetItemsCount

Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select Randomnumber(0,c1-1)

Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click

Window("Flight Reservation").WinEdit("Name:").Set "llyy"

Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1

Window("Flight Reservation").WinEdit("Tickets:").Set "2"

Window("Flight Reservation").WinRadioButton("Business").Set

Window("Flight Reservation").WinButton("Insert Order").Click

Window("Flight Reservation").Close