51Testing软件测试论坛

标题: 如何用QTP录制键盘上的ctrl键 [打印本页]

作者: 卓振 时间: 2008-11-18 18:47
标题: 如何用QTP录制键盘上的ctrl键
用Qtp不能录制键盘上的ctrl键，但是写代码如下：
Dim WshShell
Set WshShell=WScript.CreateObject("AfxFrameOrView42")
WshShell.SendKeys"^"
在运行时系统提示“缺少对象：WScript”
虽然也知道用sendkeys，不知道怎么用代码写
请高手指示、、、、、、、
谢谢~~~~~~

作者: ramboo_wang 时间: 2008-11-19 09:50
Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
wshShell.SendKeys "{CTRL}"

试试

作者: dog487 时间: 2008-11-19 09:59
标题: 回复 1# 的帖子
我用这个模拟键盘操作的时候也出现这个错误。同关注

作者: 卓振 时间: 2008-11-20 10:13
标题: 回复 2# 的帖子
我要执行的动作是点击ctrl并且双击鼠标左键。代码如下：
Window("SuperClient").Window("172.16.95.119").WinObject("AfxFrameOrView42").click
Set wss=CreateObject("WScript.Shell")
wss.SendKeys "^ & {DblClick 33,60}"---------------------------------------这句话可能写的肯定有问题、、、不知道应该怎么写，请高手指点一下，谢谢、、、、、

Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
wshShell.SendKeys "{CTRL}"----------------------------------------ctrl应该用^代替

作者: 风雪夜归人 时间: 2009-6-18 11:55
Window("SuperClient").Window("172.16.95.119").WinObject("AfxFrameOrView42").Type micCtrlDwn + "xxx" + micCtrlUp

作者: lvguobin 时间: 2009-6-18 14:41
Window("SuperClient").Window("172.16.95.119").WinObject("AfxFrameOrView42").Type micCtrlDwn + "xxx" + micCtrlUp
good

[ 本帖最后由 lvguobin 于 2009-6-18 15:11 编辑 ]

作者: yan_guimei 时间: 2009-9-3 18:28
标题: 别说错误的答案
拜托别说错误的答案，迷惑别人

作者: joseph_wh 时间: 2009-9-3 23:35
object.Type micCtrlDwn
object.DoubleClick / object.FireEvent ondblclick, , ,micLeftBtn
object.Type micCtrlUp

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