当前位置:源码库-建站教程-脚本之家-vbs-vbs整人代码:发QQ骚扰信息

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

时间:2016-03-07来源:www.aspku.com 作者:脚本之家文章热度:

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

相关vbs
相关资源下载
热门标签