.版本 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.内容 ＝ “未获取到邮件”