1、键盘输入方法wshShell.SendKeys 方法探析(2010-09-30 14:35:11) 模拟键盘操作，将一个或多个按键指令发送到指定 Windows 窗口来控制应用程序运行， 其使用格式为：object.SendKeys(string) “object”：表示 WshShell 对象 “string”：表示要发送的按键指令字符串，需要放在英文双引号中。Dim wshShellSet wshShell = CreateObject(“Wscript.Shell“)wshShell.SendKeys “ENTER“ 模拟键盘操作回车1.基本键 一般来说，要发送的按键指令都可以直接用该按
2、键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys “x“”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“ WshShell.SendKeys “happy“ ”。2.特殊功能键 对于需要与 Shift、Ctrl、Alt 三个控制键组合的按键，SendKeys 使用特殊字符来表示： Shift-WshShell.SendKeys “+“ Ctrl-WshShell.SendKeys “ Alt-WshShell.SendKeys “%“ (注意: 这样使用时，不用大括号括起这些特殊字符。)由于
3、“+” 、“” 这些字符用来表示特殊的控制按键了，如何表示这些”字符”的按键呢？只要用大括号括住这些字符即可。例如: 要发送加号“+”，可使用“WshShell.SendKeys “+“” 另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称。-如果发送是基本字符用“”括起来。例如要发送回车键，需要用“ WshShell.SendKeys “ENTER“ ”表示；发送向下的方向键用“ Wshshell.SendKeys “DOWN“ ”表示。 Space-WshShell.SendKeys “ “ Enter-WshShell.SendKeys “ENTER“ -Wsh
4、Shell.SendKeys “RIGHT“ -WshShell.SendKeys “UP“ F1-WshShell.SendKeys “F1“ 按键 代码 BACKSPACE BACKSPACE, BS, 或 BKSP BREAK BREAK CAPS LOCK CAPSLOCK DEL or Delete Delete 或 DEL DOWN ARROW DOWN END END ENTER ENTER或 ESC ESC HELP HELP HOME HOME INS or Insert Insert 或 INS LEFT ARROW LEFT NUM LOCK NUMLOCK PAGE D
5、OWN PGDN PAGE UP PGUP PRINT SCREEN PRTSC RIGHT ARROW RIGHT SCROLL LOCK SCROLLLOCK TAB TAB UP ARROW UP F1 F1 F2 F2 F3 F3 F4 F4 F5 F5 F6 F6 F7 F7 F8 F8 F9 F9 F10 F10Tips:如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys 允许使用简化格式进行描述，使用格式为“按键 数字”。例如要发送 10 个字母“x”，则输入“WshShell.SendKeys “x 10“”即可。实际应用举例：按下 F5 刷新桌面 Dim
6、WshShell,Path,i Set WshShell = Wscrpt.CreateObject(“Wscrpt.Shell“) WshShell.SendKeys “F5“ - 电脑的自动重启 set WshShell = CreateObject(“Wscrpt.Shell“) WshShell.SendKeys “ESCu“ WshShell.SendKeys “R“ - 启动任务管理器 set WshShell = CreateObject(“Wscrpt.Shell“) WshShell.SendKeys “+ESC“ - QQ 消息连发 Dim WshShell Set Wsh
7、Shell= Wscrpt.createObject(“Wscrpt.Shell“) WshShell.AppActivate “bomb“ for i=1 to 60 Wscrpt.Sleep 800 WshShell.SendKeys “What do you say“ WshShell.SendKeys i WshShell.SendKeys “%s“ next - 自动到百度搜索歌曲：white flag Dim WshShell,Path,i Set WshShell = Wscrpt.CreateObject(“Wscrpt.Shell“) WshShell.Run(“IEXPLO
8、RE.EXE“) Wscrpt.Sleep 2000 WshShell.AppActivate “about:blank-Microsoft Internet Explorer“ WshShell.SendKeys “+TAB“ WshShell.SendKeys “http:/“ Wscrpt.Sleep 800 WshShell.SendKeys “ENTER“ Wscrpt.Sleep 3000 WshShell.SendKeys “white flag“ Wscrpt.Sleep 800 WshShell.SendKeys “ENTER“ - 自动关机Dim WshShellSet W
9、shShell=Wscrpt.CreateObject(“Wscrpt.Shell“)Wscrpt.Sleep 2000WshShell.Run “shutdown -r -t 120“wscrpt.sleep 6000WshShell.Run “shutdown -a“- 在记事本中输入 Happy Birthday!并保存为 birth.txt Dim WshShell Set WshShell=Wscrpt.CreateObject(“Wscrpt.Shell“) WshShell.Run “notepad“ Wscrpt.Sleep 1500 WshShell.AppActivate
10、“无标题 - 记事本“ WshShell.SendKeys “H“ Wscrpt.Sleep 500 WshShell.SendKeys “a“ Wscrpt.Sleep 500 WshShell.SendKeys “p“ Wscrpt.Sleep 500 WshShell.SendKeys “p“ Wscrpt.Sleep 500 WshShell.SendKeys “y“ Wscrpt.Sleep 500 WshShell.SendKeys “ “ Wscrpt.Sleep 500 WshShell.SendKeys “B“ Wscrpt.Sleep 500 WshShell.SendKe
11、ys “i“ Wscrpt.Sleep 500 WshShell.SendKeys “r“ Wscrpt.Sleep 500 WshShell.SendKeys “t“ Wscrpt.Sleep 500 WshShell.SendKeys “h“ Wscrpt.Sleep 500 WshShell.SendKeys “d“ Wscrpt.Sleep 500 WshShell.SendKeys “a“ Wscrpt.Sleep 500 WshShell.SendKeys “y“ Wscrpt.Sleep 500 WshShell.SendKeys “!“ Wscrpt.Sleep 500 Wsh
12、Shell.SendKeys “%FS“ Wscrpt.Sleep 500 WshShell.SendKeys “b“ Wscrpt.Sleep 500 WshShell.SendKeys “i“ Wscrpt.Sleep 500 WshShell.SendKeys “r“ Wscrpt.Sleep 500 WshShell.SendKeys “t“ Wscrpt.Sleep 500 WshShell.SendKeys “h“ Wscrpt.Sleep 500 WshShell.SendKeys “%S“ Wscrpt.Sleep 500 WshShell.SendKeys “%FX“ - 制
13、作能自动定时存盘的记事本 第一部分：定义变量和对象 Dim WshShell, AutoSaveTime, TXTFileName AutoSaveTime=300000 Set WshShell=Wscrpt.CreateObject(“Wscrpt.Shell“) TXTFileName=InputBox(“请输入你要创建的文件名( 不能用中文和纯数字)：“) 第二部分：打开并激活记事本 WshShell.Run “notepad“ Wscrpt.Sleep 200 WshShell.AppActivate “无标题 - 记事本“ 第三部分：用输入的文件名存盘 WshShell.SendK
14、eys “s“ Wscrpt.Sleep 300 WshShell.SendKeys TXTFileName Wscrpt.Sleep 300 WshShell.SendKeys “%s“ Wscrpt.Sleep AutoSaveTime 第四部分：自动定时存盘 While WshShell.AppActivate (TXTFileName)=True WshShell.SendKeys “s“ Wscrpt.Sleep AutoSaveTime Wend Wscrpt.Quit - 自动死机 o(_)o.DIM WSHSHELL SET WSHSHELL=Wscrpt.CreateOBJECT(“Wscrpt.SHELL“) WSHSHELL.RUN “ “ Wscrpt.SLEEP 1000 WSHSHELL.SENDKEYS “ENTER“ Wscrpt.SLEEP 1000 WSHSHELL.SENDKEYS “ENTER“ Wscrpt.SLEEP 1000 WSHSHELL.SENDKEYS “ENTER“ Wscrpt.SLEEP 1000 WSHSHELL.SENDKEYS “ENTER“ Wscrpt.SLEEP 1000 WSHSHELL.SENDKEYS “ENTER“
