|
5#
楼主 |
发表于 2006-11-20 13:12:03
|
只看该作者
非常感谢5am和ilovejolly!回我的帖子!
脚本不是low-level的,不记录鼠标。
是普通的GUI脚本。
回放的时候经常不好用
以下是一段代码
Sub Main
Dim Result As Integer
'Initially Recorded: 2006-11-20 13:13:11
'Script Name: check the data in osiris Home page
Window SetContext, "Class=Shell_TrayWnd", ""
Toolbar Click, "ObjectIndex=2;\;ItemText=Launch Internet Explorer Browser", "Coords=15,9"
Window SetContext, "Caption=about:blank - Microsoft Internet Explorer", ""
Toolbar Click, "ObjectIndex=3;\;ItemID=33136", "Coords=18,13"
Window SetContext, "Class=BaseBar", ""
Toolbar Click, "ObjectIndex=1;\;ItemText=Osiris - Login Page", "Coords=73,6"
Window SetContext, "Caption=Osiris - Login Page - Microsoft Internet Explorer", ""
Browser NewPage,"HTMLTitle=Osiris - Login Page",""
EditBox Click, "Name=gessouid", "Coords=48,7"
InputKeys "501263321"
PushButton Click, "HTMLText=Login"
Browser NewPage,"HTMLTitle=Home Page",""
Result = HTMLTableVP (CompareData, "HTMLId=results", "VP=Object Data;Wait=2,30")
Result = HTMLLinkVP (CompareProperties, "HTMLText=48192", "VP=Object Properties;Wait=2,30")
End Sub
[ 本帖最后由 lana.li 于 2006-11-20 13:42 编辑 ] |
|