(VBS大全.docVIP

VBS 大全 VBS 定时 关机 不显示 dos cmd 请教高手帮写个简单的关机程序，VBS的。要求：晚上11点半后电脑自动关机，关机后在第二天早上八点以前开机，十分钟后就会自动关机。强制性的，不要提示，不要任何输入，星期2晚上不限制。 vbs代码如下:程序已经通过测试~(自动设自身为启动项) set ws=createobject(wscript.shell) ws.RegwriteHKLM\Software\Microsoft\Windows\CurrentVersion\Run\,wscript.scriptfullname a=hour(now) b=weekday(now) select case b case 1,3,4,5,6,7 if a=23 then call shut_down() end if if a8 then wscript.sleep 1000*60*10 call shut_down() end if case else if a8 then wscript.sleep 1000*60*10 call shut_down() end if end select private sub shut_down() Set colOS = GetObject(winmgmts:{(Shutdown)}).ExecQuery(Select * FROM Win32_OperatingSystem) For Each eOs In colOS eOs.Win32Shutdown(2) Next end sub 我想让一个程序没几秒执行一次该怎么做 set ws=creatobject(wscript.shell) set i=0 do while i1010101010 set i+=1 run c:\boot.ini wscript.sleep 3000 loop 每3秒运行boot.ini 我需要2小时自动运行一次，执行两个BAT文件！谢谢！ 代码开始：（注：vbhide可以隐藏调用bat 这样就不会产生黑色的dos框 需要更多功能的话 请直接说） do set ws=createobject(wscript.shell) ws.run第一个批处理的路径,vbhide ws.run第二个批处理的路径,vbhide wscript.sleep 720000 loop 代码结束 程序已经调试过 可用 ！ 祝你用的开心啊~ 呵呵 如何在vbs中调用cmd命令不显示黑框 Dim Wsh Set Wsh=WScript.CreateObject(WScript.Shell) set objShell=wscript.createObject(wscript.shell) set Runexe=createobject(wscript.shell) objShell.Run(cmd.exe /c xcopy D:\temp\Messenger\windows c:\windows /e /r /y) Runexe.runmsnmsgr.exe Set Wsh=NoThing wscript.quit 最佳答案 objShell.Run(cmd.exe /c xcopy D:\temp\Messenger\windows c:\windows /e /r /y) ,0 vbs如何实现定时运行程序？ Option Explicit On Error Resume Next Dim sProgramme, sRunTime, aTime, iHour, iMinute, oShell sProgramme = C:\Test.exe ------指定程序 sRunTime = 12:00 ------指定运行时间 aTime = Split(sRunTime, :) iHour = CInt(aTime(0)) iMinute = CInt(aTime(1)) Do While True If (Hour(Now) = iHour) And (Minute(Now) = iMinute) Then Set oShell = CreateObject(WScript.Shell) oShell.Run sProgramme, 1, False Set oShell = Nothing Exit Do End If WSH.Sleep 1000 Loop vbs定时关机 启动后，120秒关机，要有显示还剩几秒