bb64844866 发表于 2008-3-27 17:21:15

inputkeys 问题!

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 发表于 2008-3-27 18:16:55

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

ilovejolly 发表于 2008-3-28 10:17:52

调试一下

5am 发表于 2008-4-1 17:19:36

焦点？？？ 应该是2楼说的问题吧
页: [1]
查看完整版本: inputkeys 问题!