超级无敌的问题

wshyzhywx

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

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

wshyzhywx

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

xiaoan_2131

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

wshyzhywx

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

tiangou99073

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

wshyzhywx

是的 是笔记本--