开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

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


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

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

查看: 3847|回复: 7
收起左侧

[易语言纯源码] 手机QQ消息盒子源码

[复制链接]
结帖率:0% (0/1)
发表于 2012-6-1 02:00:54 | 显示全部楼层 |阅读模式   广西壮族自治区柳州市
分享源码
界面截图:
是否带模块: -
备注说明: -
原本想自己做来商业销售的,但是想想时间关系还是不放了,源码我就直接发了,自己复制放带易语言里面,缺少什么自己补上去,主要就是登录协议,获取还是发送,懂得POST和GET的应该可以看得懂.,如果是伸手党的话我看抱歉啦,我发的东西你用不了.


登录
  1. .版本 2
  2. .支持库 json
  3. .支持库 ThreadPool_fne
  4. .支持库 spec
  5. .支持库 CnCalendar

  6. .局部变量 QQ号码, 文本型
  7. .局部变量 QQ密码, 文本型
  8. .局部变量 安全码, 文本型
  9. .局部变量 http, WEB客户
  10. .局部变量 返回文本, 文本型
  11. .局部变量 json, JSON
  12. .局部变量 sid, 文本型
  13. .局部变量 extend, 文本型
  14. .局部变量 rsid, 文本型
  15. .局部变量 验证码, 文本型
  16. .局部变量 u_token, 文本型

  17. .判断循环首 (真)
  18.     工作_获取号码 (QQ号码, QQ密码, 安全码)
  19.     _QQ号码 = QQ号码
  20.     验证码 = “”
  21.     .判断循环首 (真)
  22.         .如果 (验证码 = “”)
  23.             http.处理COOKIE (假)
  24.             http.打开 (“GET”, “http://pt.3g.qq.com/json/login3gonly.jsp?qq=” + QQ号码 + “&md5p=” + 密_md5 (到字节集 (QQ密码)) + “&callback=Mqq.util.login.resHandler&r=5485”)
  25.             http.附加协议 (“User-Agent”, “MQQBrowser/3.1/Mozilla/5.0 (Linux; U; Android 4.0.3; zh-cn; HTC One X Build/IML74K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30”)
  26.             http.附加协议 (“Q-UA”, “ADRQB31_GA/310255&AMTT_3/010255&ADR&457414&HTCOneX&73102&6288&Android4.0.3&V3”)
  27.             http.发送 (, 5000, 5000, 5000)
  28.             返回文本 = 编码转换_Utf8转ansi (http.取字节集 ())
  29.             ' 调试输出 (返回文本)
  30.         .否则
  31.             http.处理COOKIE (假)
  32.             http.打开 (“GET”, “http://pt.3g.qq.com/json/login3gonly.jsp?qq=” + QQ号码 + “&md5p=” + 密_md5 (到字节集 (QQ密码)) + “&verify=” + 验证码 + “&r_sid=” + rsid + “&u_token=” + u_token + “&callback=Mqq.util.login.resHandler&r=5485”)
  33.             http.附加协议 (“User-Agent”, “MQQBrowser/3.1/Mozilla/5.0 (Linux; U; Android 4.0.3; zh-cn; HTC One X Build/IML74K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30”)
  34.             http.附加协议 (“Q-UA”, “ADRQB31_GA/310255&AMTT_3/010255&ADR&457414&HTCOneX&73102&6288&Android4.0.3&V3”)
  35.             http.发送 (, 5000, 5000, 5000)
  36.             返回文本 = 编码转换_Utf8转ansi (http.取字节集 ())
  37.             ' 调试输出 (返回文本)
  38.         .如果结束
  39.         .判断开始 (寻找文本 (返回文本, “成功”, , 假) ≠ -1)
  40.             登录验证码中 = 假
  41.             sid = 取指定内容 (返回文本, “sid” + #引号 + “:” + #引号, #引号)  ' 取出SId
  42.             json.解析 (“[]”)
  43.             json.置属性 (“QQ号码”, QQ号码)
  44.             json.置属性 (“sid”, sid)
  45.             队列_工作.加成员 (json)
  46.             线程_判断 = 线程_判断 + 1
  47.             线程池_工作.投递任务 (&线程_发送邮件, 队列_工作.成员数 () - 1, 0)
  48.             调试输出 (QQ号码, QQ密码)
  49.             .如果真 (取文本长度 (验证码) > 2)
  50.                 工作_添加输入 (格式化日期 (取现行时间 (), 字符 (37) + 字符 (121) + 字符 (45) + 字符 (37) + 字符 (109) + 字符 (45) + 字符 (37) + 字符 (100)), 安全码)
  51.             .如果真结束
  52.             跳出循环 ()
  53.         .判断 (寻找文本 (返回文本, “请输入验证码”, , 假) ≠ -1)
  54.             extend = 取指定内容 (返回文本, “extend” + #引号 + “:” + #引号, #引号)
  55.             rsid = 取指定内容 (返回文本, “rsid” + #引号 + “:” + #引号, #引号)
  56.             u_token = 取指定内容 (返回文本, “u_token” + #引号 + “:” + #引号, #引号)
  57.             http.处理COOKIE (假)
  58.             http.打开 (“GET”, extend + “.jpg”)
  59.             http.发送 (, , , )
  60.             图片框1.图片 = http.取字节集 ()
  61.             执行验证码 = 假
  62.             皮肤.置状态栏数据 (窗口_主窗口.取窗口句柄 (), 1, “请输入验证码.”, , #红色)
  63.             编辑框_验证码.禁止 = 假
  64.             编辑框_验证码.内容 = “”
  65.             .判断循环首 (真)
  66.                 .如果真 (群验证码中 = 假)
  67.                     跳出循环 ()
  68.                 .如果真结束

  69.             .判断循环尾 ()
  70.             登录验证码中 = 真
  71.             .判断循环首 (真)
  72.                 .如果真 (取文本长度 (编辑框_验证码.内容) ≥ 4)
  73.                     跳出循环 ()
  74.                 .如果真结束
  75.                 Sleep (5)
  76.             .判断循环尾 ()
  77.             编辑框_验证码.禁止 = 真
  78.             验证码 = 编辑框_验证码.内容
  79.         .判断 (寻找文本 (返回文本, “您填写的帐号或密码不正确”, , 假) ≠ -1)
  80.             登录验证码中 = 假
  81.             工作_处理号码 (QQ号码, “密码错误”)
  82.             跳出循环 ()
  83.         .默认
  84.             登录验证码中 = 假
  85.             工作_处理号码 (QQ号码, “未知问题”)
  86.             跳出循环 ()
  87.         .判断结束

  88.     .判断循环尾 ()
  89.     ' 跳出循环 ()
  90. .判断循环尾 ()
复制代码
消息盒子的代码
  1. .版本 2
  2. .支持库 json
  3. .支持库 spec

  4. .子程序 发送代码
  5. .局部变量 http, WEB客户
  6. .局部变量 发送方式, 整数型
  7. .局部变量 QQ号码, 文本型
  8. .局部变量 ruin, 文本型
  9. .局部变量 i

  10. 发送方式 = 0
  11. QQ号码 = “214980498”
  12. ruin = “bf993e139f826c086ba74108f6282a73”
  13. .如果 (发送方式 = 0)
  14.     i = 5
  15. .否则
  16.     i = 1
  17. .如果结束
  18. .计次循环首 (i, )
  19.     .如果 (发送方式 = 0)
  20.         http.打开 (“POST”, “http://msgbox.imtt.qq.com/?action=sendQQMsg”)
  21.     .否则
  22.         http.打开 (“GET”, “http://msgbox.imtt.qq.com/?action=sendQQMsg&toqqNo=” + QQ号码)
  23.     .如果结束
  24.     http.附加协议 (“User-Agent”, “MQQBrowser/3.1/Adr (Linux; U; 2.3.7; zh-cn; LT26i Build/6.0.A.3.67;720*1280)”)
  25.     http.附加协议 (“Q-UA”, “ADRQB31_GA/310255&AMTT_3/010255&ADR&458014<26i&20201&6288&Android2.3.7&V3”)
  26.     http.附加协议 (“QCookie”, “sid=AY-0GY0VVDWWcUiMiJOkmAkw;”)
  27.     .如果 (发送方式 = 0)
  28.         http.发送 (“msg=QQ%E7%BE%A4%E5%8F%91%E6%B5%8B%E8%AF%95%2C%E4%B8%8D%E8%B8%A2%E4%B8%8B%E7%BA%BF%2C%E4%B8%8D%E5%BD%B1%E5%93%8DQQ%E4%BD%BF%E7%94%A8.&toqqNo=” + QQ号码 + “&flag=1&ruin=” + ruin, , , )
  29.     .否则
  30.         http.发送 (, , , )
  31.     .如果结束
  32.     调试输出 (编码转换_Utf8转ansi (http.取字节集 ()))
  33. .计次循环尾 ()
复制代码

结帖率:100% (13/13)

签到天数: 12 天

发表于 2012-6-1 11:00:20 | 显示全部楼层   广东省广州市
沙发?{:3_226:}
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
 楼主| 发表于 2012-6-1 16:06:04 | 显示全部楼层   广西壮族自治区柳州市
{:3_245:}没有人支持,郁闷啊.
回复 支持 反对

使用道具 举报

结帖率:37% (7/19)
发表于 2012-6-2 18:59:45 | 显示全部楼层   北京市北京市
看一下子吧
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)
发表于 2012-6-2 20:59:56 | 显示全部楼层   黑龙江省绥化市
你是硬骨头还是其它骨头?
回复 支持 反对

使用道具 举报

结帖率:71% (5/7)
发表于 2012-6-2 21:06:54 | 显示全部楼层   四川省广安市
学习下消息手动
回复 支持 反对

使用道具 举报

结帖率:79% (11/14)
发表于 2012-7-12 18:17:16 | 显示全部楼层   广东省广州市
这个是干什么用的
回复 支持 反对

使用道具 举报

结帖率:100% (4/4)
发表于 2013-7-10 12:22:09 | 显示全部楼层   江苏省连云港市
清理i 发远吗好了吧
回复 支持 反对

使用道具 举报

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

本版积分规则 致发广告者

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

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

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