惡搞程序 惡搞程序代碼


惡搞程序 惡搞程序代碼

文章插圖
大家好,小跳來為大家解答以上的問題 。惡搞程序代碼,惡搞程序這個很多人還不知道,現在讓我們一起來看看吧!
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 。
【惡搞程序 惡搞程序代碼】本文到此分享完畢,希望對大家有所幫助 。