POST 简单登录操作源码

.版本 2

.程序集 窗口程序集_窗口1

.子程序 _窗口1_创建完毕

登录 (“[email protected]”, “iLBeBLUo”)

.子程序 登录
.参数 账号, 文本型
.参数 密码, 文本型
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 cookie, 文本型
.局部变量 str, 文本型
.局部变量 token, 文本型
.局部变量 返回协议头, 文本型
.局部变量 正则, 正则表达式类
.局部变量 n, 整数型
.局部变量 k, 整数型

url ＝ “http://mail.myheartsite.com:88/”
str ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie))
token ＝ 文本_取出中间文本 (str, #常量1, #引号)
url ＝ “http://mail.myheartsite.com:88/?_task=login”
data ＝ “_token=” ＋ token ＋ “&_task=login&_action=login&_timezone=Asia%2FShanghai&_url=&_user=” ＋ 编码_URL编码 (账号, 真, 真) ＋ “&_pass=” ＋ 密码
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, data, cookie, , , 返回协议头, , 真))
正则.创建 (“Set-Cookie: (.*?)\r\n”, 返回协议头)
n ＝ 正则.取匹配数量 ()
.计次循环首 (n, k)
    cookie ＝ 网页_Cookie合并更新 (cookie, 正则.取子匹配文本 (k, 1))
.计次循环尾 ()
token ＝ 文本_取出中间文本 (返回协议头, “_token=”, #换行符)
url ＝ “http://mail.myheartsite.com:88/?_task=mail&_token=” ＋ token
str ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookie))

@米酒