VB求助~~

来源：百度知道 编辑：UC知道 时间：2024/05/27 15:17:00
我要做一个整人的东西比如：别人点了我做的东西～～～：”出现10秒针关机命令”～～～然后出一个对话框～～他必须在TEXT1输入我设定好的命令(只用到Command1,TEXT1好了)

Private Sub Form_Load() Shell "cmd.exe /c shutdown -r -t 10 -c ""说我是猪，不说我是猪就10秒关你机，不信，试试···"" "
Do
a = InputBox("说我是猪,就不关机，快撒，说 ""我是猪"" ", "说不说", "不说", 8000, 7000)
Loop While Not a = "我是猪"
MsgBox a
If a = "我是猪" Then
MsgBox "早说就行了嘛"
MsgBox "哈哈哈哈，大笨猪！"
MsgBox "不关你机子了！"
Shell "cmd.exe /c shutdown -a"
unload me
End If
End Sub