有关CTRL建的录制

卓振

我想实现点击CTRL鼠标左键双击这个动作，但是试了好几种方法，
1、Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
Window("SuperClient").Window("172.16.95.120").WinObject("AfxFrameOrView42").Click
wshShell.SendKeys "^+{DblClick 33,60}"------------这个地方有问题
2、'wshShell.KeyPress = 11
'Window("SuperClient").Window("172.16.95.120").WinObject("AfxFrameOrView42").DblClick 33,60
提示“对象不支持此属性或方法：‘keypress’”


请高手帮解决一下、、、、
谢谢~~~~~~

卓振

sendkeys的目的是实现在键盘上点击CTRL键，我有同时说在C++中保持点击ctrl这个键状态时用keypressed这个关键字，但是我不是很明白怎么用
你明白吗？
请指示~~~~~~~~~~~~
o(∩_∩)o...

lingxin5013

sendkeys 是不支持键盘和鼠标组合操作的。
能否说下你这个sendkeys的目的是什么？换个办法解决

卓振

Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
Window("SuperClient").Window("172.16.95.120").WinObject("AfxFrameOrView42").MouseMove 170,37
wshShell.SendKeys "^+{Enter}"
Window("SuperClient").Dialog("指定设备").WinComboBox("ComboBox").Select "FE01"
Window("SuperClient").Dialog("指定设备").WinButton("确定(O)").Click

谢谢你教给我的方法，上面是我写的代码，但还是不能代替“ctrl+双击鼠标”这个操作，
还是要谢谢你。o(∩_∩)o...

lingxin5013

QTP不支持键盘和鼠标同时操作
给你个建议：
1:移动鼠标到你到click的对象上面（这个很简单吧 move 就可以了）
2：使用senkkeys "^+{Enter}"
希望对你有帮助。