超级无敌的问题

wshyzhywx 发表于 2008-9-25 20:32:11

我在公司的机器和家里的机器都是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:28

把你在家里写的脚本发出来嘛，保不准是你家里机器编译环境有问题，跟一个外接有什么关系呢

wshyzhywx 发表于 2008-9-26 09:26:17

回复 2# 的帖子

这段脚本和家里的是一样的我现在在公司跑起来一点问题都没哦

xiaoan_2131 发表于 2008-9-26 10:06:12

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

wshyzhywx 发表于 2008-9-27 09:14:00

回复 2# 的帖子

我重装了系统用其他的编辑工具试了下Sendkey都是可以正常使用的就是在QTP里不能用

tiangou99073 发表于 2008-9-27 12:04:57

你在家里用的是不是笔记本？

wshyzhywx 发表于 2008-9-27 22:00:01

回复 6# 的帖子

是的是笔记本--

页: [1]

51Testing软件测试论坛 's Archiver