|
Sub Main
Dim Result As Integer
'Initially Recorded: 2004-10-21 11:22:30
'Script Name: newtouch1
Window SetContext, "Caption=Newtouch ONE! - Microsoft Internet Explorer", ""
Browser SetFrame,"Type=HTMLFrame;HTMLId=left;\;Type=HTMLFrame;HTMLId=forumList",""
HTML Click, "Type=HTML;HTMLId=txt1_2_2", "Coords=38,2"
Browser SetFrame,"Type=HTMLFrame;HTMLId=Main_frame",""
Browser NewPage,"",""
PushButton Click, "Type=PushButton;HTMLText=新 增"
Browser NewPage,"",""
ComboBox Click, "Type=ComboBox;Name=chyear", ""
ComboListBox Click, "Type=ComboListBox;Name=chyear", "text=2004"
ComboBox Click, "Type=ComboBox;Name=chmonth", ""
ComboListBox Click, "Type=ComboListBox;Name=chmonth", "Text=1"
End Sub
这是一部分代码,下拉框选年份,月份,我想让它做循环,每次可以改变年份,月份,要怎么做呢? |
|