恩华云储存的登录、文件下载源码

.版本 2
.支持库 spec

.程序集 ehvip网盘, , , 恩华云储存
.程序集变量 cookie, 文本型
.程序集变量 cookies, 文本型

.子程序 ehviplogin, , 公开
.参数 user, 文本型
.参数 pwd, 文本型
.局部变量 url, 文本型
.局部变量 res, 文本型
.局部变量 data, 文本型
.局部变量 fhxyt, 文本型
.局部变量 datas, 字节集
.局部变量 json, 类_json
.局部变量 i, 整数型
.局部变量 name, 文本型
.局部变量 size, 文本型
.局部变量 time, 文本型
.局部变量 id, 文本型
.局部变量 已用容量, 文本型
.局部变量 总容量, 文本型

url ＝ “https://www.ehvip.cn/Member/Login”
data ＝ “userMail=” ＋ 编码_URL编码 (user, 真) ＋ “&userPass=” ＋ 编码_URL编码 (pwd, 真)
res ＝ 编码_Utf8到Ansi (网页_访问 (url, 1, data, cookie, cookies, #ehvipxyt, fhxyt))
' 调试输出 (cookie, cookies, fhxyt)
.判断开始 (寻找文本 (res, “登陆成功”, , 假) ≠ -1)
    url ＝ “https://www.ehvip.cn/File/ListFile”
    datas ＝ 到字节集 (#listfile)
    res ＝ 编码_Utf8到Ansi (网页_访问 (url, 1, , cookies, , #listfilexyt, , , datas, ))
    ' 调试输出 (res)
    json.解析 (res)

    .计次循环首 (json.成员数 (“result”), i)
        name ＝ json.取通用属性 (“result[” ＋ 到文本 (i － 1) ＋ “].name”)
        size ＝ json.取属性 (“result[” ＋ 到文本 (i － 1) ＋ “].size”).取数据文本 ()
        time ＝ json.取通用属性 (“result[” ＋ 到文本 (i － 1) ＋ “].date”)
        id ＝ json.取属性 (“result[” ＋ 到文本 (i － 1) ＋ “].id”).取数据文本 ()
        调试输出 (name, size, time, id)
    .计次循环尾 ()
    url ＝ “https://www.ehvip.cn/Member/Memory”
    res ＝ 编码_Utf8到Ansi (网页_访问 (url, , , cookies, , #listfilexyt, , , , ))
    ' 调试输出 (res)
    json.解析 (res)
    已用容量 ＝ json.取通用属性 (“used”)
    总容量 ＝ json.取通用属性 (“total”)
    调试输出 (已用容量, 总容量)

.默认
    调试输出 (“失败.........”)
.判断结束


.子程序 downfile, , 公开
.参数 filename, 文本型
.局部变量 url, 文本型

url ＝ “https://www.ehvip.cn/File/Download?action=download&path=%2F” ＋ filename
写到文件 (取运行目录 () ＋ “” ＋ filename, 网页_访问 (url, , , cookies, , #downxyt, ))

@杨明煜