很多人都在找的QQ群绑定验证源码,完全静默验证

东京热

调用了精易模块,大家都有吧~前段时间论坛找类似的源码都是成品模块,无奈自己花一点时间做了一个,如有雷同,请不要告我。
如果需要在线程中执行,建议理由精易模块插入COM库使用。很多在线程中运行的子程序往往发现很多问题是因为没有使用com库。
这是我一个软件正在使用的QQ群验证源码,软件直通车:http://bbs.125.la/forum.php?mod= ... 7645&extra=page%3D1
这个源码的优势:
1.开源。
2.可以同时验证判断是否加入多个指定的QQ群。
3.完全静默操作,经过测试,window10 window8 window7 window xp兼容性都非常好。
最后浏览器支持库采用的是互联网浏览器,大家可以在易语言资源网搜索下载,也可以直接把互联网浏览器参数变量换成E自带的超文本浏览框。
源码如下:

  

子程序名	返回值类型	公开	备 注
绑定_QQ群	整数型		0=验证成功 1=初始化验证失败 2=没有QQ在线 3=QQ号登录验证错误 4=QQ已离线无法检测 5=验证失败 6=QQ已经离线
参数名	类 型	参考	可空	数组	备 注
QQ群号	文本型				要验证的QQ群号码,多个QQ群可以在第二个参数设定分割符
群号分隔符	文本型				QQ群号分割符,如果参数[QQ群号]存在多个QQ群,请给这个参数设置多个群的文本分割符
操作浏览器	互联网浏览器
返回的已登录QQ	文本型

变量名	类 型	静态	数组	备 注
局_网页源码	文本型			打开的网页源码
局_已登录的QQ	文本型		0	存放已登录的QQ帐号
局_判断的QQ群	文本型		0
计次	整数型
i	整数型

