临时邮箱获取邮箱收件例子源码

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 url, 文本型
.程序集变量 临时ck, 文本型
.程序集变量 临时邮箱, 文本型
.程序集变量 邮箱CK, 文本型
.程序集变量 邮箱, 文本型

.子程序 _按钮1_被单击

url ＝ “http://24mail.chacuo.net/”
' 取临时CK
网页_访问_对象 (url, 0, , , 临时ck, , , , , , , , , , , , , , )
临时邮箱 ＝ 编码_URL解码 (到文本 (网页_访问 (url, 1, “data=lvegpw06249&type=renew&arg=d%3D027168.com_f%3D”, 临时ck, 邮箱CK, , , , , , , , )), 真)
邮箱CK ＝ 临时ck ＋ 邮箱CK
临时邮箱 ＝ 文本_取左边 (临时邮箱, #常量2, , )
邮箱 ＝ 文本_取右边 (临时邮箱, #常量1, , )
编辑框1.内容 ＝ 邮箱 ＋ “@027168.com”

.子程序 _按钮2_被单击
.局部变量 取件, 文本型
.局部变量 ID, 文本型

取件 ＝ 编码_URL解码 (到文本 (网页_访问 (url, 1, “data=” ＋ 邮箱 ＋ “&type=refresh&arg=”, 邮箱CK, , , , , , , , , )), 真)
.如果 (寻找文本 (取件, “SUBJECT”, , 假) ≠ -1)
    ID ＝ 文本_取左边 (取件, #邮件ID右, , )
    ID ＝ 文本_取右边 (ID, #邮件ID左, , )
    取件 ＝ 编码_URL解码 (到文本 (网页_访问 (url, 1, “data=” ＋ 邮箱 ＋ “&type=mailinfo&arg=f%3D” ＋ ID, 邮箱CK, , , , , , , , , )), 真)
    编辑框2.内容 ＝ 取件
    编辑框3.内容 ＝ “取到邮件”
.否则
    编辑框3.内容 ＝ “未获取到邮件”

@an54560954