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

来源：互联网发布：mysql as 编辑：程序博客网时间：2024/04/29 17:33

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, miclongextern.Declare micLong, "MapVirtualKey", "user32", "MapVirtualKeyA", micLong, micLongConst KEYEVENTF_EXTENDEDKEY = &H1Const KEYEVENTF_KEYUP = &H2Const KEYEVENTF_KEYDOWN = &H0Sub KeyDown(KeyAscii)    extern.keybd_event KeyAscii, extern.MapVirtualKey(KeyAscii, 0), KEYEVENTF_KEYDOWN, 0End SubSub KeyUp(KeyAscii)    extern.keybd_event KeyAscii, extern.MapVirtualKey(KeyAscii, 0), KEYEVENTF_KEYUP, 0End SubSub KeyPress(KeyAscii)    extern.keybd_event KeyAscii, extern.MapVirtualKey(KeyAscii, 0), KEYEVENTF_KEYDOWN, 0    extern.keybd_event KeyAscii, extern.MapVirtualKey(KeyAscii, 0), KEYEVENTF_KEYUP, 0End SubConst vbKeyControl = 17Const vbKeyEscape = 27Const vbKeyR = 82Call KeyDown(vbKeyControl)Call KeyDown(vbKeyEscape)Call KeyUp(vbKeyEscape)Call KeyUp(vbKeyControl)Call KeyPress(vbKeyR)