vbs经典回顾之键盘输入方法.docx

键盘输入方法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.基本键一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeysx”即可。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeyshappy”。2.特殊功能键对于需要与Shift、Ctrl、Alt三个控制键组合的按键，SendKeys使用特殊字符来表示：Shift-WshShell.SendKeys+Ctrl-WshShell.SendKeysAlt-WshShell.SendKeys%(注意:这样使用时，不用大括号括起这些特殊字符。)由于“+”、“”这些字符用来表示特殊的控制按键了，如何表示这些”字符”的按键呢？只要用大括号括住这些字符即可。例如:要发送加号“+”，可使用“WshShell.SendKeys+”另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称。-如果发送是基本字符用“”括起来。例如要发送回车键，需要用“WshShell.SendKeysENTER”表示；发送向下的方向键用“Wshshell.SendKeysDOWN”表示。Space-WshShell.SendKeysEnter-WshShell.SendKeysENTER-WshShell.SendKeysRIGHT-WshShell.SendKeysUPF1-WshShell.SendKeysF1按键代码BACKSPACEBACKSPACE,BS,或BKSPBREAKBREAKCAPSLOCKCAPSLOCKDELorDeleteDelete或DELDOWNARROWDOWNENDENDENTERENTER或ESCESCHELPHELPHOMEHOMEINSorInsertInsert或INSLEFTARROWLEFTNUMLOCKNUMLOCKPAGEDOWNPGDNPAGEUPPGUPPRINTSCREENPRTSCRIGHTARROWRIGHTSCROLLLOCKSCROLLLOCKTABTABUPARROWUPF1F1F2F2F3F3F4F4F5F5F6F6F7F7F8F8F9F9F10F10Tips:如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“按键数字”。例如要发送10个字母“x”，则输入“WshShell.SendKeysx10”即可。实际应用举例：按下F5刷新桌面DimWshShell,Path,iSetWshShell=Wscrpt.CreateObject(Wscrpt.Shell)WshShell.SendKeysF5-电脑的自动重启setWshShell=CreateObject(Wscrpt.Shell)WshShell.SendKeysESCuWshShell.SendKeysR-启动任务管理器setWshShell=CreateObject(Wscrpt.Shell)WshShell.SendKeys+ESC-QQ消息连发DimWshShellSetWshShell=Wscrpt.createObject(Wscrpt.Shell)WshShell.AppActivatebombfori=1to60Wscrpt.Sleep800WshShell.SendKeysWhatdoyousayWshShell.SendKeysiWshShell.SendKeys%snext-自动到百度搜索歌曲：whiteflagDimWshShell,Path,iSetWshShell=Wscrpt.CreateObject(Wscrpt.Shell)WshShell.Run(IEXPLORE.EXE)Wscrpt.Sleep2000WshShell.AppActivateabout:blank-MicrosoftInternetExplorerWshShell.SendKeys+TABWshShell.SendKeysWscrpt.Sleep800WshShell.SendKeysENTERWscrpt.Sleep3000WshShell.SendKeyswhiteflagWscrpt.Sleep800WshShell.SendKeysENTER-自动关机DimWshShellSetWshShell=Wscrpt.CreateObject(Wscrpt.Shell)Wscrpt.Sleep2000WshShell.Runshutdown-r-t120wscrpt.sleep6000WshShell.Runshutdown-a-在记事本中输入HappyBirthday!并保存为birth.txtDimWshShellSetWshShell=Wscrpt.CreateObject(Wscrpt.Shell)WshShell.RunnotepadWscrpt.Sleep1500WshShell.AppActivate无标题-记事本WshShell.SendKeysHWscrpt.Sleep500WshShell.SendKeysaWscrpt.Sleep500WshShell.SendKeyspWscrpt.Sleep500WshShell.SendKeyspWscrpt.Sleep500WshShell.SendKeysyWscrpt.Sleep500WshShell.SendKeysWscrpt.Sleep500WshShell.SendKeysBWscrpt.Sleep500WshShell.SendKeysiWscrpt.Sleep500WshShell.SendKeysrWscrpt.Sleep500WshShell.SendKeystWscrpt.Sleep500WshShell.SendKeyshWscrpt.Sleep500WshShell.SendKeysdWscrpt.Sleep500WshShell.SendKeysaWscrpt.Sleep500WshShell.SendKeysyWscrpt.Sleep500WshShell.SendKeys!Wscrpt.Sleep500WshShell.SendKeys%FSWscrpt.Sleep500WshShell.SendKeysbWscrpt.Sleep500WshShell.SendKeysiWscrpt.Sleep500WshShell.SendKeysrWscrpt.Sleep500WshShell.SendKeystWscrpt.Sleep500WshShell.SendKeyshWscrpt.Sleep500WshShell.SendKeys%SWscrpt.Sleep500WshShell.SendKeys%FX-制作能自动定时存盘的记事本第一部分：定义变量和对象DimWshShell,AutoSaveTime,TXTFileNameAutoSaveTime=300000SetWshShell=Wscrpt.CreateObject(Wscrpt.Shell)TXTFileName=InputBox(请输入你要创建的文件名(不能用中文和纯数字)：)第二部分：打开并激活记事本WshShell.RunnotepadWscrpt.Sleep200WshShell.AppActivate无标题-记事本第三部分：用输入的文件名存盘WshShell.SendKeyssWscrpt.Sleep300WshShell.SendKeysTXTFileNameWscrpt.Sleep300WshShell.SendKeys%sWscrpt.SleepAutoSaveTime第四部分：自动定时存盘WhileWshShell.AppActivate(TXTFileName)=TrueWshShell.SendKeyssWscrpt.SleepAutoSaveTimeWendWscrpt.Quit-自动死机o(_)o.DIMWSHSHELLSETWSHSHELL=Wscrpt.CreateOBJECT(Wscrpt.SHELL)WSHSHELL