|
6#
楼主 |
发表于 2005-8-12 09:16:48
|
只看该作者
代码如下:
Sub Main
Dim Result As Integer
'Initially Recorded: 2005-8-11 9:20:06
'Script Name: web
Window SetContext, "Caption=Program Manager", ""
ListView DblClick, "ObjectIndex=1;\;ItemText=Internet Explorer", "Coords=20,17"
Window SetContext, "Caption=about:blank - Microsoft Internet Explorer", ""
ComboEditBox Click, "ObjectIndex=3", "Coords=91,12"
InputKeys "http://192"
Window SetContext, "Class=Auto-Suggest Dropdown", "Activate=0"
ListView Click, "Text=Internet Explorer;\;ItemText=http://192.168.1.16:8080/WebCon", "Coords=111,7"
Window SetContext, "Caption=WebCon管理平台 - Microsoft Internet Explorer", ""
Browser NewPage,"HTMLTitle=WebCon管理平台",""
EditBox Click, "Name=username", "Coords=13,15"
InputKeys "admin{TAB}123456{TAB}5607{ENTER}"(从这以下就不能播放了)
Browser NewPage,"HTMLTitle=WebCon管理平台",""
EditBox Click, "Name=username", "Coords=6,14"
InputKeys "admin{TAB}{TAB}7895{ENTER}"(7895就是验证码,其中密码是空)
DelayFor (1000)
Browser NewPage,"HTMLTitle=WebCon管理平台",""
HTMLLink Click, "HTMLText=退出系统", ""
Window CloseWin, "", ""
End Sub |
|