站长资源脚本专栏
vbs实现计算机重启
简介Dim return Set R = CreateObject("WScript.Shell") return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！") If return=vbok Then R.run("Shutdown.exe
Dim return
Set R = CreateObject("WScript.Shell")
return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if
Set R = CreateObject("WScript.Shell")
return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if
上一篇：vbs自动填表单分析附源码
下一篇：vbs实现的定时提醒你休息的脚本