51Testing软件测试论坛

标题: 可以录制，但回放不了，怎么解决？求帮助？？ [打印本页]

作者: lxm18 时间: 2012-5-28 17:11
标题: 可以录制，但回放不了，怎么解决？求帮助？？
本帖最后由 lxm18 于 2012-5-28 17:27 编辑

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

作者: WANDY 时间: 2012-5-28 17:17
报的什么错误？
如果窗体固定，可以尝试用low-record模式录制。

作者: 黑羽祭 时间: 2012-5-29 15:20
回复 1# lxm18

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

可以尝试以下操作试试

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

复制代码

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

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

作者: 黑羽祭 时间: 2012-5-30 14:31
回复 5# lxm18
嗯，对的，我写的是我猜测用光标上下可以选择，可能你那控件不能用上下，但可以用快捷键“D”。
代码写法是一样的，等同于：

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

复制代码

作者: lxm18 时间: 2012-5-31 10:52
回复 6# 黑羽祭

thank you very much!通过！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)