51Testing软件测试论坛

标题: 超级无敌的问题 [打印本页]

作者: wshyzhywx 时间: 2008-9-25 20:32
标题: 超级无敌的问题
我在公司的机器和家里的机器都是XP系统都是QTP9.0同样的破解版唯一不同的是家里的机器用了个外接的键盘
  这下出现了超级无敌的问题了  在公司的机器上用Sendkey模拟键盘操作一点问题都但是家里的机器每次都是报错:对象不支持此属性或方法: 'keys_a.sendkey'
请问哪位大大知道如何解决不?
  把代码贴出来下:
Dim counter

While counter<10
Window("登录").VirtualObject("object").Click 36,14
Window("Rooyee Messenger").WinObject("TfrmWaiting.UnicodeClass").Click 114,302
         If Window("Rooyee Messenger").Dialog("Rooyee Messenger").WinButton("确定").Exist Then
               Window("Rooyee Messenger").Dialog("Rooyee Messenger").WinButton("确定").Click
   Window("Rooyee Messenger").WinObject("TTntToolBar.UnicodeClass_2").Click 65,12
   Set key_a=createobject("wscript.shell")
                  key_a.sendkeys"{down}"
                  key_a.sendkeys"{enter}"
   else Window("Rooyee Messenger").WinObject("TTntToolBar.UnicodeClass").Click 89,12
            Set key_a=createobject("wscript.shell")
                  key_a.sendkeys"{down}"
                  key_a.sendkeys"{enter}"
      End If
counter=counter+1
Wend
刚重装了系统也是不行的还是同样的报错不知道怎么回事

[ 本帖最后由 wshyzhywx 于 2008-9-27 09:07 编辑 ]

作者: lyscser 时间: 2008-9-26 09:10
把你在家里写的脚本发出来嘛，保不准是你家里机器编译环境有问题，跟一个外接有什么关系呢

作者: wshyzhywx 时间: 2008-9-26 09:26
标题: 回复 2# 的帖子
这段脚本和家里的是一样的我现在在公司跑起来一点问题都没哦

作者: xiaoan_2131 时间: 2008-9-26 10:06
也是硬件借口有问题，我觉得这种情况解决只能重新装下系统，要不重新装下QTP，也许某个软件或插件引起的冲突
实在不行，换个键盘哦

作者: wshyzhywx 时间: 2008-9-27 09:14
标题: 回复 2# 的帖子
我重装了系统用其他的编辑工具试了下Sendkey都是可以正常使用的就是在QTP里不能用

作者: tiangou99073 时间: 2008-9-27 12:04
你在家里用的是不是笔记本？

作者: wshyzhywx 时间: 2008-9-27 22:00
标题: 回复 6# 的帖子
是的是笔记本--

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