易语言获取网页端的好友管理页面信息导出QQ好友的代码
2018-12-03 09:26
621 查看
全局变量表
.版本 2 .全局变量 Cookie_Overall, 文本型 .全局变量 BKN_Overall, 文本型
QQ快捷启动的代码
.版本 2 .程序集 窗口程序集_窗口1 .子程序 _超文本浏览框1_跳转完毕 .局部变量 Cookie, 文本型 .局部变量 Uin, 文本型 .局部变量 Skey, 文本型 Cookie = 网页_取Cookie (“qun.qq.com”) .如果真 (寻找文本 (Cookie, “p_skey”, , 假) ≠ -1) Uin = 文本_取出中间文本 (Cookie, “p_uin=o”, “;”) Skey = 文本_取出中间文本 (Cookie, “skey=”, “;”) BKN_Overall = Get_BKN (Skey) Cookie_Overall = Cookie _启动窗口.按钮_快速登录.标题 = “已登录” _启动窗口.标签_QQ号码.标题 = “QQ号码:” + 到文本 (到整数 (Uin)) _启动窗口.图片框1.图片 = Get_QQHEAD (Uin) 初始化 () 销毁 () .如果真结束
获取代码
.版本 2 .程序集 程序集1 .子程序 Get_BKN, 文本型 .参数 Skey, 文本型 .局部变量 基值, 整数型 .局部变量 计数, 整数型 .局部变量 长度, 整数型 .局部变量 结果, 整数型 基值 = 5381 计数 = 0 长度 = 取文本长度 (Skey) .判断循环首 (计数 < 长度) 基值 = 基值 + 左移 (基值, 5) + 取代码 (Skey, 计数 + 1) 计数 = 计数 + 1 .判断循环尾 () 结果 = 位与 (基值, 2147483647) 返回 (到文本 (结果)) .子程序 Get_QQHEAD, 字节集 .参数 Uin, 文本型 .局部变量 Url, 文本型 Url = “http://q4.qlogo.cn/g?b=qq&nk=” + Uin + “&s=140” 返回 (网页_访问 (Url)) .子程序 Get_Friend_List, 文本型 .参数 Cookie, 文本型 .参数 BKN, 文本型 .局部变量 Url, 文本型 .局部变量 Post, 文本型 .局部变量 Ret, 文本型 Url = “http://qun.qq.com/cgi-bin/qun_mgr/get_friend_list” Post = “bkn=” + BKN Ret = 编码_Utf8到Ansi (网页_访问 (Url, 1, Post, Cookie)) 返回 (Ret)
QQ好友导出的代码
此功能需要加载精易模块5.6
.版本 2 .支持库 iext .支持库 eExcel2000 .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 图片框1.图片 = #QQ头像 .子程序 初始化 .局部变量 Ret, 文本型 .局部变量 Json, 类_json .局部变量 i1, 整数型 .局部变量 i2, 整数型 .局部变量 Gname, 文本型 .局部变量 Name, 文本型 .局部变量 Uin, 文本型 .局部变量 s, 整数型 超级列表框1.全部删除 () Ret = Get_Friend_List (Cookie_Overall, BKN_Overall) Json.解析 (Ret) .计次循环首 (15, i1) Gname = Json.取通用属性 (“result[” + 到文本 (i1 - 1) + “].gname”) .如果真 (Gname = “”) Gname = “我的好友” .如果真结束 .计次循环首 (Json.成员数 (“result[” + 到文本 (i1 - 1) + “].mems”), i2) Name = Json.取通用属性 (“result[” + 到文本 (i1 - 1) + “].mems[” + 到文本 (i2 - 1) + “].name”) Uin = Json.取通用属性 (“result[” + 到文本 (i1 - 1) + “].mems[” + 到文本 (i2 - 1) + “].uin”) s = 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (s, 0, 到文本 (s + 1)) 超级列表框1.置标题 (s, 1, Uin) 超级列表框1.置标题 (s, 2, Name) 超级列表框1.置标题 (s, 3, Gname) .计次循环尾 () .计次循环尾 () .子程序 _按钮_快速登录_被单击 载入 (窗口1, , 假) .子程序 _按钮_注销登录_被单击 网页_清除Cookie (“qun.qq.com”) Cookie_Overall = “” BKN_Overall = “” 按钮_快速登录.标题 = “快速登录” 标签_QQ号码.标题 = “QQ号码:未登录” 图片框1.图片 = #QQ头像 超级列表框1.全部删除 () 信息框 (“注销登录成功”, 0, ) .子程序 _按钮_全部选中_被单击 .局部变量 i, 整数型 .计次循环首 (超级列表框1.取表项数 (), i) 超级列表框1.置状态图片 (i - 1, 1) .计次循环尾 () .子程序 _按钮_全部不选_被单击 .局部变量 i, 整数型 .计次循环首 (超级列表框1.取表项数 (), i) 超级列表框1.置状态图片 (i - 1, -1) .计次循环尾 () .子程序 _按钮_导出全部_被单击 通用对话框1.初始目录 = 取运行目录 () 通用对话框1.类型 = 1 通用对话框1.默认文件后缀 = “.xls” 通用对话框1.过滤器 = “Excel文件(*.xls)|*.xls|文本文件(*.txt)|*.txt” 通用对话框1.文件名 = 文本_取右边 (标签_QQ号码.标题, “QQ号码:”) .如果真 (通用对话框1.打开 ()) .如果真 (倒找文本 (通用对话框1.文件名, “.xls”, , 假) ≠ -1) 导出Excel (通用对话框1.文件名, 真) .如果真结束 .如果真 (倒找文本 (通用对话框1.文件名, “.txt”, , 假) ≠ -1) 导出Txt (通用对话框1.文件名, 真) .如果真结束 信息框 (“保存成功”, 0, ) .如果真结束 .子程序 _按钮_导出选中_被单击 通用对话框1.初始目录 = 取运行目录 () 通用对话框1.类型 = 1 通用对话框1.默认文件后缀 = “.xls” 通用对话框1.过滤器 = “Excel文件(*.xls)|*.xls|文本文件(*.txt)|*.txt” 通用对话框1.文件名 = 文本_取右边 (标签_QQ号码.标题, “QQ号码:”) .如果真 (通用对话框1.打开 ()) .如果真 (倒找文本 (通用对话框1.文件名, “.xls”, , 假) ≠ -1) 导出Excel (通用对话框1.文件名, 假) .如果真结束 .如果真 (倒找文本 (通用对话框1.文件名, “.txt”, , 假) ≠ -1) 导出Txt (通用对话框1.文件名, 假) .如果真结束 信息框 (“保存成功”, 0, ) .如果真结束 .子程序 导出Txt .参数 文件名, 文本型 .参数 全部, 逻辑型 .局部变量 i, 整数型 .局部变量 Uin, 文本型 .局部变量 Name, 文本型 .局部变量 Gname, 文本型 .局部变量 Str, 文本型 .如果真 (全部 = 真) .计次循环首 (超级列表框1.取表项数 (), i) Uin = 超级列表框1.取标题 (i - 1, 1) Name = 超级列表框1.取标题 (i - 1, 2) Gname = 超级列表框1.取标题 (i - 1, 3) Str = Str + Uin + “----” + Name + “----” + Gname + #换行符 .计次循环尾 () .如果真结束 .如果真 (全部 = 假) .计次循环首 (超级列表框1.取表项数 (), i) .如果真 (超级列表框1.取当前状态图片 (i - 1) = 1) Uin = 超级列表框1.取标题 (i - 1, 1) Name = 超级列表框1.取标题 (i - 1, 2) Str = Str + Uin + “----” + Name + “----” + Gname + #换行符 .如果真结束 .计次循环尾 () .如果真结束 写到文件 (文件名, 到字节集 (Str)) .子程序 导出Excel .参数 文件名, 文本型 .参数 全部, 逻辑型 .局部变量 Data_Head, 文本型, , "0" .局部变量 i1, 整数型 .局部变量 i2 Excel程序1.创建 () Excel工作簿1.置程序 (Excel程序1) Excel工作簿1.激活工作簿 () Excel工作簿1.表格序号 = 1 Data_Head = { “QQ号码”, “QQ昵称”, “QQ分组” } .计次循环首 (取数组成员数 (Data_Head), i1) Excel工作簿1.首单元格 = 字符 (97 + i1 - 1) + 到文本 (1) Excel工作簿1.尾单元格 = 字符 (97 + i1 - 1) + 到文本 (1) Excel工作簿1.内容格式 = “@” Excel工作簿1.内容 = Data_Head [i1] Excel工作簿1.列宽 = 20 .计次循环尾 () .如果真 (全部 = 真) .计次循环首 (超级列表框1.取表项数 (), i2) 处理事件 () .计次循环首 (取数组成员数 (Data_Head), i1) Excel工作簿1.首单元格 = 字符 (97 + i1 - 1) + 到文本 (i2 + 1) Excel工作簿1.尾单元格 = 字符 (97 + i1 - 1) + 到文本 (i2 + 1) Excel工作簿1.内容格式 = “@” Excel工作簿1.内容 = 超级列表框1.取标题 (i2 - 1, i1) .计次循环尾 () .计次循环尾 () .如果真结束 .如果真 (全部 = 假) .计次循环首 (超级列表框1.取表项数 (), i2) .如果真 (超级列表框1.取当前状态图片 (i2 - 1) = 1) 处理事件 () .计次循环首 (取数组成员数 (Data_Head), i1) Excel工作簿1.首单元格 = 字符 (97 + i1 - 1) + 到文本 (i2 + 1) Excel工作簿1.尾单元格 = 字符 (97 + i1 - 1) + 到文本 (i2 + 1) Excel工作簿1.内容格式 = “@” Excel工作簿1.内容 = 超级列表框1.取标题 (i2 - 1, i1) .计次循环尾 () .如果真结束 .计次循环尾 () .如果真结束 Excel工作簿1.保存 (文件名) Excel工作簿1.关闭 () Excel工作簿1.释放 () Excel程序1.退出 () Excel程序1.释放 () .子程序 __启动窗口_可否被关闭, 逻辑型 .局部变量 按钮, 整数型 按钮 = 信息框 (“是否关闭软件”, #询问图标 + #是否钮, ) .如果真 (按钮 = #是钮) 结束 () .如果真结束 返回 (假)
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接
您可能感兴趣的文章:
- 易语言调用api实现文件拖放获取路径的代码
- 易语言修改指定网页为浏览器主页的代码
- 易语言通过模拟的方式实现对微信的视频图片消息发送的代码
- 易语言实现批量文本替换操作的代码
- 易语言调用百度api识别是否为色情图片的代码
- 易语言实现163邮箱登录获取邮件列表等操作的代码
- 易语言调用ESPI11.dll实现禁止指定程序访问网络的代码
- 易语言通过算法计算出酷狗音乐下载地址的代码
- 易语言调用api获取网卡信息网络连接名的代码
- 易语言制作绝地求生视野一键优化的代码
- 易语言制作王者荣耀刷金币脚本的代码
- 易语言制作连连看小游戏的代码
- 易语言通过解析破解艾奇学院的收费视频的代码
- 易语言制作语音聊天机器人的代码
- 易语言通过百度ocr接口识别图片记录微信转账金额的代码
相关文章推荐
- 易语言获取网页端的好友管理页面信息导出QQ好友的代码
- 易语言通过读取文件获取WIFI信息的代码
- 网页中嵌套QQ代码设置在线状态无需加好友聊天
- 10行代码在C#中获取页面元素布局信息
- Powershell 获取特定的网页信息的代码
- 易语言通过百度错误页面获取北京时间的代码
- 爬取网页时自动获取网页编码信息,并对特殊的乱码页面(压缩过的网页内容)用gzip进行解码。
- 微信公众号开发——网页授权 (页面分享 、获取用户基本信息)
- QQ交谈代码一键加好友开网页聊天代码
- BDF2-JAVA代码以及view页面获取当前登录用户的信息
- 易语言获取计算机硬盘信息的代码
- VC如何获取QQ好友发来的信息
- 教大家利用QQ网页协议的方式,获取本地登录的QQ号(附代码)
- 微信快速开发框架V2.3--增加语音识别及网页获取用户信息(八),代码已更新至Github
- 豆瓣2100部动漫页面的网页源码(包括评分,导演,类型,简介等信息,附抓取代码)
- 微信网页第三方登陆 获取用户信息 代码
- 关于手机QQ-好友的秘密 发送秘密者的位置信息获取
- bootstrap table之通用方法( 时间控件,导出,动态下拉框, 表单验证 ,选中与获取信息)代码分享
- 获取QQ好友共同好友列表信息