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

发布: 2007-11-24 10:24 | 作者: 测试时代版主季风 | 来源: 测试时代论坛 | 查看: 407次 | 进入软件测试论坛讨论

这几天写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不仅仅是这个功能，只是作为一个引子，有时可以解决很多问题，希望大家多多研究，多多交流。