开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

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

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


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

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

123
返回列表 发新帖
楼主: 土路
收起左侧

[易语言] 按道理是可以实现的。可惜我不会。

[复制链接]
结帖率:69% (35/51)
 楼主| 发表于 2024-12-31 13:17:24 | 显示全部楼层   广东省惠州市
宇哥love 发表于 2024-12-30 21:17
这个得看你用得哪个邮箱 实现很简单

等你呢哥哥
回复

使用道具 举报

结帖率:69% (35/51)

签到天数: 7 天

 楼主| 发表于 2024-12-31 13:17:46 | 显示全部楼层   广东省惠州市
766711831 发表于 2024-12-30 20:33
什么邮箱。明天早上就弄

哥哥。等你呢
回复

使用道具 举报

结帖率:100% (76/76)

签到天数: 6 天

发表于 2024-12-31 13:19:52 | 显示全部楼层   四川省甘孜藏族自治州
16年那会儿刚入坑写的。看看复杂程度.
  
子程序名返回值类型公开备 注
邮件_创建临时邮箱整数型 创建一个虚拟邮箱 返回“600”表示创建和取得邮件成功 返回“510”表示销毁邮箱失败 返回“401”表示超时 返回“501/503/505/511”表示网络连接有问题 返回“502/504/506/512”表示创建数据失效 返回“508”表示未知错误 返回“507”表示邮箱名称存在中文或符号 返回“510”表示销毁邮箱失败 返回“0/509”表示数据被串改 注:该程序被启动3秒后才开始执行
参数名类 型参考可空数组备 注
邮件名称文本型创建的邮箱名称,不能含中文
邮件格式整数型0:@www.bccto.me;1:@bccto.me;2:@mail.bccto.me
邮件操作整数型0:创建;1:销毁,请用变量控制需求 >1=销毁<1=销毁
邮件删除文本型通过关键词过滤掉自己不需要的邮件;待测试完整性(关键词只寻找邮件标题做出反应)
邮件输出文本型输出邮件内容所有邮件内容;网页元素自行删除
超时时间整数型等待多少秒后放弃邮件操作 “0”表示无限制等待(3秒刷新一次)
变量名类 型静态数组备 注
域名文本型网页域名
网络网页文本型访问的网页
网络数据文本型访问发送的数据
网络返回文本型网络返回的状态
存放返回文本型存放网络返回的数据
饼干文本型全局Cookies
饼干_文本型临时Cookies
正则正则表达式类正则
数目整数型正则
计次整数型正则
操作文本型0取的的申请邮箱网页和销毁邮箱网页
格式文本型0邮箱的生成格式点缀
更新数据文本型更新数据(刷新)
更新网页文本型更新的网页(刷新)
停止整数型本地命令
n整数型本地命令(计次)
m整数型本地命令(计次)
z整数型本地命令(计次)
time文本型本地命令
winmail文本型 
邮件列表_标题文本型0邮件内容标题
邮件列表_地址文本型0邮件内容网页地址
邮件内容_集合文本型邮件内容,用-------------隔开
延迟 (3000)
如果真 (邮件格式 < 0)
邮件格式 = 1
如果真 (邮件格式 = 0)
邮件格式 = 1
如果真 (邮件格式 > 2)
邮件格式 = 1
如果真 (邮件操作 < 0)
邮件操作 = 1
如果真 (邮件操作 = 0)
邮件操作 = 1
如果真 (邮件操作 = 2)
邮件操作 = 3
如果真 (邮件操作 > 3)
邮件操作 = 3
' ---------------访问网页---------------------
域名 = “http://www.bccto.me/”  ' 网页域名
网络网页 = 域名
网络返回 = 到文本 (网页_访问_对象 (网络网页, 0, , , 饼干_, ))
存放返回 = 网络返回
winmail = 文本_取出中间文本 (存放返回, “,cssClass:'btn-success',autospin:false,action:function(dialogRef){window.open('/”, “/'+to+'/'+fid,fid);}},{id:'btn-feedback',icon:'glyphicon glyphicon-thumbs-down',label:'”)
' -----------------------取更新(刷新)代码---------------------
更新网页 = 域名 + 文本_取出中间文本 (存放返回, “{$.post(”#引号“/”, #引号“,{mail:$('#showmail')”)
更新数据 = “&”文本_取出中间文本 (存放返回, “$('#showmail').html(),”, “:checkTime,”)“=”时间_取现行时间戳 ()“&”文本_取出中间文本 (存放返回, “:checkTime,”, “:new Date().getTime()}”)“=”时间_取现行时间戳 ()
' -----------------------取访问网页---------------------
如果真 (正则.创建 (“btn-lg#引号 id=#引号([a-zA-z]*)”, 网络返回, 假, 假, 真, ))
返回 (501)  ' 错误:1--------------------
数目 = 正则.取匹配数量 ()
如果真 (数目 = 0)
返回 (502)  ' 错误:2--------------------
重定义数组 (操作, 假, 数目)
计次循环首 (数目, 计次)
操作 [计次] = 域名 + 正则.取子匹配文本 (计次, 1)  ' 1=创建申请邮箱,2=随机邮箱但不创建,3=销毁申请邮箱,4=复制邮箱
操作 [计次]CharLowerA (操作 [计次])  ' 小写转换,为什么加在正则上会出现乱码呢!!!
计次循环尾 ()
' -----------------------取邮箱点缀---------------------
如果真 (正则.创建 (“javascript:;#引号>(.*?)”, 网络返回, 假, 假, 真, ))
返回 (503)  ' 错误:3--------------------
数目 = 正则.取匹配数量 ()
如果真 (数目 = 0)
返回 (504)  ' 错误:4--------------------
重定义数组 (格式, 假, 数目)
计次循环首 (数目, 计次)
格式 [计次]“@” + 正则.取子匹配文本 (计次, 1)
计次循环尾 ()
' -----------------------取生成数据---------------------
如果真 (正则.创建 (“primary#引号 id=#引号([a-zA-z]*)”, 网络返回, 假, 假, 真, ))
返回 (505)  ' 错误:5--------------------
数目 = 正则.取匹配数量 ()
如果真 (数目 = 0)
返回 (506)  ' 错误:6--------------------
邮件名称 = CharLowerA (邮件名称)
计次循环首 (数目, 计次)
网络数据 = 正则.取子匹配文本 (计次, 1)“=”编码_URL编码 (邮件名称 + 格式 [邮件格式], 真, )
计次循环尾 ()
' ------------------------开始创建邮箱------------------------
网络返回 = 编码_URL解码 (到文本 (网页_访问_对象 (操作 [邮件操作], 1, 网络数据, 饼干_, 饼干, 真, , , )), )
' -------------------------小整理一下Cookies错误---------------
time = “0”
饼干 = 网页_Cookie合并更新 (饼干_, 饼干, )
如果真 (寻找文本 (网络返回, 邮件名称, , ) ≠ -1)
' --------------------开始寻找邮件-------------------
如果真 (取反 (邮件删除 = 到文本 ({  })))
判断循环首 (停止 = 0)
n = n + 1  ' 这里不需要静态 因为处于循环变量中
更新网页 = 域名 + 文本_取出中间文本 (存放返回, “{$.post(”#引号“/”, #引号“,{mail:$('#showmail')”)
更新数据 = “&”文本_取出中间文本 (存放返回, “$('#showmail').html(),”, “:checkTime,”)“=” + time + “&”文本_取出中间文本 (存放返回, “:checkTime,”, “:new Date().getTime()}”)“=”时间_取现行时间戳 ()
更新数据 = 网络数据 + 更新数据
网络返回 = 编码_URL解码 (到文本 (网页_访问_对象 (更新网页, 1, 更新数据, 饼干, , 真, , , )), )
' ---------------列表匹配-----------------------
如果真 (取文本长度 (网络返回) > 100)
如果真 (正则.创建 (“([\u4e00-\u9fa5])#引号,#引号([\s\S]*?)]”, 网络返回, 假, 假, 真, ))
返回 (511)  ' 错误:7--------------------
数目 = 正则.取匹配数量 ()
如果真 (数目 = 0)
返回 (512)  ' 错误:8--------------------
重定义数组 (邮件列表_标题, 假, 数目)
重定义数组 (邮件列表_地址, 假, 数目)
计次循环首 (数目, 计次)
邮件列表_标题 [计次] = 正则.取子匹配文本 (计次, 1)
邮件列表_地址 [计次] = 正则.取子匹配文本 (计次, 2)
邮件列表_地址 [计次]文本_取出中间文本 (邮件列表_地址 [计次], #引号“,”#引号, #引号“,”)  ' 删除杂项
计次循环尾 ()
' --------------------开始取得邮件内容--------------
计次循环首 (取数组成员数 (邮件列表_标题), m)
如果真 (寻找文本 (邮件列表_标题 [m], 邮件删除, , ) ≠ -1)
z = z + 1  ' 这里只要是1就代表存在关键词邮件,
如果真 (取反 (寻找文本 (邮件列表_标题 [m], 邮件删除, , ) ≠ -1))
删除成员 (邮件列表_标题, 计次, 1)
删除成员 (邮件列表_地址, 计次, 1)

计次循环尾 ()
如果真 (取反 (z = 到整数 ({  })))
计次循环首 (取数组成员数 (邮件列表_标题), m)
网络网页 = 域名 + winmail + “/” + 邮件名称 + 格式 [邮件格式]“/” + 邮件列表_地址 [m]
邮件内容_集合 = 邮件内容_集合 + 编码_URL解码 (到文本 (网页_访问_对象 (网络网页, , , 饼干, , )), )#换行符#换行符#换行符
计次循环尾 ()
停止 = 1
跳出循环 ()

' --------------------超时--------------
如果真 (取反 (超时时间 = 到整数 ({  })))
如果真 (n = 超时时间)
返回 (401)

延迟 (3000)
判断循环尾 ()
' --------------------开始销毁邮箱-------------------
网络数据 = 文本_取出中间文本 (存放返回, “:checkTime,”, “:new Date().getTime()}”)“=”时间_取现行时间戳 ()
网络返回 = 到文本 (网页_访问_对象 (操作 [3], 1, 网络数据, 饼干, , 真, , , , ))
如果真 (寻找文本 (网络返回, 邮件名称, , ) ≠ -1)
邮件输出 = 邮件内容_集合
返回 (600)  ' 6开头表示邮箱创建成功
如果真 (取文本长度 (网络返回) ≥ 10)
返回 (510)
返回 (509)  ' 数据被篡改
如果真 (寻找文本 (网络返回, “邮箱名只”, , ) ≠ -1)
返回 (507)  ' 5开头表示邮箱创建错误:错误带有中文或字符的邮箱
如果真 (取反 (寻找文本 (网络返回, 邮件名称, , ) ≠ -1))
返回 (508)  ' 5开头表示邮箱创建错误:错误未知
返回 (0)  ' 0代表执行完毕 同时代表以上数据均无效



i支持库列表   支持库注释   
spec特殊功能支持库

回复

使用道具 举报

结帖率:69% (35/51)

签到天数: 7 天

 楼主| 发表于 2024-12-31 14:16:13 | 显示全部楼层   广东省惠州市
奏鸣曲 发表于 2024-12-31 13:19
16年那会儿刚入坑写的。看看复杂程度.[e=0].版本 2
.支持库 spec

看着都头疼
回复

使用道具 举报

结帖率:87% (20/23)

签到天数: 3 天

发表于 2024-12-31 16:14:14 | 显示全部楼层   湖北省天门市

你不是要昨晚做吗?  你建议网页填表得了    什么网站都好用,也没有什么需要解密什么的玩意,界面控制网页就行最多就是效率低一点。我说真的

回复

使用道具 举报

结帖率:69% (35/51)

签到天数: 7 天

 楼主| 发表于 2024-12-31 16:57:11 | 显示全部楼层   广东省惠州市
766711831 发表于 2024-12-31 16:14
你不是要昨晚做吗?  你建议网页填表得了    什么网站都好用,也没有什么需要解密什么的玩意,界面控制网 ...

等 你出源码。以163为邮箱。  感谢老铁~目前还未找到像你那么大的大神
回复

使用道具 举报

结帖率:69% (35/51)

签到天数: 7 天

 楼主| 发表于 前天 14:31 高大上手机用户 | 显示全部楼层   广东省惠州市
本人自己已经研究出来解决方案了。
哪有你们说的那么难。
回复

使用道具 举报

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

本版积分规则 致发广告者

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

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

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