QTP录制不到鼠标与键盘的操作

走火

如图：
当点击“菜单”按钮后，在弹出的下拉框中无论点击任何选项，QTP都无法捕获到脚本，用键盘尝试也一样，附上脚本：

Dialog("#32770").WinEdit("用户密码:").SetSecure "489babc4089a60c53c543880"
Dialog("#32770").WinButton("登录").Click
Dialog("cs6(联机) - Messenger").WinCheckBox("菜单").Set "ON"
Dialog("cs6(联机) - Messenger").Dialog("视频调节向导").WinButton("下一步(N) >").Click
Dialog("cs6(联机) - Messenger").Dialog("视频调节向导").WinButton("下一步(N) >").Click
Dialog("cs6(联机) - Messenger").Dialog("视频调节向导").WinButton("下一步(N) >").Click
Dialog("cs6(联机) - Messenger").Dialog("视频调节向导").WinButton("完成").Click

用SPY查看了属性是:window，
高人帮解决一下

ylm77ojn

键盘自己写代码,网上很多资料,
鼠标的操作:tools->options->advanced->record setting 设置

走火

楼上可能误解我的意思了，我是说鼠标与键盘都录制不到“菜单”里面的选项，简单的说就是点击“菜单”后，在弹出的窗口中点击其中任何选项，QTP都捕获不到脚本~

[ 本帖最后由 走火 于 2008-8-8 13:03 编辑 ]

vprince

用fireevent吧

css860101

我的也Menu这个选项是开启verify menu initialization的。
我遇到同楼主一样的问题。

lingxin5013

Dim index
index=7
Set WshShell = CreateObject("WScript.Shell")
WshShell.sendkeys "^{esc}"
For i =1  to index
WshShell.sendKeys "{DOWN}"
Next
WshShell.sendKeys "{ENTER}"
Set WshShell = nothing
刚写的一段代码.兄弟你直接运行就可以了,看下效果吧.应该是你要的东西.希望对你有帮助.

刀客

原帖由 lingxin5013 于 2008-11-6 09:48 发表
Dim index
index=7
Set WshShell = CreateObject("WScript.Shell")
WshShell.sendkeys "^{esc}"
For i =1  to index
WshShell.sendKeys "{DOWN}"
Next
WshShell.sendKeys "{ENTER}"
Set WshShell = nothi ...

是个法子

不过，如果菜单顺序有变化，或者要选的状态是disable，就会有问题

lingxin5013

LS如果是disable　就要发挥下人的主观能动性了．　工具毕竟只是工具．群众的力量是无穷的．