标题: 求解，这是什么原因!~~急弄了一下午都没弄出来 谢谢了 [打印本页] 作者: fkueangle 时间: 2011-8-9 18:38 标题: 求解，这是什么原因!~~急弄了一下午都没弄出来 谢谢了 我想对FLY FROM下拉列表中的每个值都进行一次选择，代码是
Dim i
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "sdfasd"
Dialog("Login").WinEdit("Password:").SetSecure "4e4107e1857a11995a162cd5cddca7ff2a6a1e07"
Dialog("Login").WinEdit("Password:").Type micReturn
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111111"
a1=window("Flight Reservation").WinComboBox("Fly From:").Getitemscount
For i=0 to a1-1
window("Flight Reservation").WinComboBox("Fly From:").Select Randomnumber(0,a1-1)
x=window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("selection")
print x
Next
打印出来的却是
Sydney
London
Sydney
Seattle
San Francisco
Portland
Seattle
Seattle
Los Angeles
Portland
求高手指点。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。作者: lyscser 时间: 2011-8-10 08:49
有毛问题么？作者: fkueangle 时间: 2011-8-10 09:28 回复 2#lyscser
和我想要的结果不是一样，结果中运行10词出现了几次相同的，没达到遍历的效果作者: lyscser 时间: 2011-8-10 09:58
For i=0 to a1-1
window("Flight Reservation").WinComboBox("Fly From:").Select Randomnumber(0,a1-1)
x=window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("selection")
print x
Next
莫非你要求随机数永不重复？作者: lyscser 时间: 2011-8-10 09:59
这样就行了
For i=0 to a1-1
window("Flight Reservation").WinComboBox("Fly From:").Select i
x=window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("selection")
print x
Next作者: fkueangle 时间: 2011-8-10 16:49 回复 5#lyscser
