|
3#
楼主 |
发表于 2005-5-17 09:40:52
|
只看该作者
Sub Main
Dim Result As Integer
'Initially Recorded: 2005-5-16 17:34:47
'Script Name: simple8
Window SetContext, "Caption=Program Manager", ""
ListView DblClick, "Text=FolderView;\;ItemText=Internet Explorer", "Coords=38,22"
Window SetContext, "Caption=about:blank - Microsoft Internet Explorer", ""
ComboEditBox Click, "ObjectIndex=4", "Coords=122,5"
InputKeys "{BKSP}{BKSP}www.hao123.com"
(从这就不行了)Toolbar Click, "ObjectIndex=2;\;ItemID=1", "Coords=31,14"
Browser NewPage,"HTMLTitle=好123网址之家---实用网址,搜索大全,尽在www.hao123.com;Index=0",""
EditBox Click, "Name=word", "Coords=70,11"
InputKeys "123"
Window SetContext, "Caption=好123网址之家---实用网址,搜索大全,尽在www.hao123.com", ""
PushButton Click, "Caption=好123网址之家---实用网址,搜索大全,尽在www.hao123.com - Microsoft Internet Explorer;\;HTMLText=搜索"
End Sub |
|