Const VK_SHIFT = 42
Const VK_RETURN = 28
Set deviceReplay = CreateObject( "Mercury.DeviceReplay" )
SystemUtil.Run "notepad.exe", "", "", "open"
Window("记事本").Activate micLeftBtn
deviceReplay.KeyDown VK_SHIFT
deviceReplay.SendString( "devicereplay" )
deviceReplay.PressKey VK_RETURN
deviceReplay.KeyUp VK_SHIFT
deviceReplay.SendString( "devicereplay" )
Set deviceReplay = Nothing
这段代码应该产生两行“devicereplay”,并且第一行是大写，第二行是小写