用vbs实现关机,首先创建一个名为关机程序的vbs文件,然后输入代码:
定义wsh:
Dim wsh
Set wsh=CreateObject("Wscript.Shell")
判断是否愿意关机:
wsh.Run ("Shutdown -s -t 100")'100自己调整,为关机的时间(单位:秒)
ret=InputBox("您想要关机吗(如要不想,请说“关机”)?","确定吗?")
If ret = "关机" Then
wsh.Run "shutdown -a"
Else
msgbox("等待关机吧!")
别忘了最后还要结束if:
End If
这样一篇关机式程序就做好啦!
更多推荐
vbs实现关机程序
发布评论