51Testing软件测试论坛

标题: inputkeys 问题! [打印本页]

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

作者: ilovejolly 时间: 2008-3-28 10:17
调试一下

作者: 5am 时间: 2008-4-1 17:19
焦点？？？应该是2楼说的问题吧

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)