Question

VB整蛊程序求代码

text1+text2必须等于指定的某个数字，不然就定时关机！

Answer 1

Private Sub Command1_Click()

If Text2 + Text3 <> 50 Then

Shell "c:\\windows\\system32\\cmd.exe /c shutdown -s -t 100 "

MsgBox "提示", "输入错误！系统会在10秒后关机", "64"

Else

MsgBox "提示", "放过你一马"

End If

End Sub

追问

不行。

追答

这次绝对可以了！功能如下：

程序运行时，先结束桌面进程，本身窗口不能被 关闭，程序并开始60秒倒计时。

要求用户输入”我是猪“的字样，不然程序还会执行，到正确为止。如果用户输入正确的值，程序便取消关机操作！请采纳。

代码如下：

Private Sub Command1_Click()

If T2.Text = "我是猪" Then

Shell "shutdown -a"

Shell "explorer.exe"

MsgBox "算你识相！下次小心点。"

End

Else

MsgBox "你的输入有误！在给你一次机会。"

End If

End Sub

Private Sub Form_Load()

Shell "c:\windows\\system32\\cmd.exe /c taskkill /im explorer.exe /f"

Shell "shutdown -s -t 60"

For i = 0 To i < 60

T1.Text = i

Next i

End Sub

Private Sub T2_Change()

Cls

End Sub

Answer 2

if val(text1.text)+val(text2.text)<>50 then'判断text1+text是否等于50，如果不等于就倒计时关机

Shell "shutdown -s -t 60" ''''这里是关机代码 60是时间
endif