inputkeys 问题!

bb64844866

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
上述脚本，如果一开始打开一个记事本然后输入一个字符(蓝色)就可以,如果在执行其后面的语句后,在打开一个记事本时(红色),就无法再输出任何字符,很奇怪,请有经验的人事指点下......谢谢!

geniar

既然再次打开了记事本的话，问题就出现在shell "notepad.exe",3　和  Inputkeys a中间了，
你可以加一句 Window SetContext, "Caption=无标题 - 记事本", ""，如果红色处的InputKeys a输出了内容那就说明shell后，焦点没在正确的位子

ilovejolly

调试一下

5am

焦点？？？ 应该是2楼说的问题吧