什么是VB程序，怎么做

来源：百度知道编辑：UC知道时间：2024/06/02 22:12:20

我朋友QQ上发给我个东西，一打开就要按他要求做，否则1分钟就要关机，请问怎么做啊？

呵呵这个简单啊！你可不要拿它去整人哦！

'代码开始

______________________________________________________________________

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "不能为空！", vbCritical, "错误"

Exit Sub

End If

If Text1.Text <> "我是猪" Then

MsgBox "不对！说[我是猪]就不关机", 64, "提示"

Exit Sub

End If

If Text1.Text = "我是猪" Then

Shell "shutdown -a", vbHide

Exit Sub

End If

End Sub

Private Sub Form_Load()

Form1.Caption = "不听话就关机"

Label1.Caption = "请在此输入："

Text1.Text = ""

Text1.BackColor = vbBlack

Text1.ForeColor = vbRed

Text1.ToolTipText =