GetROProperty、WaitProperty

Dim eventTypeCount ,eventsTypeCount,sourcesCount,eventCtrlType,eventCtrlsType
Dim a , b, c, d,e,strevent, strevents,strsources,eventCtrl,eventCtrls

Dialog("tool").WinButton("新建").Click

sourcesCount=Dialog("tool").Dialog("newinfo").WinComboBox("信息来源").GetROProperty("items count")
eventTypeCount=Dialog("tool").Dialog("newinfo").WinComboBox("事件类型").GetROProperty("items count")
eventsTypeCount=Dialog("tool").Dialog("newinfo").WinComboBox("事件详细类型").GetROProperty("items count")
eventCtrlType=Dialog("tool").Dialog("newinfo").WinComboBox("交通管制").GetROProperty("items count")
eventCtrlsType=Dialog("tool").Dialog("newinfo").WinComboBox("管制详细类型").GetROProperty("items count")

'msgbox(sourcesCount)
'msgbox(eventTypeCount)
'msgbox(eventsTypeCount)
For a=0 to eventTypeCount-1
 For b=0 to eventsTypeCount-1
  For d=0 to eventCtrlType-1
   For e=0 to eventCtrlsType-1
Dialog("tool").Dialog("newinfo").WinButton("重置").Click
Dialog("tool").Dialog("newinfo").Move 653,122
Dialog("tool").Dialog("newinfo").WinComboBox("道路名称").Select "八达岭高速公路"
Dialog("tool").Dialog("newinfo").WinComboBox("起点位置").WaitProperty"items count",(16)
Dialog("tool").Dialog("newinfo").WinComboBox("起点位置").Select "健翔桥"
Dialog("tool").Dialog("newinfo").WinComboBox("终点位置").WaitProperty"items count",(16)
Dialog("tool").Dialog("newinfo").WinComboBox("终点位置").Select "上清桥"
Dialog("tool").Dialog("newinfo").WinComboBox("道路类型").Select "主路"

c=Randomnumber(0,sourcesCount-1) 
'msgbox(c)
Dialog("tool").Dialog("newinfo").WinComboBox("信息来源").WaitProperty"items count",(3)
strsources=Dialog("tool").Dialog("newinfo").WinComboBox("信息来源").GetItem(c)
'msgbox(strsources)
Dialog("tool").Dialog("newinfo").WinComboBox("信息来源").Select (strsources)

Select Case     strsources
 Case "网络"
   ' wait(20)
  Dialog("tool").Dialog("newinfo").WinEdit("来源地址").Set "http://www.xxxxx.com"    
 Case "FM"
   ' wait(20)
 Dialog("tool").Dialog("newinfo").WinEdit("来源地址").Set "36.7"      
    Case "其他"
 ' wait(20)
 Dialog("tool").Dialog("newinfo").WinEdit("来源地址").Set "其他来源"
End Select

Dialog("tool").Dialog("newinfo").WinComboBox("事件类型").WaitProperty"items count",(11)
strevent=Dialog("tool").Dialog("newinfo").WinComboBox("事件类型").GetItem(a)
Dialog("tool").Dialog("newinfo").WinComboBox("事件类型").Select(strevent)
Dialog("tool").Dialog("newinfo").WinComboBox("事件详细类型").WaitProperty"items count",(6)
strevents=Dialog("tool").Dialog("newinfo").WinComboBox("事件详细类型").GetItem(b)
Dialog("tool").Dialog("newinfo").WinComboBox("事件详细类型").Select (strevents)
Dialog("tool").Dialog("newinfo").WinComboBox("交通管制").WaitProperty"items count",(10)
seventcarl=Dialog("tool").Dialog("newinfo").WinComboBox("交通管制").GetItem(d)
Dialog("tool").Dialog("newinfo").WinComboBox("交通管制").Select (seventcarl)
Dialog("tool").Dialog("newinfo").WinComboBox("管制详细类型").WaitProperty"items count",(2)
seventcarls=Dialog("tool").Dialog("newinfo").WinComboBox("管制详细类型").GetItem(e)
Dialog("tool").Dialog("newinfo").WinComboBox("管制详细类型").Select (seventcarls)
'Dialog("tool").Dialog("newinfo").WinComboBox("交通管制").Select "通行限制"
'Dialog("tool").Dialog("newinfo").WinComboBox("管制详细类型").Select "禁止通行"
'Dialog("tool").Dialog("newinfo").WinComboBox("事件类型").Select DataTable("eventType", dtLocalSheet)
'Dialog("tool").Dialog("newinfo").WinComboBox("事件详细类型").Select DataTable("eventsType", dtLocalSheet)
'Dialog("tool").Dialog("newinfo").WinComboBox("交通管制").Select DataTable("eventCtrl", dtLocalSheet)
'Dialog("tool").Dialog("newinfo").WinComboBox("管制详细类型").Select DataTable("eventCtrlsType", dtLocalSheet)
Dialog("tool").Dialog("newinfo").Activate
Dialog("tool").Dialog("newinfo").WinCalendar("起始时间").SetDate "13-Mar-2012"
Dialog("tool").Dialog("newinfo").WinCalendar("SysDateTimePick32").SetTime "12:35:30"
Dialog("tool").Dialog("newinfo").WinEditor("(还能输入126字)_2").SetCaretPos 0,0
Dialog("tool").Dialog("newinfo").WinEditor("(还能输入126字)_2").Type (strevent+strevents+seventcarl+seventcarls)
Dialog("tool").Dialog("newinfo").WinButton("提交").Click
Dialog("tool").Dialog("newinfo").Dialog("TrafficMsgInput").WinButton("确定").Click
Dialog("tool").Dialog("newinfo").Activate
Dialog("tool").Dialog("newinfo").WinButton("重置").Click
             Next
        Next
   Next

Next
Dialog("tool").Dialog("newinfo").Close
Dialog("tool").Activate