易语言如何实现163邮箱登录获取邮件列表等操作

　　介绍

这篇文章将为大家详细讲解有关易语言如何实现163邮箱登录获取邮件列表等操作,小编觉得挺实用的,因此分享给大家做个参考,希望大家阅读完这篇文章后可以有所收获。

<强>常量数据表

。版本,2 　　。常量,提交参数,,“& lt;文本长度:,98年在“ 　　。常量,协议头,,“& lt;文本长度:,386年在“ 　　。常量,邮件,,“& lt;文本长度:,383年在“

<强>全局变量表

。版本,2 　　。全局变量,全_Cookies,,文本型 　　。全局变量,sid,,文本型 　　。全局变量,全_Email,,文本型

<>强登陆程序集

。版本,2 　　。程序集,窗口程序集_启动窗口 　　,子程序,_登陆按钮_被单击 　　。局部变量,文,本,文本型 　　。局部变量,,,文本型 　　。局部变量,b,,文本型 　　。局部变量,aaa,,文本型 　　。局部变量,协议头,,文本型 　　时间=全_Cookies 网页_取Cookie  (" mail.163.com ",,) 　　文本,=,编码_Utf8到Ansi (网页_访问_对象,(" https://reg.163.com/logins.jsp?username=", +,邮箱编辑框。内容,+,",密码=",+,密码编辑框。内容,+,和url=http://mail.163.com/entry/cgi/ntesdoor,,,,,,全_Cookies,,,,,, aaa)) 　　时间=全_Cookies 网页_Cookie合并更新,(全_Cookies,, b) 　　文本,=,编码_Utf8到Ansi (网页_访问_对象,(" http://mail.163.com/entry/cgi/ntesdoor?username=", +,邮箱编辑框。内容,,,,,,全_Cookies,,,,,, aaa,,,,真)) 　　时间=全_Cookies 网页_Cookie合并更新,(全_Cookies,, b) 　　时间=sid 文本_取出中间文本,(网页_取单条Cookie (全_Cookies,,“Coremail”,真),,“%”,“%”) 　　,判断开始,(sid ≠, " ") 　　全才能_Email =,邮箱编辑框。内容 　　信才能息框,(“登录成功”,,,,) 　　载才能入,(窗口1,,,,假) 　　_才能启动窗口。销毁,() 　　。默认 　　信才能息框,(“登录失败”,,0,,) 　　。判断结束

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

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

。版本,2 　　。支持库EThread 　　。支持库iext 　　。支持库,正则表达式 　　。支持库,规范 　　。程序集,窗口程序集_窗口1 　　。程序集变量,json,类_json 　　。程序集变量,邮箱列表,,文本型,,,,“0”; 　　,子程序,_窗口1 _创建完毕 　　启动线程,(和读取邮件,,,,) 　　,子程序,读取邮件 　　。局部变量,,,文本型 　　。局部变量,文,本,文本型 　　。局部变量,我,,整数型 　　。局部变量,索引,,整数型 　　。局部变量,发送者,,文本型 　　。局部变量,发件者电子邮件,,文本型 　　post =, " fid=1,=0开始,限制=20,线程=false” 　　文本,=,编码_Utf8到Ansi (网页_访问,(" http://mail.163.com/jy6/xhr/list/list.do?sid=", +, sid,, 1,,,,全_Cookies,,,,,,,,)) 　　json。解析,(文本) 　　计。次循环首,(json。成员数,(“数据”),我) 　　索才能引,=,超级列表框1。插入表项,(,到文本,(我),,,,,,,,) 　　超才能级列表框1。置标题,(索引,,1,,文本_取出中间文本,(json。取通用属性,(“数据(“+大敌;到文本,(小姐,安康;1),+,”].mid”,,真),,#引号,,#引号)) 　　超才能级列表框1。置标题,(索引,,2,,文本_取出中间文本,(json。取通用属性,(“数据(“+大敌;到文本,(小姐,安康;1),+,”].subject”,,真),,#引号,,#引号)) 　　,,发件者Email =,文本_取出中间文本,(json。取通用属性,(“数据(“+大敌;到文本,(小姐,安康;1),+,").从“,,真),,“& lt;”,“在”) 　　发才能送者,=,文本_取出中间文本,(json。取通用属性,(“数据(“+大敌;到文本,(小姐,安康;1),+,").从“,,真),,“\”,+,#引号,,“\”) 　　,。如果,(发送者,=," ") 　　,,,超级列表框1。置标题,(索引,,3,,文本_取出中间文本,(json。取通用属性,(“数据(“+大敌;到文本,(小姐,安康;1),+,").从“,,真),,#引号,,“@”)) 　　,,,否则 　　,,,超级列表框1。置标题,(索引,,3,,发送者) 　　,。如果结束 　　,。如果,(发件者Email =, " ") 　　,,,超级列表框1。置标题,(索引,,4,文本_取出中间文本,(json。取通用属性,(“数据(“+大敌;到文本,(小姐,安康;1),+,").从“,,真),,#引号,,#引号)) 　　,,,否则 　　,,,超级列表框1。置标题,(索引,,4,,发件者电子邮件) 　　,。如果结束 　　超才能级列表框1。置标题,(索引,,5日,时间_格式化,(到时间,(时间_时间戳转文本,(json。取通用属性,(“数据(“+大敌;到文本,(小姐,安康;1),+,”].receivedDate”,,真))),,“yyyy-MM-dd ”,“HH: mm: ss”,真)) 　　计。次循环尾,() 　　,子程序,html元素过滤,,文本型,,公开,:wangzeixi 　　。参数,欲过滤的文,本,文本型 　　。参数,是否过滤特殊符号,,逻辑型,,可空,,默认为假,假则过滤,如:,,,,lt;等,有些可能不支持哈! 　　。局部变量,正则,,正则表达式 　　。局部变量,计次,,整数型 　　。局部变量,搜索结果,,搜索结果,,,,“0”; 　　。局部变量,结果,,文本型 　　结果,=,欲过滤的文本 　　正则。创建,(“& lt;[^祝辞]*祝辞”,,假) 　　搜索结果,=,正则。搜索全部,(欲过滤的文本) 　　计。次循环首,(取数组成员数,(搜索结果),,计次) 　　,,结果,=,子文本替换,(结果,,搜索结果,[计次]。取匹配文本,(欲过滤的文本,,),,”“,,,,1,,真) 　　计。次循环尾,() 　　。如果真,(是否过滤特殊符号,=,假) 　　,,结果,=,子文本替换,(结果,,和,,,,,,,,,,真) 　　,,结果,=,子文本替换,(结果,,“和lt;”,“& lt;”,,,,,,真) 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null 　　null

易语言如何实现163邮箱登录获取邮件列表等操作