|
发表于 2024-12-31 13:19:52
|
显示全部楼层
四川省甘孜藏族自治州
16年那会儿刚入坑写的。看看复杂程度. |
邮件_创建临时邮箱 | 整数型 | | |
邮件名称 | 文本型 | | | | 邮件格式 | 整数型 | | | | 邮件操作 | 整数型 | | | | 邮件删除 | 文本型 | | | | 邮件输出 | 文本型 | | | | 超时时间 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 域名 | 文本型 | | | 网络网页 | 文本型 | | | 网络数据 | 文本型 | | | 网络返回 | 文本型 | | | 存放返回 | 文本型 | | | 饼干 | 文本型 | | | 饼干_ | 文本型 | | | 正则 | 正则表达式类 | | | 数目 | 整数型 | | | 计次 | 整数型 | | | 操作 | 文本型 | | 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 ) 数目 = 正则.取匹配数量 ()如果真 (数目 = 0 )返回 (502 ) 重定义数组 (操作, 假, 数目)计次循环首 (数目, 计次 )操作 [计次 ] = 域名 + 正则. 取子匹配文本 (计次, 1 ) 操作 [计次 ] = CharLowerA (操作 [计次 ]) 计次循环尾 () 如果真 (正则. 创建 (“javascript:;#引号>(.*?)”, 网络返回, 假, 假, 真, 真) = 假)返回 (503 ) 数目 = 正则.取匹配数量 ()如果真 (数目 = 0 )返回 (504 ) 重定义数组 (格式, 假, 数目)计次循环首 (数目, 计次 )格式 [计次 ] = “@” + 正则. 取子匹配文本 (计次, 1 )计次循环尾 () 如果真 (正则. 创建 (“primary#引号 id=#引号([a-zA-z]*)”, 网络返回, 假, 假, 真, 真) = 假)返回 (505 ) 数目 = 正则.取匹配数量 ()如果真 (数目 = 0 )返回 (506 ) 邮件名称 = CharLowerA (邮件名称)计次循环首 (数目, 计次 )网络数据 = 正则. 取子匹配文本 (计次, 1 ) + “=” + 编码_URL编码 (邮件名称 + 格式 [邮件格式 ], 真, 真)计次循环尾 () 网络返回 = 编码_URL解码 (到文本 (网页_访问_对象 (操作 [邮件操作 ], 1, 网络数据, 饼干_, 饼干, 真, , , )), 真) 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 ) 数目 = 正则.取匹配数量 ()如果真 (数目 = 0 )返回 (512 ) 重定义数组 (邮件列表_标题, 假, 数目)重定义数组 (邮件列表_地址, 假, 数目 )计次循环首 (数目, 计次 )邮件列表_标题 [计次 ] = 正则. 取子匹配文本 (计次, 1 )邮件列表_地址 [计次 ] = 正则. 取子匹配文本 (计次, 2 )邮件列表_地址 [计次 ] = 文本_取出中间文本 (邮件列表_地址 [计次 ], #引号 + “,” + #引号, #引号 + “,”) 计次循环尾 () 计次循环首 (取数组成员数 (邮件列表_标题 ), m )如果真 (寻找文本 (邮件列表_标题 [m ], 邮件删除, , 假) ≠ -1 )z = z + 1 如果真 (取反 (寻找文本 (邮件列表_标题 [m ], 邮件删除, , 假) ≠ -1 )) 删除成员 (邮件列表_标题, 计次, 1 )删除成员 (邮件列表_地址, 计次, 1 )计次循环尾 ()如果真 (取反 (z = 到整数 ({ })) )计次循环首 (取数组成员数 (邮件列表_标题 ), m )网络网页 = 域名 + winmail + “/” + 邮件名称 + 格式 [邮件格式 ] + “/” + 邮件列表_地址 [m ]邮件内容_集合 = 邮件内容_集合 + 编码_URL解码 (到文本 (网页_访问_对象 (网络网页, , , 饼干, , 真)), 真) + #换行符 + #换行符 + #换行符 计次循环尾 ()停止 = 1 跳出循环 () 如果真 (取反 (超时时间 = 到整数 ({ })) )如果真 (n = 超时时间 )返回 (401 )延迟 (3000)判断循环尾 ()
网络数据 = 文本_取出中间文本 (存放返回, “:checkTime,”, “:new Date().getTime()}”) + “=” + 时间_取现行时间戳 (假)网络返回 = 到文本 (网页_访问_对象 (操作 [3 ], 1, 网络数据, 饼干, , 真, , , , 真)) 如果真 (寻找文本 (网络返回, 邮件名称, , 假) ≠ -1 )邮件输出 = 邮件内容_集合 返回 (600 ) 如果真 (取文本长度 (网络返回 ) ≥ 10 )返回 (510 )返回 (509) 如果真 (寻找文本 (网络返回, “邮箱名只”, , 假) ≠ -1 )返回 (507 ) 如果真 (取反 (寻找文本 (网络返回, 邮件名称, , 假) ≠ -1 )) 返回 (508 ) 返回 (0)
|
|