恶搞程序恶搞程序
xhjyxxw
帮助0人
大家好，今日小经来聊聊一篇关于恶搞程序大全，恶搞程序的文章，现在让我们往下看看吧！
1、窗口炸弹Private Sub Form_Load()For a = 1 To 10Shell "cmd /c echo 轰隆——一切的全完了！ & pause", vbNormalFocusNextEnd Sub 2、数羊程序Private Sub Form_Load()MsgBox "困死我了，睡不着，帮我数羊", , "数羊"MsgBox "就一百只羊吧！", , "数羊"For a = 1 To 100MsgBox a & "只羊", , "数羊"NextMsgBox "身边没个人。
2、好孤单，好寂寞……", "64", "数羊"Shell "shutdown -s -t 0"End Sub3、按十万次回车Private Sub Form_Load()For a = 1 To 100000SendKeys "{enter}"NextEnd Sub。
本文到此分享完毕，希望对大家有所帮助。
这篇好文章是转载于：知行礼动
- 版权申明： 本站部分内容来自互联网，仅供学习及演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系，请提供相关证据及您的身份证明，我们将在收到邮件后48小时内删除。
- 本站站名： 知行礼动
- 本文地址： /news/detail/tanhbcefbe