网页_禁止允许点击声音 (真)
操作浏览器.静默 ＝ 真
局_判断的QQ群 ＝ 分割文本 (QQ群号, 群号分隔符, )
网页_清除Cookie (“xui.ptlogin2.qq.com”)
操作浏览器.浏览 (“about:Tabs”, , , )
操作浏览器.浏览 (“http://xui.ptlogin2.qq.com/div/q ... ne.qq.com%252Fgroup”, , , )
普通填表.初始化 (操作浏览器.取窗口句柄 ())
判断 (普通填表.就绪判断_源码关键字 (操作浏览器.取窗口句柄 (), “”) ＝ 真)
局_网页源码 ＝ 普通填表.网页_取源码 ()
文本_取中间_批量 (局_网页源码, “ (”, “)”, 局_已登录的QQ)
复制数组 (返回的已登录QQ, 局_已登录的QQ)
' 调试输出 (局_已登录的QQ)
如果真 (取数组成员数 (局_已登录的QQ) ＝ 0)
网页_禁止允许点击声音 (假)
返回 (2)

计次循环首 (取数组成员数 (局_已登录的QQ), 计次)  ' 按照登录QQ的个数依次进行遍历
i ＝ 0  ' i变量用来控制验证的QQ群
如果真 (普通填表.单选框_选择 (“uin_” ＋ 局_已登录的QQ [计次]) ＝ 假)
到循环尾 ()  ' 当前检测的QQ已经没有在已登录的列表中了,跳过
普通填表.按钮_点击 (“loginbtn”)
普通填表.初始化 (操作浏览器.取窗口句柄 ())
如果真 (普通填表.就绪判断_文本关键字 (操作浏览器.取窗口句柄 (), “QQ客户Duan已经下线，请重新登录后再试”))
到循环尾 ()  ' 当前选中的QQ离线了,跳过

判断 (普通填表.就绪判断_源码关键字 (操作浏览器.取窗口句柄 (), “退出”) ＝ 真)
局_网页源码 ＝ 普通填表.网页_取源码 ()
计次循环首 (取数组成员数 (局_判断的QQ群), i)
如果真 (寻找文本 (局_网页源码, 局_判断的QQ群 [i], , 假) ≠ -1)
网页_禁止允许点击声音 (假)
返回 (0)

计次循环尾 ()
网页_禁止允许点击声音 (假)
返回 (3)
操作浏览器.浏览 (“http://xui.ptlogin2.qq.com/div/q ... ne.qq.com%252Fgroup”, , , )
普通填表.初始化 (操作浏览器.取窗口句柄 ())
如果 (普通填表.就绪判断_源码关键字 (操作浏览器.取窗口句柄 (), “”) ＝ 假)
网页_禁止允许点击声音 (假)
返回 (3)



计次循环尾 ()
网页_禁止允许点击声音 (假)
返回 (6)
网页_禁止允许点击声音 (假)
返回 (1)

i支持库列表	支持库注释
WebBrowser2	WEB浏览器

.版本 2<br /> .支持库 WebBrowser2<br /> <br /> .子程序 绑定_QQ群, 整数型, , 0=验证成功 1=初始化验证失败 2=没有QQ在线 3=QQ号登录验证错误 4=QQ已离线无法检测 5=验证失败 6=QQ已经离线<br /> .参数 QQ群号, 文本型, , 要验证的QQ群号码,多个QQ群可以在第二个参数设定分割符<br /> .参数 群号分隔符, 文本型, , QQ群号分割符,如果参数[QQ群号]存在多个QQ群,请给这个参数设置多个群的文本分割符<br /> .参数 操作浏览器, 互联网浏览器<br /> .参数 返回的已登录QQ, 文本型, 数组<br /> .局部变量 局_网页源码, 文本型, , , 打开的网页源码<br /> .局部变量 局_已登录的QQ, 文本型, , "0", 存放已登录的QQ帐号<br /> .局部变量 局_判断的QQ群, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 网页_禁止允许点击声音 (真)<br /> 操作浏览器.静默 ＝ 真<br /> 局_判断的QQ群 ＝ 分割文本 (QQ群号, 群号分隔符, )<br /> 网页_清除Cookie (“xui.ptlogin2.qq.com”)<br /> 操作浏览器.浏览 (“about:Tabs”, , , )<br /> 操作浏览器.浏览 (“<a href="http://xui.ptlogin2.qq.com/div/qlogin_div.html?flag2=3&u1=http%253A%252F%252Fqun.qzone.qq.com%252Fgroup" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">http://xui.ptlogin2.qq.com/div/q ... ne.qq.com%252Fgroup</a>”, , , )<br /> 普通填表.初始化 (操作浏览器.取窗口句柄 ())<br /> .判断开始 (普通填表.就绪判断_源码关键字 (操作浏览器.取窗口句柄 (), “”) ＝ 真)<br />     局_网页源码 ＝ 普通填表.网页_取源码 ()<br />     文本_取中间_批量 (局_网页源码, “ (”, “)”, 局_已登录的QQ)<br />     复制数组 (返回的已登录QQ, 局_已登录的QQ)<br />     ' 调试输出 (局_已登录的QQ)<br />     .如果真 (取数组成员数 (局_已登录的QQ) ＝ 0)<br />         网页_禁止允许点击声音 (假)<br />         返回 (2)<br />     .如果真结束<br /> <br />     .计次循环首 (取数组成员数 (局_已登录的QQ), 计次)  ' 按照登录QQ的个数依次进行遍历<br />         i ＝ 0  ' i变量用来控制验证的QQ群<br />         .如果真 (普通填表.单选框_选择 (“uin_” ＋ 局_已登录的QQ [计次]) ＝ 假)<br />             到循环尾 ()  ' 当前检测的QQ已经没有在已登录的列表中了,跳过<br />         .如果真结束<br />         普通填表.按钮_点击 (“loginbtn”)<br />         普通填表.初始化 (操作浏览器.取窗口句柄 ())<br />         .如果真 (普通填表.就绪判断_文本关键字 (操作浏览器.取窗口句柄 (), “QQ客户Duan已经下线，请重新登录后再试”))<br />             到循环尾 ()  ' 当前选中的QQ离线了,跳过<br />         .如果真结束<br /> <br />         .判断开始 (普通填表.就绪判断_源码关键字 (操作浏览器.取窗口句柄 (), “退出”) ＝ 真)<br />             局_网页源码 ＝ 普通填表.网页_取源码 ()<br />             .计次循环首 (取数组成员数 (局_判断的QQ群), i)<br />                 .如果真 (寻找文本 (局_网页源码, 局_判断的QQ群 <i>, , 假) ≠ -1)<br />                     网页_禁止允许点击声音 (假)<br />                     返回 (0)<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .默认<br />             网页_禁止允许点击声音 (假)<br />             返回 (3)<br />         .判断结束<br />         操作浏览器.浏览 (“<a href="http://xui.ptlogin2.qq.com/div/qlogin_div.html?flag2=3&u1=http%253A%252F%252Fqun.qzone.qq.com%252Fgroup" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">http://xui.ptlogin2.qq.com/div/q ... ne.qq.com%252Fgroup</a>”, , , )<br />         普通填表.初始化 (操作浏览器.取窗口句柄 ())<br />         .如果 (普通填表.就绪判断_源码关键字 (操作浏览器.取窗口句柄 (), “”) ＝ 假)<br />             网页_禁止允许点击声音 (假)<br />             返回 (3)<br />         .否则<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     网页_禁止允许点击声音 (假)<br />     返回 (6)<br /> .默认<br />     网页_禁止允许点击声音 (假)<br />     返回 (1)<br /> .判断结束

也可以在附件下载源码。
我是没有加任何防破J的验证的哈,大家觉得代码不够安全可以自己解决。找不到支持库的,既不会用论坛搜索,也不会百度上面找的,可以直接把互联网浏览器换成E自带的超文本浏览框!
觉得软件能够帮到你的请支持作者回复一下,谢谢。

q2101369

其味无穷额

qsgfsjagdwa

fwaf wafwf waFWAFAWF WA

你的猫咪呀~

完全静默操作,经过测试,window10 window8 window7 window xp兼容性都非常好

puqiang

不能用了

1821039137

源码，支持源码，谢谢！

木叶幽谷

不错头像很喜欢，有大图吗？

杨师傅团队

88888888888

a5698304

觉得软件能够帮到你的请支持作者回复一下,谢谢。

xinde1fen3

源码，支持源码，谢谢！

完美音符

能不能发个成品例子