可以录制，但回放不了，怎么解决？求帮助？？

lxm18

代码如下，操作：在”设备列表“上按鼠标右键弹出来”添加设备“的小框后，选中”添加设备“然后进行下面步骤，但回放时就停留在如下界面不动了，稍后报错，怎么解决？
Dialog("JAV客户端").WinTreeView("SysTreeView32").Select "设备列表", micRightBtn
Dialog("JAV客户端").Dialog("添加设备").WinButton("查找").Click

WANDY

报的什么错误？
如果窗体固定，可以尝试用low-record模式录制。

黑羽祭

回复 1# lxm18

只有这两句么，从第2句来看，是点击的“添加设备 ”弹出框中的查找。但是上一句一周点击【设备列表】的右键操作，没有打开【添加设备】弹出框的操作，自然就找不到【添加设备】弹出框中的【查找】按钮，所以这两句之间少了一句。
可能是QTP不能正常识别右键菜单导致。

可以尝试以下操作试试

1. Dim WshShell       
   
2. Set WshShell = CreateObject("WScript.Shell")
   
3. Dialog("JAV客户端").WinTreeView("SysTreeView32").Select "设备列表", micRightBtn
   
4. WshShell.SendKeys "{DOWN}"
   
5. WshShell.SendKeys "{ENTER}"
   
6. Dialog("JAV客户端").Dialog("添加设备").WinButton("查找").Click
   
7. Set WshShell = Nothing

复制代码

lxm18

非常感谢！的确是QTP不能识别那个鼠标右键的“添加设备”，后来用键盘快捷键的方式解决。中间加了一句代码如下：
Dialog("JAV客户端").WinTreeView("SysTreeView32").Select "设备列表", micRightBtn
createObject("wscript.shell").sendkeys "d"
Dialog("JAV客户端").Dialog("添加设备").WinButton("查找").Click

我运行你的代码不过还是没有通过，不知道和你的有什么区别，好像大致是一样的。

黑羽祭

回复 5# lxm18
嗯，对的，我写的是我猜测用光标上下可以选择，可能你那控件不能用上下，但可以用快捷键“D”。
代码写法是一样的，等同于：

1. Dim WshShell        
   
2. Set WshShell = CreateObject("WScript.Shell")
   
3. Dialog("JAV客户端").WinTreeView("SysTreeView32").Select "设备列表", micRightBtn
   
4. WshShell.SendKeys "D"
   
5. Dialog("JAV客户端").Dialog("添加设备").WinButton("查找").Click
   
6. Set WshShell = Nothing

复制代码

lxm18

回复 6# 黑羽祭

thank you very much!通过！