多测师是一家拥有先进的教学理念,强大的师资团队,业内好评甚多的接口自动化测试培训机构!

17727591462

联系电话

您现在所在位置:接口自动化测试培训 > 新闻资讯

QTP模拟鼠标和键盘事件整理-自动化测试

更新时间:2022-05-30 09:12:05 作者:多测师 浏览:106

  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 使用mercury.devicereplay

  Set devReplay = CreateObject("mercury.devicereplay")

  devReplay.MouseClick absx+4,absy+4,2

  1.4 使用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

QTP模拟鼠标和键盘事件整理-自动化测试

  2、键盘事件

  2.1 SendKeys

  最常用的模拟键盘操作的事件就是SendKeys了,具体说明一样参考QTP的帮助。

  需要说明的是QTP帮助中的例子,需要做一些调整,QTP中执行不需要显示指定Wscrīpt执行shell命令,否则会报错。正确的例子如下:

  Set WshShell = CreateObject("Wscrīpt.Shell")

  WshShell.sendKeys "{DOWN}"

  2.2 Mercury.DeviceReplay

  Set devReplay = CreateObject("mercury.devicereplay")

  devReplay.SendString("a")

  2.3 使用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的使用要方便一点,但是稳定性不如后者,

  Function RtClick( Obj )

  absx = Obj.GetROProperty("abs_x")

  absy = Obj.GetROProperty("abs_y")

  Set devReplay = CreateObject("mercury.devicereplay")

  devReplay.MouseClick absx+4,absy+4,2

  set devReplay = nothing

  End Function

  以上内容为大家介绍了自动化测试中的QTP模拟鼠标和键盘事件整理,本文由多测师亲自撰写,希望对大家有所帮助。了解更多自动化测试相关知识:https://www.aichudan.com/xwzx/

联系电话

17727591462

返回顶部