QTP模拟鼠标和键盘事件整理
整理了一下曾经用到的方法，大家看看还有没有补充的。1 鼠标事件
1.1 使用自带的Click方法
看QTP的帮助，每个对象都有自带的Click方法，通过其中第三个参数指定具体的鼠标事件
例如： Browser("New Page").page("New Page").WebElement("html tag:=Form").Click
0,0,micRightBtn
注意Click方法的前两个参数是相对坐标，即相对于对象控件左上角的坐标。
然而执行脚本时常常发现右键功能无法回放。这需要通过设置回放级别解决。例如：
Setting.WebPackage("ReplayType") = 2
Browser("New Page").page("New Page").WebElement("html tag:=Form").Click
0,0,micRightBtn
Setting.WebPackage("ReplayType") = 1
1.2 使用自带的FireEvent方法
具体使用参考QTP的帮助吧，需要提醒一下，右键菜单的弹出对应的是"oncontextmenu"事件，这个帮助里没有提到，当然依赖于开发的代码实现。
1.3 使用Windows底层的mouse_event
如果上面的方法仍然不管用，就要采用更底层的方法了。不过这种方式不推荐，因为mouse_event识别的是绝对坐标，你还需要在调用mouse_event前获取对象的绝对坐标。需要说明的是，如果没有使用MOUSEEVENTF_ABSOLUTE，函数默认的是相对于鼠标当前位置的点，用0，0表示，会被认为是当前鼠标所在的点。
Extern.Declare micVoid, "mouse_event", "user32.dll", "mouse_event", micByte,micByte,micDWord,micULong
Extern.mouse_event MOUSEEVENTF_RIGHTDOWN,0,0,0
2 键盘事件
2.1 SendKeys
最常用的模拟键盘操作的事件就是SendKeys了，具体说明一样参考QTP的帮助。
需要说明的是QTP帮助中的例子，需要做一些调整，QTP中执行不需要显示指定Wscrīpt执行shell命令，否则会报错。正确的例子如下：
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{DOWN}"
2.2 使用Windows底层的keybd_event
Extern.Declare micVoid, "keybd_event", "user32.dll", "keybd_event", micByte,micByte,micDWord,micULong
Extern.keybd_event 42,0,0,0
注意一下这里的第一个参数是10进制的。
SendKeys的使用要方便一点，但是稳定性不如后者
http://www.51testing.com/?233320
[ 本帖最后由 asoqa 于 2008-12-18 16:23 编辑 ] 漏了一个，补充一下：
Set devReplay = CreateObject("mercury.devicereplay")
devReplay.MouseClick absx+4,absy+4,2
同样的用mercury.devicereplay也可以模拟键盘操作。
关于这个对象的使用，下面这篇文章介绍的不错：http://www.51testing.com/?161787/action_viewspace_itemid_84200.html 非常全面，收藏了。很奇怪，这样的文章没有人顶，唉！ 收藏了，顶！ 收藏
ding 请问“devReplay.MouseClick absx+4,absy+4,2”中的2是代表什么啊，是点击鼠标的方式吗 识别对象，首先通过Tools－Object Identification－Standard Windows中的四个属性：
1.Mandatory properties
2.Assistant properties
3.Smart Identification
4.Ordinal Identifier－Index
如果以上都搞不定，才用LZ的建议，毕竟Built－in的功能要稳定一点。 好东西学习了 因为当文本框的内容输入完成之后会把页面上的数据都走后台刷出来，现在用qtp的set好像页面上和sendkey ""都不刷了，我们是以键盘弹起的事件来刷数据的，请问要怎样操作？ 顶起来，比较急，那位大虾帮忙 学习了。 不错！学习了 不错！学习了 学习了！
页:
[1]
