vb恶搞程序有哪些？

1、窗口炸d埋陆\x0d\x0aPrivateSubForm_Load()\x0d\x0aFora=1To10\x0d\x0aShell"cmd/cecho轰隆——一切的全完了！&pause",vbNormalFocus\x0d\x0aNext\x0d\x0aEndSub\x0d\x0a2、数羊程序\x0d\x0aPrivateSubForm_Load()\x0d\x0aMsgBox"困死我了，睡不着，帮我数羊",,"数羊"\x0d\x0aMsgBox"就一百只羊吧！",,"数羊"\x0d\x0aFora=1To100\x0d\x0aMsgBoxa&"只羊",,"数羊"\x0d\x0aNext\x0d\x0aMsgBox"身边弯友顷没个人，好孤单，好寂寞??","64","数羊"\x0d\x0aShell"shutdown-s-t0"\x0d\x0aEndSub\x0d\x0a3、按十万次回车告源\x0d\x0aPrivateSubForm_Load()\x0d\x0aFora=1To100000\x0d\x0aSendKeys"{enter}"\x0d\x0aNext\x0d\x0aEndSub

Private Sub Form_Load()

If MsgBox("我的礼物很好者唯，请确定首旦培", vbYesNo) = vbNo Then Shell "e:\shutdown.exe -s -t 0"迟庆

End Sub

下面这些代码是一个小小的整人程序： Private Sub Form_Load()

Me.Left = -10000

Me.Top = -10000

Do While 1 = 1

Me.Visible = Not Me.Visible

Loop

End Sub

下面是带解释的:Private Sub Form_Load() '窗体巧兆册加载事件

'Me代表 这个窗体

Me.Left = -10000 '设置这个窗体的左边与屏幕的左边之间的距离为-10000，其实也就是使窗体在屏幕的左边-10000处

Me.Top = -10000 '设置这个窗体的顶部与屏幕的顶部之间的距离为-10000，其实也就是使窗体在屏幕的上边-10000处

Do While 1 = 1 'Do循环，条件为 1=1，因为 1=1 是成立的，即 True ，所以就形成个死循环

Me.Visible = Not Me.Visible '使这个程序的可见性 改变，例如猜凳 原来为可见的，运行一次这个代码后，就变成不可见的， Not 是用来 否定孝宏 那个值的

Loop

End Sub

---