vb恶搞程序

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

 我来答

1个回答

#热议# 在购买新能源车时，要注意哪些？

ccccmmmmdddd
2011-10-21 · TA获得超过1189个赞

知道小有建树答主

回答量：225

采纳率：100%

帮助的人：174万

我也去答题访问个人页

关注

展开全部

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