在QTP中四种模拟键盘输入的方式

最新推荐文章于 2025-07-08 09:55:40 发布

原创最新推荐文章于 2025-07-08 09:55:40 发布 · 8.8k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#QTP #测试

【Quick Test Professional】专栏收录该内容

10 篇文章

订阅专栏

本文介绍了在QTP（QuickTest Professional）中模拟键盘输入的四种方法：通过测试对象的Type方法、发送字符串、使用Mercury.DeviceReplay对象以及调用Windows API。详细讲解了每个方法的应用和示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. QTP测试对象的Type方法

举例：

Browser("Untitled").Dialog("Properties").WinButton("OK").Type micReturn

2. WSH中的SendKeys方法

举例：

Set wshobj = CreateObject("WScript.Shell")
wshobj.SendKeys "{ENTER}"
Set wshobj = Nothing

3. QTP隐藏对象Mercury.DeviceReplay

在Mercury.DeviceReplay对象下，有像SendString，PressKey，PressKeys，KeyUp和KeyDown之类的方法可以用来模拟键盘操作。

4. 调用Windows API

extern.Declare micVoid, "keybd_event", "user32", "keybd_event", micbyte, micbyte, miclong, miclong

extern.Declare micLong, "MapVirtualKey", "user32", "MapVirtualKeyA", micLong, micLong

Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_KEYDOWN = &H0

Sub KeyDown(KeyAscii)
    extern.keybd_event KeyAscii, extern.MapVirtualKey(KeyAscii, 0), KEYEVENTF_KEYDOWN, 0
End Sub

Sub KeyUp(KeyAscii)
    extern.keybd_event KeyAscii, extern.MapVirtualKey(KeyAscii, 0), KEYEVENTF_KEYUP, 0
End Sub

Sub KeyPress(KeyAscii)
    extern.keybd_event KeyAscii, extern.MapVirtualKey(KeyAscii, 0), KEYEVENTF_KEYDOWN, 0
    extern.keybd_event KeyAscii, extern.MapVirtualKey(KeyAscii, 0), KEYEVENTF_KEYUP, 0
End Sub

Const vbKeyControl = 17
Const vbKeyEscape = 27
Const vbKeyR = 82

Call KeyDown(vbKeyControl)
Call KeyDown(vbKeyEscape)
Call KeyUp(vbKeyEscape)
Call KeyUp(vbKeyControl)
Call KeyPress(vbKeyR)