VBS 大全
VBS 定时 关机 不显示 dos cmd
请教高手帮写个简单的关机程序，VBS的。要求：晚上11点半后电脑自动关机，关机后在第二天早上八点以前开机，十分钟后就会自动关机。强制性的，不要提示，不要任何输入，星期2晚上不限制。
vbs代码如下:程序已经通过测试~(自动设自身为启动项)
set ws=createobject("wscript.shell")
ws.Regwrite"HKLM\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 a<8 then
wscript.sleep 1000*60*10
call shut_down()
end if
case else
if a<8 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 i<1010101010 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 ateObject("wscript.shell")
set Runexe=createobject("wscript.shell")
objShell.Run(" /c xcopy D:\temp\Messenger\windows c:\windows /e /r /y")
Runexe."
Set Wsh=NoThing
wscript.quit
最佳答案
objShell.Run(" /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:\" '------指定程序
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秒关机，要有显示还剩几秒
set ws = createobject("wscript.shell")
for i = 120 to 0 step -1
ws.popup "您的电脑将在" & i & "秒后关闭",1,"关机提示"
next
ws.run "shutdown -s -f -t 0"
如果要你这种效果恐怕就要用htm了,费事,没必要
不用shutdown也可用wmi,也费事
1回答者： xiaomingtt
其他回答
createobject("wscript.shell").run "shutdown -s -f -t 120"
或者:
createobject("wscript.shell").exec " /c shutdown -s -f -t 120",0
要求非常简单，只要是间隔8秒按一下F10就可以，无限循环。
并且教会我怎么开启，怎么结束，会了给追加分数，绝不食言，在线等答案！
直接打开运行 关闭时直接在进程管理器中结束掉该进程
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
do while 1
WScript.Sleep 8000
WshShell.SendKeys "{F10}"
loop
保存为vbs文件运行就开始无限循环
如果要结束，只要 右击"我的电脑"，点"属性" 就可以了
因为这个VBS循环的条件就是当系统属性窗口不存在时，则有效
set ws = createobject("wscript.shell")
while ws.appactivate("系统属性") = false
wscript.sleep 8000: ws.sendkeys "{10}"
wend
如何用批处理每15分钟打开一个连接?
批处理文件怎么做一楼 匿名 同志的批处理在Windows XP上也许会遇到一定的问题，因为一般的Windows XP系统中已经没有了choice命令。可以用ping命令来替代。如定时15分钟，即15*60=900秒：ping -n 900 127.1>nul
另外，楼主会发现那个黑窗口一直在那里，很碍眼，这时我们可以让批处理隐藏运行。
CreateObject("Wscript.Shell").run "批处理文件",vbhide
将上面的一句话保存为vbs文件，其中批处理文件就是你的定时打开网页的批处理的全名。双击vbs文件后，批处理文件就在后台运行了。隐藏运行的批处理在任务管理器中表现为进程。
系统启动后自动运行：
Dim Reg
Set Reg = CreateObject("wscript.Shell")
Reg.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersio
n\Run\自启动名称" , 路径
如何写一个批处理文件:在qq运行2个小时后自动关闭?
本人已经调试成功，用VBS脚本，请把下面3行代码复制到记事本中，然后“文件”-“另存为...”，位置选“桌面”，名称写“1.vbs”，保存类型选“所有文件”。
set wshshell=CreateObject("wscript.shell")
tt=(hour(time)+2) & ":" & string(2-len(minute(time)),"0") & minute(time)
"at " & tt & " -c q -"
然后执行桌面你刚才保存的1.vbs，就成功了。你只看到屏幕一闪，而此时已经加了一条定时任务，要检验它，请在开始-运行-输入cmd回车
进入了DOS窗口，输入命令：
at 1
回车后，你会看到提示：
D:\Documents and Settings\chaoliu>at 1
任务 ID: 1
状态: OK
计划: 今天
时间: 15:14
交互: No
命令: -c q -
命令是说在2小时后，15:14将会自动运行ntsd关掉qq进程。
这条定时任务是可以取消的，方法是在DOS窗口中输入
at 1 /delete
同理，如果你双击了2次1.vbs，就会有2条任务。查看第2个任务就用 at 2
批处理方式休眠为何无法用任务计划唤醒？
悬赏分：20 - 解决时间：2008-10-17 13:47
用网上的方法，建立批处理文件，文件内容为：RUNDLL32.EXE PowrProf.dll,SetSuspendState
用它来使计算机休眠，但这样的休眠无法通过任务计划唤醒。
而通过 开始→关闭→按Shift点休眠的方法进入的休眠却可以在计划任务下唤醒。
这是怎么回事啊，有什么办法（加上什么参数，或调用其他方法）让批处理的休眠也可以通过任务计划来唤醒呢？
问题补充：%windir%\system32\RUNDLL32.EXE PowrProf.dll,SetSuspendState Hibernate
呵呵，不懂VB，在网上又查了下，在批处理文件改成上面那样就行了。在后面加上 Hibernate 就OK了：）
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论