|
分享源码
界面截图: |
|
是否带模块: |
- |
备注说明: |
QQ群绑定模块源码 |
易语言QQ群绑定验证源码例程程序结合易语言互联网支持库和脚本语言支持组件,实现QQ群绑定登陆验证。
点评:易语言QQ群绑定验证源码是QQ应用例程。
核心代码:
- .版本 2
- .支持库 iext
- .支持库 internet
- .子程序 登录群空间
- .局部变量 文本, 文本型
- .局部变量 昵称, 文本型
- .局部变量 群信息, 文本型
- .局部变量 您创建了, 文本型
- .局部变量 取群, 文本型
- .局部变量 分割群, 文本型, , "0"
- .局部变量 几次, 整数型
- .局部变量 表项数, 整数型
- 超级列表框1.全部删除 ()
- 文本 = UTF8转ANSI (HTTP读文件 (“http://qun.qq.com/air/?w=n&_=0.012932301905058563”))
- 取群 = 取指定内容 (文本, “class=” + #引号 + “undis” + #引号 + “>” + #换行符, #换行符 + “ </div>”)
- 清除数组 (分割群)
- 分割群 = 分割文本 (取群, #换行符, )
- .计次循环首 (取数组成员数 (分割群), 几次)
- .如果真 (寻找文本 (分割群 [几次], “rev=”, , 假) ≠ -1)
- 表项数 = 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () + 1), , , , )
- 超级列表框1.置标题 (表项数, 0, 取指定内容 (分割群 [几次], “rev=” + #引号 + “#”, #引号))
- .如果真结束
- .计次循环尾 ()
- .如果 (超级列表框1.查找表项 (编辑框1.内容, 0, 真, ) = -1) ' 绑定所在QQ群号
- 信息框 (“验证失败2”, 0, )
- .否则
- 载入 (窗口3, , 假)
复制代码
|
|