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
用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY

补充：软件开发 , Vb ,

上一个：用vb做一个cs修改器
下一个：Kill 360Safe 完整版（VB版）