这几天写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