vbs整人代码：发QQ骚扰信息

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

代码如下:
 

1. On Error Resume Next  
2. Dim wsh,ye  
3. set wsh=createobject("wscript.shell")  
4. for i=1 to 10  
5. wscript.sleep 700  
6. wsh.AppActivate("与 xx 聊天中")  
7. wsh.sendKeys "^v"  
8. wsh.sendKeys i  
9. wsh.sendKeys "%s"  
10. next  
11. wscript.quit 

QQ骚扰信息,也可以用在其它程序上。

vbs整人代码使用方法：

新建txt记事本，将vbs整人代码复制到里面，保存为***.vbs格式文件即可。[ 如：显示500个对话框.vbs ]