TA的每日心情 | 开心 2015-5-13 15:39 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
Sub Main
Dim Result As Integer
'Initially Recorded: 2006-5-16 14:07:35
'Script Name: XXX唯一性
Window SetContext, "Class=Shell_TrayWnd", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=2", ""
StartBrowser "http://10.1.254.50", "WindowTag=WEBBrowser"
Window SetContext, "WindowTag=WEBBrowser", ""
Browser NewPage,"HTMLTitle=XXX系统登录页面",""
HTMLImage Left_Drag, "Index=2", "Coords=553,40,557,100"
EditBox Click, "Name=opeCode", "Coords=27,10"
这里应该有输入:输入用户名,但是录制时不会自动记录在GUI脚本里。我在这里添加:InputKeys "111111"就可以了。但是不知道为什么会有这种情况发生呢?是不是录制设置里可以解决这个问题。 EditBox Click, "Name=opePwd", "Coords=32,10"
InputKeys "111111"
HTMLImage Click, "Index=6", "Coords=42,16"
Browser SetFrame,"Type=HTMLFrame;HTMLId=left",""
Browser NewPage,"HTMLTitle=XXX上报系统",""
HTMLLink Click, "Type=HTMLLink;HTMLText=XX管理;VisualText=XX管理", ""
HTMLLink Click, "Type=HTMLLink;HTMLText=增加XX;VisualText=增加XX", ""
Browser SetFrame,"Type=HTMLFrame;HTMLId=main",""
Browser NewPage,"HTMLTitle=addorg",""
EditBox Click, "Type=EditBox;Name=JGMC", "Coords=42,6"
InputKeys "XX"
HTMLDocument Left_Drag, "Type=HTMLDocument;HTMLTitle=addorg", "Coords=339,46,339,77"
EditBox Click, "Type=EditBox;Name=BJBM", "Coords=44,12"
//同样的问题
HTMLDocument Left_Drag, "Type=HTMLDocument;HTMLTitle=addorg", "Coords=338,75,340,110"
//同样的问题
EditBox Click, "Type=EditBox;Name=JGDM", "Coords=27,11"
//同样的问题
EditBox Click, "Type=EditBox;Name=WGBM", "Coords=77,9"
//同样的问题
EditBox Click, "Type=EditBox;Name=FZR", "Coords=61,6"
//同样的问题
HTMLDocument Left_Drag, "Type=HTMLDocument;HTMLTitle=addorg", "Coords=340,116,340,154"
EditBox Click, "Type=EditBox;Name=LXDH", "Coords=30,8"
//同样的问题
PushButton Click, "Type=PushButton;Name=button;VisualText=增加"
Browser NewPage,"HTMLTitle=addorg_res",""
PushButton Click, "Type=PushButton;Name=Submit;VisualText=返回"
Window WMinimize, "", ""
Window SetContext, "Class=Shell_TrayWnd", ""
Toolbar Click, "ObjectIndex=2;\;ItemText=显示桌面", "Coords=12,7"
Toolbar Click, "ObjectIndex=2;\;ItemText=启动 Internet Explorer 浏览器", "Coords=13,11"
Window SetContext, "Caption=about:blank - Microsoft Internet Explorer", ""
ComboBox Click, "ObjectIndex=2", "Coords=427,9"
Window SetContext, "Class=Shell_TrayWnd", ""
TabControl DblClick, "ObjectIndex=1;\;ItemIndex=3", ""
End Sub |
|