QTP脚本回放期间调用user32.dll的BlockInput锁定鼠标和键盘

   在自动化测试的过程中,为了排除一些干扰因素,可能需要在脚本中心的过程中锁定键盘和鼠标操作,可以通过调用windows user32.dll提供的BlockInput方法实现,函数(仅支持在QTP环境中执行)如下:

 

'************************************
'功能:锁定键盘和鼠标
'************************************
Sub Block_MouseAndKeyboard()
 '调用winows user32.dll的BlockInput方法
 Extern.Declare micLong, "BlockInput", "user32.dll", "BlockInput", micLong
 '锁定鼠标和键盘
 Extern.BlockInput 1
End Sub

'************************************
'功能:取消锁定键盘和鼠标
'************************************
Sub Unblock_MouseAndKeyboard()
 '调用winows user32.dll的BlockInput方法
 Extern.Declare micLong, "BlockInput", "user32.dll", "BlockInput", micLong
 '设置取消锁定键盘和鼠标
 Extern.BlockInput 0
End Sub

 

    可以将Block_MouseAndKeyboard()函数在脚本的第一行调用,实现脚本开始执行是锁定键盘和鼠标;将Unblock_MouseAndKeyboard()函数在脚本的最后一行调用,实现脚本执行完毕时取消锁定键盘和鼠标.
更多的user32.dll方法可参见http://www.webtropy.com/articles/art9-2.asp?lib=user32.dll