易语言实现163邮箱登录获取邮件列表等操作的代码_易语言163邮箱

1星 6 浏览量更新于2023-03-16 评论收藏 90KB PDF 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

易语言实现易语言实现163邮箱登录获取邮件列表等操作的代码邮箱登录获取邮件列表等操作的代码

今天小编就为大家分享一篇关于易语言实现163邮箱登录获取邮件列表等操作的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来

看看吧

常量数据表常量数据表

.版本 2

.常量提交参数, "<文本长度: 98>"

.常量协议头, "<文本长度: 386>"

.常量邮件post, "<文本长度: 383>"

全局变量表全局变量表

.版本 2

.全局变量全_Cookies, 文本型

.全局变量 sid, 文本型

.全局变量全_Email, 文本型

登陆程序集登陆程序集

.版本 2

.程序集窗口程序集_启动窗口

.子程序 _登陆按钮_被单击

.局部变量文本, 文本型

.局部变量 post, 文本型

.局部变量 b, 文本型

.局部变量 aaa, 文本型

.局部变量协议头, 文本型

全_Cookies ＝网页_取Cookie (“mail.163.com”, )

文本＝编码_Utf8到Ansi (网页_访问_对象 (“https://reg.163.com/logins.jsp?username=” ＋邮箱编辑框.内容＋ “&password=” ＋密码编辑框.内容＋ “&url=http://mail.163.com/entry/cgi/ntesdoor”, , , 全_Cookies, b, , aaa))

全_Cookies ＝网页_Cookie合并更新 (全_Cookies, b)

文本＝编码_Utf8到Ansi (网页_访问_对象 (“http://mail.163.com/entry/cgi/ntesdoor?username=” ＋邮箱编辑框.内容, , , 全_Cookies, b, , aaa, , 真))

全_Cookies ＝网页_Cookie合并更新 (全_Cookies, b)

sid ＝文本_取出中间文本 (网页_取单条Cookie (全_Cookies, “Coremail”, 真), “%”, “%”)

.判断开始 (sid ≠ “”)

全_Email ＝邮箱编辑框.内容

信息框 (“登录成功”, 0, )

载入 (窗口1, , 假)

_启动窗口.销毁 ()

.默认

信息框 (“登录失败”, 0, )

.判断结束

获取邮件列表等操作的代码获取邮件列表等操作的代码

此功能需要加载精易模块5.6

.版本 2

.支持库 EThread

.支持库 iext

.支持库 RegEx

.支持库 spec

.程序集窗口程序集_窗口1

.程序集变量 json, 类_json

.程序集变量邮箱列表, 文本型, , "0"

.子程序 _窗口1_创建完毕

启动线程 (&读取邮件, , )

.子程序读取邮件

.局部变量 post, 文本型

.局部变量文本, 文本型

.局部变量 i, 整数型

.局部变量索引, 整数型

.局部变量发送者, 文本型

.局部变量发件者Email, 文本型

post ＝ “fid=1&start=0&limit=20&thread=false”

文本＝编码_Utf8到Ansi (网页_访问 (“http://mail.163.com/jy6/xhr/list/list.do?sid=” ＋ sid, 1, post, 全_Cookies, , , , ))

json.解析 (文本)

.计次循环首 (json.成员数 (“data”), i)

索引＝超级列表框1.插入表项 (, 到文本 (i), , , , )

超级列表框1.置标题 (索引, 1, 文本_取出中间文本 (json.取通用属性 (“data[” ＋到文本 (i － 1) ＋ “].mid”, 真), #引号, #引号))

超级列表框1.置标题 (索引, 2, 文本_取出中间文本 (json.取通用属性 (“data[” ＋到文本 (i － 1) ＋ “].subject”, 真), #引号, #引号))

发件者Email ＝文本_取出中间文本 (json.取通用属性 (“data[” ＋到文本 (i － 1) ＋ “].from”, 真), “<”, “>”)

发送者＝文本_取出中间文本 (json.取通用属性 (“data[” ＋到文本 (i － 1) ＋ “].from”, 真), “\” ＋ #引号, “\”)

.如果 (发送者＝ “”)

超级列表框1.置标题 (索引, 3, 文本_取出中间文本 (json.取通用属性 (“data[” ＋到文本 (i － 1) ＋ “].from”, 真), #引号, “@”))

.否则

超级列表框1.置标题 (索引, 3, 发送者)

.如果结束

.如果 (发件者Email ＝ “”)

超级列表框1.置标题 (索引, 4, 文本_取出中间文本 (json.取通用属性 (“data[” ＋到文本 (i － 1) ＋ “].from”, 真), #引号, #引号))

.否则

超级列表框1.置标题 (索引, 4, 发件者Email)

.如果结束

超级列表框1.置标题 (索引, 5, 时间_格式化 (到时间 (时间_时间戳转文本 (json.取通用属性 (“data[” ＋到文本 (i － 1) ＋ “].receivedDate”, 真))), “yyyy-MM-dd ”, “HH:mm:ss”, 真))

.计次循环尾 ()

.子程序 html元素过滤, 文本型, 公开, By:wangzeixi

.参数欲过滤的文本, 文本型

.参数是否过滤特殊符号, 逻辑型, 可空, 默认为假假则过滤如: <等有些可能不支持哈!

.局部变量正则, 正则表达式

.局部变量计次, 整数型

.局部变量搜索结果, 搜索结果, , "0"

.局部变量结果, 文本型

结果＝欲过滤的文本

正则.创建 (“<[^>]*>”, 假)

搜索结果＝正则.搜索全部 (欲过滤的文本)

.计次循环首 (取数组成员数 (搜索结果), 计次)

结果＝子文本替换 (结果, 搜索结果 [计次].取匹配文本 (欲过滤的文本, ), “”, , 1, 真)

.计次循环尾 ()

.如果真 (是否过滤特殊符号＝假)

结果＝子文本替换 (结果, “ ”, “ ”, , , 真)

结果＝子文本替换 (结果, “<”, “<”, , , 真)

结果＝子文本替换 (结果, “>”, “>”, , , 真)

结果＝子文本替换 (结果, “&”, “&”, , , 真)

结果＝子文本替换 (结果, “"”, #引号, , , 真)

结果＝子文本替换 (结果, “ ”, “ ”, , , 真)

结果＝子文本替换 (结果, ““”, #左引号, , , 真)

结果＝子文本替换 (结果, “””, #右引号, , , 真)

结果＝子文本替换 (结果, “—”, “—”, , , 真)

结果＝子文本替换 (结果, “…”, “…”, , , 真)

结果＝子文本替换 (结果, “”, #换行符, , , 真)

结果＝子文本替换 (结果, “”, “ ”, , , 真)

结果＝子文本替换 (结果, “ ”, “ ”, , , 真)

.如果真结束

返回 (结果)

.子程序 _超级列表框1_被双击, 逻辑型

.参数横向位置, 整数型

.参数纵向位置, 整数型

.参数功能键状态, 整数型

.局部变量文本, 文本型

.局部变量 json, 类_json

文本＝编码_Utf8到Ansi (网页_访问 (“http://mail.163.com/jy6/xhr/msg/read.do?sid=” ＋ sid, 1, “mid=” ＋超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ “&filterImages=false&markRead=true”, 全_Cookies, , , , ))

json.解析 (文本)