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