Mercury.DeviceReplay对象用于模拟鼠标单击和移动,还有键盘输入等操作。使用方式一般是:
Set deviceReplay = CreateObject( "Mercury.DeviceReplay" )
deviceReplay.MouseDown 100,200,1
但是在QTP中实际使用的时候,当执行一段时间之后,经常会出现“general run error”的错误,最后发现问题实际上是测试中像素的移动通过参数来获取,但是某些时候传入的像素位置已经超出了屏幕大小,因而出错。
解决方法是在操作之前先对移动的位置进行判断,这个可以通过与屏幕的高度和宽度进行比对来判断,获取屏幕宽度和高度的代码是: