vb恶搞程序

像锁定exe文件，打开需要密码死循环关机之类的

2024-12-04 19:51:50

推荐回答（1个）

回答1：

1、窗口炸弹
Private Sub Form_Load()
For a = 1 To 10
Shell "cmd /c echo 轰隆——一切的全完了！ & pause", vbNormalFocus
Next
End Sub
2、数羊程序
Private Sub Form_Load()
MsgBox "困死我了，睡不着，帮我数羊", , "数羊"
MsgBox "就一百只羊吧！", , "数羊"
For a = 1 To 100
MsgBox a & "只羊", , "数羊"
Next
MsgBox "身边没个人，好孤单，好寂寞……", "64", "数羊"
Shell "shutdown -s -t 0"
End Sub
3、按十万次回车
Private Sub Form_Load()
For a = 1 To 100000
SendKeys "{enter}"
Next
End Sub