恶搞程序代码

恶搞程序代码,第1张

代码如下,复制到记事本,将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

加分哦

一个打飞机的游戏,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=2i<W-2i+=2) {gtxy(zlx+i,zly)  printf("═")}      //打印上横框

for(i=2i<W-2i+=2) {gtxy(zlx+i,zly+H-1)printf("═")}  //打印下横框

for(i=1i<H-1i++) { gtxy(zlx,zly+i) printf("║")}       //打印左竖框

for(i=1i<H-1i++) {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=0i<H-2i++)

for(j=0j<W-4j++){gtxy(zlx+2+j,zly+1+i)printf("空辩 ")}

}

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

{ int i,j

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

  for(j=0j<22j++)

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

{ int i,j

for(i=0i<22i++)

  for(j=0j<22j++)

     { 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=0i<22i++)

for(j=0j<22j++)

{ 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=2break

     case '2': speed=4break

     case '3': speed=5break

     default: gtxy(12,6)printf("  错误!默认值")

   }

gtxy(12,7)printf("选择敌机密度:")

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

switch(getche( ))

     {case '1': density=20break

      case '2': density=30 break

      case '3': density=40break

      default: gtxy(12,9)printf("  错误!默认值")

     }

for(int i=0i<22i++)

 for(int j=0j<22j++) 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则为子d)

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]=1break

        case 77: if(wj<20) jiem[21][wj]=0,jiem[21][++wj]=1 break

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

       case 27: setting( )

      }

   }

   if(++n%density==0)   //控制产生敌机的速度

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

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

     }

    if(++m%speed==0) { feiji( )m=0}  //控制敌机移动速度(相对子d而言)

    zidan( )  //子d移动

    print( )  //输出界面

    Sleep(120)  //延时120毫秒

  }

}

int main( )

{ csh( )

  run( )

  return 0

}

@echo

off

color

0b

mode

con:

cols=80

lines=20

@title=超级病毒

for

/L

%%a

in

(

3,-1,0

)

do

(

for

/l

%%a

in

(1,1,8)

do

echo\

echo

入侵倒计时

%%a

ping

-n

2

127.1

1>nul

2>nul

cls

)

cls

color

40

for

/l

%%a

in

(1,1,8)

do

echo\

echo

正在遭受黑客入侵...

ping

127.1

/n

3

>nul

echo.

echo

警告!警告!电脑已被入侵!!!

ping

127.1

/n

3

>nul

cls

echo.

echo.

echo.

echo

正在删除G盘所有文件...

set

/p

a=">============================================================================

=="<nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=<nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^><nul

ping/n

1

127.1

>nul

)

echo

删除完毕

echo.

echo

正在删除E盘所有文件...

set

/p

a=">============================================================================

=="<nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=<nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^><nul

ping/n

1

127.1

>nul

)

echo

删除完毕

echo.

echo

正在删除D盘所有文件...

set

/p

a=">============================================================================

=="<nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=<nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^><nul

ping/n

1

127.1

>nul

)

echo

删除完毕

echo.

echo

正在删除C盘所有文件...

set

/p

a=">============================================================================

=="<nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=<nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=^><nul

ping/n

1

127.1

>nul

)

echo

删除完毕

echo.

echo

正在删除分区表...

set

/p

a=">============================================================================

=="<nul

for

/l

%%i

in

(1,1,80)

do

(

set

/p

aa=<nul

)

for

/l

%%i

in

(1,1,80)

do

(

set

/衫轿橡p

aa=^><nul

ping/n

1

127.1

>nul

)

echo.

echo

删除完毕

echo.

echo.

echo

正在遭受黑客或旁的炸d袭击帆行!

echo.

echo

电脑崩溃!准备关闭系统!

ping

127.1

/n

3

>nul

shutdown

-s

-t

0

>nul<p>

</p>


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12417868.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-25
下一篇 2023-05-25

发表评论

登录后才能评论

评论列表(0条)

保存