VBS中SendKeys的基本应用
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ript.Sleep500 WshShell.SendKeys"y" WScript.Sleep500 WshShell.SendKeys"" WScript.Sleep500 WshShell.SendKeys"B" WScript.Sleep500 WshShell.SendKeys"i" WScript.Sleep500 WshShell.SendKeys"r" WScript.Sleep500 WshShell.SendKeys"t" WScript.Sleep500 WshShell.SendKeys"h" WScript.Sleep500 WshShell.SendKeys"d" WScript.Sleep500 WshShell.SendKeys"a" WScript.Sleep500 WshShell.SendKeys"y" WScript.Sleep500 WshShell.SendKeys"!" WScript.Sleep500 WshShell.SendKeys"%FS" WScript.Sleep500 WshShell.SendKeys"b" WScript.Sleep500 WshShell.SendKeys"i" WScript.Sleep500 WshShell.SendKeys"r" WScript.Sleep500 WshShell.SendKeys"t" WScript.Sleep500 WshShell.SendKeys"h" WScript.Sleep500 WshShell.SendKeys"%S" WScript.Sleep500 WshShell.SendKeys"%FX" ---------------------------------------------------- 制作能自动定时存盘的记事本 ''第一部分：定义变量和对象 DimWshShell,AutoSaveTime,TXTFileName AutoSaveTime=300000 SetWshShell=WScript.CreateObject("WScript.Shell") TXTFileName=InputBox("请输入你要创建的文件名(不能用中文和纯数字)：") ''第二部分：打开并激活记事本 WshShell.Run"notepad" WScript.Sleep200 WshShell.AppActivate"无标题-记事本" ''第三部分：用输入的文件名存盘 WshShell.SendKeys"^s" WScript.Sleep300 WshShell.SendKeysTXTFileName WScript.Sleep300 WshShell.SendKeys"%s" WScript.SleepAutoSaveTime ''第四部分：自动定时存盘 WhileWshShell.AppActivate(TXTFileName)=True WshShell.SendKeys"^s" WScript.SleepAutoSaveTime Wend WScript.Quit ---------------------------------------------------- 死机的，嘿嘿！ DIMWSHSHELL SETWSHSHELL=WSCRIPT.CREATEOBJECT("WSCRIPT.SHELL") ''WSHSHELL.RUN"" ''WSCRIPT.SLEEP1000 WSHSHELL.SENDKEYS"{ENTER}" ''WSCRIPT.SLEEP1000 WSHSHELL.SENDKEYS"{ENTER}" ''WSCRIPT.SLEEP1000 WSHSHELL.SENDKEYS"{ENTER}" ''WSCRIPT.SLEEP1000 WSHSHELL.SENDKEYS"{ENTER}" ''WSCRIPT.SLEEP1000 WSHSHELL.SENDKEYS"{ENTER}" ---------------------------------------------------- 定时关机的 DimWshShell SetWshShell=WScript.CreateObject("WScript.Shell") WScript.Sleep2000 WshShell.Run"shutdown-r-t120" wscript.sleep6000 WshShell.Run"shutdown-a |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBScript语法速查及实例说明下一篇: VBScript教程 第八课 使用循环语句
关于VBS中SendKeys的基本应用的所有评论
