QTP中对右键单击的解决办法

发布: 2010-1-11 12:20 | 作者: 网络转载 | 来源: 领测软件测试网 | 查看: 178次 | 进入软件测试论坛讨论

　　这几天写QTP脚本，发现QTP对右键单击的操作不能识别，经过查找资料总结，可以采用wsh的方式，实现右键选择的操作。wsh是通过模拟键盘，向激活窗口发送键值实现选择。

Window("A").WinListView("B").Click 150, 233, micRightBtn '右键单击出菜单
Window("A").WinObject("B").WinMenu("C").Select "新建(W);<Item 3>" '在弹出菜单中选择功能功能

上述代码在回放时回放不过去,改为

Window("A").WinListView("B").Click 150, 233, micRightBtn

Dim wshShell
Set wshShell = CreateObject("Wscrīpt.Shell")

           For i=1 to MoveNum
             wshShell.SendKeys "{DOWN}"   '模拟键盘操作
           Next
             wait 1
           wshShell.SendKeys "{ENTER}"     '模拟键盘操作

上述代码在弹出菜单后可以实现向下移动选项,并选择的功能.MoveNum是移动的次数

附: wsh键值表

        键                             参数
        退格键                     {BACKSPACE}、{BS}或{BKSP}
        BREAK                   {BREAK}
        CAPS LOCK           {CAPSLOCK}
        DEL或DELETE       {DELETE}或{DEL}
        下箭头                      {DOWN}
        END                         {END}
        ENTER                    {ENTER}或~
        ESC                          {ESC}
        HOME                    {HOME}
        INS或INSERT        {INSERT}或{INS}
        左箭头                    {LEFT}
        NUM LOCK          {NUMLOCK}
        PAGE DOWN       {PGDN}
        PAGE UP              {PGUP}
        PRINT SCREEN   {PRTSC}
        右箭头                   {RIGHT}
        SCROLL LOCK    {SCROLLLOCK}
        TAB                       {TAB}
        上箭头                    {UP}
        F1、F2、F3...{F1}、{F2}、{F3}Q