你打開好友的聊天對話框,然后記下在你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 ]