|
Sub Main
Dim Result As Integer
StartBrowser "http://10.120.20.1/frame/", "WindowTag=WEBBrowser"
Window SetContext, "WindowTag=WEBBrowser", ""
Window WMaximize, "", ""
Browser NewPage,"HTMLTitle=配电管理信息系统;Index=0",""
EditBox Click, "Name=tb_username", "Coords=35,10"
InputKeys "lu.sun"
'InputEncKeys "DAAAAFEAAAAEDrA/z9xPcEjNcg8="
HTMLImage Click, "Name=btn_login", "Coords=30,18"
Window SetContext, "Caption=配电MIS管理平台 - Microsoft Internet Explorer", "" Browser NewPage,"HTMLTitle=配电MIS管理平台;Index=0",""
HTML Click, "Type=HTMLTableCell;HTMLId=menuBar41000000", "Coords=40,10"
Browser SetFrame,"Type=HTMLFrame;HTMLId=subframe41000000",""
Browser NewPage,"",""
HTML Click, "Type=HTMLTableCell;HTMLId=menuBar41100000", "Coords=36,8"
Browser SetFrame,"Type=HTMLFrame;HTMLId=pdmismain",""
Browser NewPage,"HTMLTitle=EquipFiles_Work_Browse;Index=0",""
HTMLImage Click, "Type=HTMLImage;Name=ImageButton1", "Coords=34,8"
Browser NewPage,"HTMLTitle=EquipFiles_Work_AddWork;Index=0",""
ComboBox Click, "Type=ComboBox;Name=ddlCompany", ""
End Sub
高手看下,如上代码,执行到红色部分后,回放就停住了!类似的项目都有问题,即那种屏蔽了IE工具栏标题栏的系统,使用普通模式录制后回放都有问题,不动! |
|