想来在公司已经做了一年半自动化测试了,现在归纳一下
有时需要QTP模拟用户进行键盘输入或者鼠标操作,Mercury.DeviceReplay这个类很好的解决了这个问题
1)实现复选List或者Table时,需要配合按下Ctrl键
Set oDevice = CreateObject("Mercury.DeviceReplay")
...
oDevice.KeyDown 29 'Ctrl键码,按下
...
oDevice.KeyUp 29'Ctrl键码,复原
---------------------------------------------------------------------------------------
如下实现了Table项目的选中,右移动,最后确认的代码(ACTION)
Set lValueList = GetTestCaseStepData(Environment("ActionName"))
If lValueList.Count = 1 Then