网站首页 > 易语言相关 > 易语言例程 正文
.版本 2 .支持库 xplib .支持库 EThread .支持库 dp1 .程序集 窗口程序集1 .程序集变量 QQ, 文本型 .程序集变量 验证码, 文本型 .程序集变量 验证图, 字节集 .程序集变量 线程句柄, 整数型, , "0" .程序集变量 qq集, 文本型, , "0" .程序集变量 客户, 网络套接字类 .子程序 __启动窗口_创建完毕 XP风格 (1) .子程序 _按钮1_被单击 启动线程 (&登录, , ) .子程序 登录 .局部变量 句柄, 整数型 .局部变量 id, 整数型 .局部变量 返回文本, 文本型 .局部变量 PS, 文本型 置随机数种子 () QQ = 编辑框1.内容 加入成员 (qq集, QQ) PS = 到大写 (取数据摘要 (到字节集 (编辑框2.内容))) 客户.创建 () 客户.绑定 (0) .如果 (客户.连接 (“58.60.12.177”, 14000) = 假) 输出调试文本 (“[” + QQ + “]连接服务器失败!”) 返回 () .否则 .如果结束 客户.发送 (十六进制文本到字节集_光庆版 (文本到十六进制封包 (“VER=1.4&CON=1&CMD=Login&SEQ=” + 到文本 (取随机数 (200, 299)) + “&UIN=” + QQ + “&PS=” + PS + “&M5=1&LG=0&LC=2EC70D1101DB674F&GD=JTAIAHW97YPSYRPV&CKE=”) + “0D0A”)) 启动线程 (&监视封包, id, 句柄) 加入成员 (线程句柄, 句柄) .子程序 监视封包 .参数 id, 整数型 .局部变量 第X条, 整数型 .局部变量 发送内容, 文本型 .局部变量 发送文本分割, 文本型, , "0" .局部变量 seq, 文本型 .局部变量 好友分割, 文本型, , "0" .局部变量 文本, 文本型 .局部变量 数据包, 字节集 .局部变量 a, 整数型 置随机数种子 () .判断循环首 (客户.接收 (数据包, )) 文本 = UTF8转ANSI (数据包) QQ = 取指定内容_MARS (文本, “&UIN=”, “&”) 输出调试文本 (文本) 输出调试文本 (QQ) .如果 (取指定内容_MARS (文本, “&CMD=”, “&”) = “Login”) .如果 (取指定内容_MARS (文本, “&RES=”, “&”) = “0” 且 取指定内容_MARS (文本, “&RS=”, “&”) = “0”) 输出调试文本 (“[” + QQ + “]登录完成,获取好友中...”) 客户.发送 (十六进制文本到字节集_光庆版 (文本到十六进制封包 (“VER=1.4&CON=1&CMD=Query_Stat2&SEQ=” + 到文本 (取随机数 (200, 299)) + “&UIN=” + QQ + “&SID=&XP=C4CA4238A0B92382&CM=2&UN=0”) + “0D0A”)) .否则 输出调试文本 (“[” + QQ + “]” + “登录失败!原因:” + 取指定内容_MARS (文本, “&RA=”, “”)) .如果结束 .否则 .如果 (取指定内容_MARS (文本, “&CMD=”, “&”) = “VERIFYCODE”) .如果 (寻找文本 (文本, “&VC”, , 假) > 0) 输出调试文本 (“[” + QQ + “]需要或再次需要输入验证码”) 输出调试文本 (取指定内容_MARS (文本, “&VC=”, “”)) 验证图 = 十六进制文本到字节集_光庆版 (到大写 (子文本替换 (取指定内容_MARS (文本, “&VC=”, “”), #换行符, “”, , , 真))) 载入 (验证码窗口, , 真) 客户.发送 (十六进制文本到字节集_光庆版 (文本到十六进制封包 (“VER=1.4&CON=1&CMD=VERIFYCODE&SEQ=” + 到文本 (取随机数 (200, 299)) + “&UIN=” + QQ + “&SID=&XP=null&SC=2&VC=” + 验证码) + “0D0A”)) .否则 输出调试文本 (“[” + QQ + “]验证码输入正确。”) .如果结束 .否则 .如果 (取指定内容_MARS (文本, “&CMD=”, “&”) = “QUERY_STAT2”) 好友分割 = 分割文本 (子文本替换 (取指定内容_MARS (文本, “&UN=”, “”), #换行符, “”, , , 真), “,”, ) .如果 (取数组下标 (好友分割, ) = 0) 输出调试文本 (“[” + QQ + “]获取好友完成,没有在线好友。”) 返回 () .否则 输出调试文本 (“[” + QQ + “]获取好友完成,共有” + 到文本 (取数组下标 (好友分割, )) + “名在线好友。”) .如果结束 列表框1.清空 () .计次循环首 (取数组下标 (好友分割, ), a) 列表框1.加入项目 (好友分割 [a], ) .计次循环尾 () .否则 .如果结束 .如果结束 .如果结束 .判断循环尾 () .子程序 _按钮2_被单击 客户.发送 (十六进制文本到字节集_光庆版 (文本到十六进制封包 (“VER=1.4&CON=1&CMD=CLTMSG&SEQ=” + 到文本 (取随机数 (200, 250)) + “&UIN=” + QQ + “&SID=&XP=C4CA4238A0B92382&UN=” + 列表框1.取项目文本 (列表框1.现行选中项) + “&MG=” + 到文本 (ANSI转UTF8 (编辑框3.内容))) + “0D0A”)) .子程序 _编辑框1_被双击, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 编辑框1.被选择字符数 = 取文本长度 (编辑框1.内容) .子程序 _编辑框2_被双击, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 编辑框2.被选择字符数 = 取文本长度 (编辑框2.内容)
@尕尕兔
- 上一篇: 易语言房屋按揭计算器源码
- 下一篇: 易语言手机控制电脑功能源码
猜你喜欢
- 2024-03-16 2024无模块静默取已登录QQ
- 2024-03-16 批量转换PPT为PDF源码
- 2024-03-15 串口相关, 虚拟串口,枚举串口,PCOMM使用
- 2024-03-14 易语言取Unix时间戳源码
- 2024-03-13 易语言源码 安卓 ADB调试桥 真机调试
- 2024-03-11 易语言控件自动缩放源码
- 2024-03-11 文本批量关键词替换源码
- 2024-03-10 Chrome浏览器操作开源,填表?自动化操作?任你发挥
- 2024-03-10 SVG转PNG dll(带易语言调用例程)
- 2024-03-09 雷电枚举进程ID对应模拟器源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有4位网友发表了看法:
火山安卓教程网 评论于 [2019-03-15 10:14:44] 回复
QQ协议源码
易语言教程 评论于 [2019-11-12 19:10:51] 回复
手机qq协议+易语言模块
易语言教程 评论于 [2019-12-06 23:53:20] 回复
易语言qq协议
访客 评论于 [2020-08-05 13:39:11] 回复
为什么需要连接服务器?盗号吗?tcp协议盗号?