DeviceReplay的某些方法运行时出现General run error的问题解决

 

     Mercury.DeviceReplay对象用于模拟鼠标单击和移动，还有键盘输入等操作。使用方式一般是：                          

            Set deviceReplay = CreateObject( "Mercury.DeviceReplay" )

            deviceReplay.MouseDown 100,200,1      

   但是在QTP中实际使用的时候，当执行一段时间之后，经常会出现“general run error”的错误，最后发现问题实际上是测试中像素的移动通过参数来获取，但是某些时候传入的像素位置已经超出了屏幕大小，因而出错。

         解决方法是在操作之前先对移动的位置进行判断，这个可以通过与屏幕的高度和宽度进行比对来判断，获取屏幕宽度和高度的代码是：

function ScreenPixel() Dim strComputer strComputer= "." Set objWMIService = GetObject("winmgmts:"& "{impersonationLevel=impersonate}!//"& strComputer & "/root/cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor") For Each objItem In colItems screenWidth=objItem.ScreenWidth screenHeight= objItem.ScreenHeight Next End function