很多时候，QTP对于模拟对象右击并选择某个弹出选项的操作识别率并不好。
个人总结了一些比较常见也比较有效的方法。
基本上QTP识别针对鼠标右击并选择的操作有三种方法：
针对任何语言都适用的
1、创建Wscript.Shell对象
2、创建Mercury.DeviceReplay对象
3、针对JAVA\NET\WEB适用的FIREEVENT方法
不管什么架构什么语言的程序也好，要录制鼠标右击对象并选择弹出选项的操作一般来说都是三个步骤：
1、录制激活对象的操作
2、录制鼠标右键点击的操作
3、录制选取弹出选项的操作
下面就三个步骤分别说明：
第一步：如果被激活对象的方法参数中有BUTTON定义的话，那就只需加上对应的BUTTON值直接录到弹出右键，然后再录第三步的操作，而不需再去录第2步的操作（具体那些方法的参数中有带BUTTON的，有时间我会列个表出来）
对象方法中没有button参数的话那当然只能老老实实的录制或者用description program（描述性编程，简称dp）的方法激活对象。然后录制第2步
第二步第三步：针对那些录不到鼠标右击操作的对象，可以采用Wscript.Shell,或者Mercury.DeviceReplay的方法来模拟。
例如作这样一个录制（鼠标右击开始菜单，选取属性）
使用Wscript.Shell的方法如何录制：
Window("Window").WinButton("开始").Click 0, 0, micRightBtn Dim Wsh,n n=3 '对应循环的次数 Set Wsh=CreateObject("Wscript.Shell") For i=1 to 3 wait 1 '等待一秒可以清楚地看到效果 Wsh.SendKeys "{UP}" '相当于鼠标向上移动三次到属性的位置 Next Wsh.SendKeys "{Enter}" '按下回车键选取属性 Set Wsh=nothing '释放Wsh变量 |
使用Mercury.DeviceReplay对象如何录制：
'使用Mercury.DeviceReplay对象录制必须先知道对象的绝对坐标，所以的先执行下面的脚本\或者使用objectspy去识别录制对象的绝对坐标 Window("Window").WinButton("开始").Click 0, 0, micRightBtn Set ctlr = DotNetFactory.CreateInstance("System.Windows.Forms.Control") For i = 1 To 1 step 1 Wait 2 Print "1. X=" & ctlr.MousePosition.X & "; Y=" & ctlr.MousePosition.Y Next '得出当前对象的坐标后就可以录制右键操作了 Dim DevRep set DevRep=CreateobJECT("MERCURY.DeviceReplay") wait 1 DevRep.PressNKeys "72",3 模拟连续按下Up的操作循环三次 DevRep.PressKey "28" 模拟按下enter的操作 |
