QTP的DeviceReplay对象(2)

　　返回值

　　无。

　　例子

　　下面的例子会激活记事本(notepad)程序并使用大写和小写的方式输入字符串。注意在发送第一个字符串时，SHIFT键保持被按下的状态：

　　Const VK_SHIFT = 42

　　Const VK_RETURN = 28

　　Set deviceReplay = CreateObject( "Mercury.DeviceReplay" )

　　SystemUtil.Run "notepad.exe", "", "", "open"

　　Window( "nativeclass:=Notepad", "index:=0" ).Activate micLeftBtn

　　' ** Typing uppercase

　　deviceReplay.KeyDown VK_SHIFT

　　deviceReplay.SendString( "devicereplay" )

　　deviceReplay.PressKey VK_RETURN

　　deviceReplay.KeyUp VK_SHIFT

　　' ** Typing in lower case

　　deviceReplay.SendString( "devicereplay" )

　　Set deviceReplay = Nothing

　　提示

　　在KeyDown后应该有相应的KeyUp方法的调用。

　　KeyDown方法就像人工按下一个按键并保持按下的状态。

　　KeyUp方法

　　描述

　　模拟通过键盘释放某个按下的按键。

　　语法

　　object.KeyUp( key )

　　参数

　　object ： Mercury.DeviceReplay对象。

　　key ： 按键的数值码。可查阅后面的“Key Codes 参考”。

　　返回值

　　无。

　　例子

　　下面的例子会激活并并使用热键CTRL+O来打开记事本(notepad)的菜单，然后用ESC键关闭对话框。

　　Const VK_O = 24

　　Const VK_CONTROL = 29

　　Const VK_ESCAPE = 1

　　Set deviceReplay = CreateObject( "Mercury.DeviceReplay" )

　　SystemUtil.Run "notepad.exe", "", "", "open"

　　Window( "nativeclass:=Notepad", "index:=0" ).Activate micLeftBtn

　　' ** Typing uppercase

　　Wait 1

　　' ** Opening the menu Ctrl + O

　　deviceReplay.KeyDown VK_CONTROL

　　deviceReplay.PressKey VK_O

　　deviceReplay.KeyUp VK_CONTROL

　　Wait 2

　　' ** Closing the menu

　　deviceReplay.PressKey VK_ESCAPE

　　deviceReplay.SendString "Menu Open, was closed."

　　Set deviceReplay = Nothing

　　提示

　　KeyUp方法应该与KeyDown方法配对使用。

　　多个KeyUp不会对应用程序造成影响。

　　如果需要组合热键，仅需要像人工执行的方式一样即可。

　　PressKey方法

　　描述

　　模拟通过键盘按下一个按键并立即释放。

　　语法

　　object.PressKey( key )

　　参数

　　object ： Mercury.DeviceReplay对象。

　　key ： 按键的数值码。可查阅后面的“Key Codes 参考”。

　　返回值

　　无。

　　例子

　　下面的例子会激活记事本并使用热键CTRL+O来模拟选择文件打开菜单，然后用ESCAPE按键关闭对话框。

　　Const VK_O = 24 : Const VK_F = 33

　　Const VK_CONTROL = 29 : Const VK_ESCAPE = 1 : Const VK_MENU = 56

　　Set deviceReplay = CreateObject( "Mercury.DeviceReplay" )

　　SystemUtil.Run "notepad.exe", "", "", "open"

　　Window( "nativeclass:=Notepad", "index:=0" ).Activate micLeftBtn

　　Wait 1

　　' ** Opening the menu Alt + F + O

　　deviceReplay.PressKey VK_MENU

　　deviceReplay.PressKey VK_F

　　deviceReplay.PressKey VK_O

　　Wait 2

　　' ** Closing the menu

　　deviceReplay.PressKey VK_ESCAPE

　　deviceReplay.SendString "Open menu was closed."

　　Set deviceReplay = Nothing

　　PressNKeys方法

　　描述

　　模拟通过键盘 多次按下一个按键并立即释放。

　　语法

　　object.PressNKey( key, N )

　　参数

　　object ： Mercury.DeviceReplay对象。

原文转自：http://www.ltesting.net