VBS定时关机不显示.doc

VBS定时关机不显示cmd请教高手帮写个简单的关机程序，VBS的。要求：晚上11点半后电脑自动关机，关机后在第二天早上八点以前开机，十分钟后就会自动关机。强制性的，不要提示，不要任何输入，星期2晚上不限制。vbs代码如下:程序已经通过测试(自动设自身为启动项)setws=createobject(wscript.shell)ws.RegwriteHKLMSoftwareMicrosoftWindowsCurrentVersionRun,wscript.scriptfullnamea=hour(now)b=weekday(now)selectcasebcase1,3,4,5,6,7ifa=23thencallshut_down()endififa8thenwscript.sleep1000*60*10callshut_down()endifcaseelseifa8thenwscript.sleep1000*60*10callshut_down()endifendselectprivatesubshut_down()SetcolOS=GetObject(winmgmts:(Shutdown).ExecQuery(Select*FROMWin32_OperatingSystem)ForEacheOsIncolOSeOs.Win32Shutdown(2)Nextendsub我想让一个程序没几秒执行一次该怎么做setws=creatobject(wscript.shell)seti=0dowhileinul另外，楼主会发现那个黑窗口一直在那里，很碍眼，这时我们可以让批处理隐藏运行。CreateObject(Wscript.Shell).run批处理文件,vbhide将上面的一句话保存为vbs文件，其中批处理文件就是你的定时打开网页的批处理的全名。双击vbs文件后，批处理文件就在后台运行了。隐藏运行的批处理在任务管理器中表现为cmd.exe进程。系统启动后自动运行：DimRegSetReg=CreateObject(wscript.Shell)Reg.RegwriteHKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun自启动名称,路径如何写一个批处理文件:在qq运行2个小时后自动关闭?本人已经调试成功，用VBS脚本，请把下面3行代码复制到记事本中，然后“文件”-“另存为.”，位置选“桌面”，名称写“1.vbs”，保存类型选“所有文件”。setwshshell=CreateObject(wscript.shell)tt=(hour(time)+2)&:&string(2-len(minute(time),0)&minute(time)wshshell.execat&tt&ntsd.exe-cq-pnqq.exe然后执行桌面你刚才保存的1.vbs，就成功了。你只看到屏幕一闪，而此时已经加了一条定时任务，要检验它，请在开始-运行-输入cmd回车进入了DOS窗口，输入命令：at1回车后，你会看到提示：D:DocumentsandSettingschaoliuat1任务ID:1状态:OK计划:今天时间:15:14交互:No命令:ntsd.exe-cq-pnqq.exe命令是说在2小时后，15:14将会自动运行ntsd关掉qq进程。这条定时任务是可以取消的，方法是在DOS窗口中输入at1/delete同理，如果你双击了2次1.vbs，就会有2条任务。查看第2个任务就用at2批处理方式休眠为何无法用任务计划唤醒？用网上的方法，建立批处理文件，文件内容为：RUNDLL32.EXEPowrProf.dll,SetSuspendState用它来使计算机休眠，但这样的休眠无法通过任务计划唤醒。而通过开始关闭按Shift点休眠的方法进入的休眠却可以在计划任务下唤醒。这是怎么回事啊，有什么办法（加上什么参数，或调用其他方法）让批处理的休眠也可以通过任务计划来唤醒呢？问题补充：%windir%system32RUNDLL32.EXEPowrProf.dll,SetSuspendStateHibernate呵呵，不懂VB，在网上又查了下，在批处理文件改成上面那样就行了。在后面加上Hibernate就OK了：）dimWshShellSetWshShell=WScript.CreateObject(WScript.Shell)WshShell.runtaskmgr.exeWscript.Sleep300WshShell.SendKeys%uWshShell.SendKeysh这是VBS代码,你保存成.VBS文件,调用VBS来实现按键实现你的开机-休眠的功能呵呵，没用VB，也没试过这个行不行。就一个回答的，给分吧。我用的方法就是在后面加上HibernateVBS中SendKeys的基本应用ps:不知道有人还记得这个攻击qq群的代码？就是利用这个所写的！SendKeys模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，其使用格式为：object.SendKeysstring“object”：表示WshShell对象“string”：表示要发送的按键指令字符串，需要放在英文双引号中。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.SendKeysF1Tips:如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“按键数字”。例如要发送10个字母“x”，则输入“WshShell.SendKeysx10”即可。实例：-按下F5刷新桌面DimWshShell,Path,iSetWshShell=WScript.CreateObject(WScript.Shell)WshShell.SendKeysF5-电脑的自动重启setWshShell=CreateObject(WScript.Shell)WshShell.SendKeysESCuWshShell.SendKeysR-启动任务管理器setWshShell=CreateObject(WScript.Shell)WshShell.SendKeys+ESC-QQ消息群发DimWshShellSetWshShell=WScript.createObject(WScript.Shell)WshShell.AppActivatejc123fori=1to60WScript.Sleep800WshShell.SendKeysNumber0WshShell.SendKeysiWshShell.SendKeys%snext-自动到百度搜索王菲的歌曲DimWshShell,Path,iSetWshShell=WScript.CreateObject(WScript.Shell)WshShell.Run(IEXPLORE.EXE)WScript.Sleep2000WshShell.AppActivateabout:blank-MicrosoftInternetExplorerWshShell.SendKeys+TABWshShell.SendKeysWScript.Sleep800WshShell.SendKeysENTERWScript.Sleep3000WshShell.SendKeys王菲WScript.Sleep800WshShell.SendKeysENTER-在记事本中输入HappyBirthday!并保存为birth.txtDimWshShellSetWshShell=WScript.CreateObject(WScript.Shell)WshShell.RunnotepadWScript.Sleep1500WshShell.AppActivate无标题-记事本WshShell.SendKeysHWScript.Sleep500WshShell.SendKeysaWScript.Sleep500WshShell.SendKeyspWScript.Sleep500WshShell.SendKeyspWScript.Sleep500WshShell.SendKeysyWScript.Sleep500WshShell.SendKeysWScript.Sleep500WshShell.SendKeysBWScript.Sleep500WshShell.SendKeysiWScript.Sleep500WshShell.SendKeysrWScript.Sleep500WshShell.SendKeystWScript.Sleep500WshShell.SendKeyshWScript.Sleep500WshShell.SendKeysdWScript.Sleep500WshShell.SendKeysaWScript.Sleep500WshShell.SendKeysyWScript.Sleep500WshShell.SendKeys!WScript.Sleep500WshShell.SendKeys%FSWScript.Sleep500WshShell.SendKeysbWScript.Sleep500WshShell.SendKeysiWScript.Sleep500WshShell.SendKeysrWScript.Sleep500WshShell.SendKeystWScript.Sleep500WshShell.SendKeyshWScript.Sleep500WshShell.SendKeys%SWScript.Sleep500WshShell.SendKeys%FX-制作能自动定时存盘的记事本第一部分：定义变量和对象DimWshShell,AutoSaveTime,TXTFileNameAutoSaveTime=300000SetWshShell=WScript.CreateObject(WScript.Shell)TXTFileName=InputBox(请输入你要创建的文件名(不能用中文和纯数字)：)第二部分：打开并激活记事本WshShell.RunnotepadWScript.Sleep200WshShell.AppActivate无标题-记事本第三部分：用输入的文件名存盘WshShell.SendKeyssWScript.Sleep300WshShell.SendKeysTXTFileNameWScript.Sleep300WshShell.SendKeys%sWScript.SleepAutoSaveTime第四部分：自动定时存盘WhileWshShell.AppActivate(TXTFileName)=TrueWshShell.SendKeyssWScript.SleepAutoSaveTimeWendWScript.Quit-死机的，嘿嘿！DIMWSHSHELLSETWSHSHELL=WSCRIPT.CREATEOBJECT(WSCRIPT.SHELL)WSHSHELL.RUNWSCRIPT.SLEEP1000WSHSHELL.SENDKEYSENTERWSCRIPT.SLEEP1000WSHSHELL.S