整个代码，戏弄一下你的朋友吧

**

整人代码

**

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

三、打开无数个计算器，直到死机

set wsh=createobject(“wscript.shell”) do wsh.run “calc” loop

四、直接关机

dim WSHshell set WSHshell = wscript.createobject(“wscript.she