开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 5087|回复: 12
收起左侧

【qq】验证是否已经加入qq群

[复制链接]
结帖率:100% (2/2)
发表于 2018-6-2 07:09:29 | 显示全部楼层 |阅读模式   河北省石家庄市
欢迎加入交流群 664039698
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
qq群号码文本型  
验证中逻辑型  

子程序名返回值类型公开备 注
_按钮1_被单击  

子程序名返回值类型公开备 注
GTK文本型 
参数名类 型参考可空数组备 注
skey文本型
变量名类 型静态数组备 注
基值整数型 
计数整数型 
长度整数型 
结果整数型 
基值 = 5381
计数 = 0
长度 = 取文本长度 (skey)
判断循环首 (计数 < 长度)
基值 = 基值 + 左移 (基值, 5)取代码 (skey, 计数 + 1)
计数 = 计数 + 1
判断循环尾 ()
结果 = 位与 (基值, 2147483647)
返回 (到文本 (结果))
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
网页_清除Cookie (“qun.qzone.qq.com”)
qq群号码 = “664039698”
超文本浏览框1.地址 = “qun.qzone.qq.com”
子程序名返回值类型公开备 注
_超文本浏览框1_标题被改变  
如果真 (http://qun.qzone.qq.com/group = 超文本浏览框1.地址 验证中 = )
验证中 = 真
超文本浏览框1.可视 = 假
标签1.可视 = 真
标签1.标题 = “正在验证 请稍等”
子程序_QQ ()

子程序名返回值类型公开备 注
子程序_QQ  
变量名类 型静态数组备 注
qq文本型 
tk文本型 
cookie文本型 
返回文本文本型 
cookie = 网页_取Cookie (“qun.qzone.qq.com”)
' __Q_w_s__QZN_TodoMsgCnt=1; p_uin=o1377093782; pt4_token=oj-sjJhiqL-Q*tdokb4rUY2Isy-3ygW19-zAKmqmnj8_; pgv_pvi=395331584; pgv_si=s9846514688; _qpsvr_localtk=0.9414633541213728; pt2gguin=o1377093782; uin=o1377093782; skey=@YSa2NzTPP; RK=Huh8i6zURo; ptcz=a7679aba3c468dc7bde7c8209995871ee3872748eab58cb62df1acb17bd1947a
qq = 文本_取出中间文本 (cookie, “p_uin=o”, “;”, , )
tk = GTK (文本_取出中间文本 (cookie, “skey=”, “;”, , ))
调试输出 (qq, tk)
返回文本 = 到文本 (网页_访问 (http://qun.qzone.qq.com/cgi-bin/get_group_list?uin= + qq + “&ua=Mozilla%2F5.0%20(Windows%20NT%2010.0%3B%20WOW64%3B%20Trident%2F7.0%3B%20.NET4.0C%3B%20.NET4.0E%3B%20.NET%20CLR%202.0.50727%3B%20.NET%20CLR%203.0.30729%3B%20.NET%20CLR%203.5.30729%3B%20rv%3A11.0)%20like%20Gecko&random=0.24857063687433956&g_tk=” + tk, , , cookie, ))
返回文本 = 编码_URL解码 (返回文本, )
调试输出 (返回文本)
判断 (寻找文本 (返回文本, #常量_groupid + qq群号码, , ) ≠ -1)
提示框 (“验证成功”)
程序_重启 (, )

提示框 (“验证失败”)


i支持库列表   支持库注释   
HtmlView超文本浏览框支持库
spec特殊功能支持库



补充内容 (2018-6-6 20:39):
groupid":

补充内容 (2018-6-6 20:40):
#常量_groupid        groupid":

结帖率:50% (1/2)
发表于 2018-11-28 14:29:52 | 显示全部楼层   广东省东莞市
我可以自己写 吗???
回复 支持 反对

使用道具 举报

发表于 2018-7-27 11:41:19 | 显示全部楼层   山西省临汾市
好使么                     
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)
发表于 2018-7-26 14:51:38 | 显示全部楼层   河南省郑州市
学习了学习了
回复 支持 反对

使用道具 举报

结帖率:0% (0/2)
发表于 2018-7-6 10:29:12 | 显示全部楼层   湖南省娄底市
66666666666666666666666
回复 支持 反对

使用道具 举报

发表于 2018-7-5 21:55:57 | 显示全部楼层   广东省广州市
感谢666666666666666666
回复 支持 反对

使用道具 举报

结帖率:42% (5/12)

签到天数: 22 天

发表于 2018-6-16 15:26:40 | 显示全部楼层   湖南省永州市
能上传的完整些吗
回复 支持 反对

使用道具 举报

发表于 2018-6-15 20:23:54 | 显示全部楼层   河南省安阳市
这汇编代码咋做到的呢
回复 支持 反对

使用道具 举报

签到天数: 7 天

发表于 2018-6-14 11:29:56 | 显示全部楼层   吉林省长春市
感谢分享   
回复 支持 反对

使用道具 举报

发表于 2018-6-7 20:06:46 | 显示全部楼层   河南省安阳市
666666666666666666
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)
 楼主| 发表于 2018-6-6 20:40:11 | 显示全部楼层   北京市北京市
一把小钢刀 发表于 2018-6-6 10:00
这个源码咋全是问题啊, #常量_groupid 是多少。。。上传个附件吧

#常量_groupid        groupid":
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表