先搞一个按钮
然后直接复制过去就可以了
Option Explicit
Dim strString As String
Dim keyhand As Long
Dim r As Long
Private Sub Command1_Click()
Dim wood As String
MsgBox "密码:1+1=?", vbCritical, "你的电脑系统已经被破坏即将瘫痪" '这里写捉弄人的话
wood = InputBox("请输入密码:")
If wood = "1+1=?" Then '密码可以自己设
End
Else
Shell "cmd.exe /c shutdown -s -t 10" '10秒后关机
End If
End Sub
这个点了之后只要输入密码“1+1=?”就会关闭否则就会10秒后关机
没有恶意成分，纯粹娱乐
