qq自动添加好友

阉割版的qq自动添加好友
##使用方法
打开qq添加好友界面

打开这个界面局可以了，不用去点下一步，这个操作交给代码来完成。接着就去添加其他的qq好友，记住，都不需要你点下一步。
然后就是把下面的代码复制到记事本里并保存，文件后缀名为一定要是.vbs。当有多个好友添加界面时，就可以双击刚才保存的那个vbs文件了，接着电脑就会自动运行添加好友了。

代码

On Error Resume Next
Dim wsh
set wsh=createobject(“wscript.shell”)
while wsh.AppActivate(“屋里凡凡 - 添加好友”) '屋里凡凡替换为你的qq名称 while的意思是当识别到有这个窗口的时候他就会工作
for i=1 to 3 '添加好友那里需要3次enter键
wscript.sleep 150 '睡眠时间
wsh.sendKeys “{ENTER}” '模拟键盘enter键
next
wend
wscript.quit

On Error Resume Next 
Dim wsh
set wsh=createobject("wscript.shell") 
while wsh.AppActivate("屋里凡凡 - 添加好友") '屋里凡凡替换为你的qq名称 while的意思是当识别到有这个窗口的时候他就会工作
for i=1 to 3 '添加好友那里需要3次enter键
wscript.sleep 150  '睡眠时间
wsh.sendKeys "{ENTER}" '模拟键盘enter键
next
wend
wscript.quit