VB这个代码那个是关机代码啊

Option Explicit
Private Sub Command1_Click()
Dim wood As String
MsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话
wood = InputBox("请输入密码:")
If wood = "骂自己" Then '密码可以自己设
End
Else
Shell "cmd.exe /c shutdown -s -t 60" '60秒后关机
End If
End Sub

Private Sub Command2_Click()
Shell "cmd.exe /c shutdown -a"
MsgBox "不怎么好玩", vbExclamation,"不玩了"
End
End Sub

shutdown -s -f -t 0 不提示60秒直接关机

shutdown 关闭意思

在开始=运行=输入cmd=打入命令shutdown -? 查看命令

其中-s关机、-r重启、-a取消操作

Shell "cmd.exe /c shutdown -s -t 60" '60秒后关机 这一句是关机的，60秒关机

加我QQ:9986666@qq.tm 答案：110

可以详解

主要是shutdown -s -t 60(关机代码)

shutdown -a(取消关机)

你在"开始"--"运行"里输入以上命令，你就可以看到效果了。