|
Sub Main
Dim Result As Integer
a="hp"
shell "notepad.exe",3
Inputkeys a
Window SetContext, "Caption=login - Microsoft Internet Explorer", ""
Browser NewPage,"HTMLTitle=login;Index=0",""
EditBox Click, "Name=loginname", "Coords=40,12"
InputKeys a
EditBox Click, "Name=password", "Coords=30,6"
InputEncKeys "BQAAABUAAABUXeJKtA=="
HTMLImage Click, "Name=login_r2_c4", "Coords=26,13"
delayfor(3000)
Result = WindowVP (Exists, "Caption=login - Microsoft Internet Explorer", "VP=Window Existence;Status=MAXIMIZED")
if result =1 then
shell "notepad.exe",3
Inputkeys a
end if
End Sub
上述脚本,如果一开始打开一个记事本然后输入一个字符(蓝色)就可以,如果在执行其后面的语句后,在打开一个记事本时(红色),就无法再输出任何字符,很奇怪,请有经验的人事指点下......谢谢! |
|