QTP中對右鍵單擊的解決辦法

這幾天寫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("WScript.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


wsh不僅僅是這個功能，只是作為一個引子，有時可以解決很多問題，希望大家多多研究，多多交流。

原文轉自：http://www.anti-gravitydesign.com