VB整蛊程序求代码

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

2024-12-01 18:46:33

推荐回答（2个）

回答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

回答2：

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

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