获取微云网盘TXT文本内容

.子程序 取微云TXT文本, 逻辑型, 公开
.参数 url, 文本型, , '微云TXT地址
.参数 文本, 文本型, , '用来存放取回内容的变量
.局部变量 str, 文本型
.局部变量 share_key, 文本型
.局部变量 pdir_key, 文本型
.局部变量 file_id, 文本型
.局部变量 g_tk, 文本型
.局部变量 cookie, 文本型
.局部变量 DATA, 文本型
.局部变量 json, 类_json
.局部变量 downloaddns, 文本型
.局部变量 page, 文本型
.局部变量 index, 整数型

str ＝ 到文本 (网页_访问_对象 (url, 0, , , cookie, #协议头, ))
str ＝ 编码_utf8到gb2312 (str)
str ＝ 文本_取出中间文本 (str, “window.syncData = ”, “;”)
json.解析 (str)
share_key ＝ json.取通用属性 (“shareInfo['share_key']”)
pdir_key ＝ json.取通用属性 (“shareInfo['file_list'][0]['pdir_key']”)
file_id ＝ json.取通用属性 (“shareInfo['file_list'][0]['file_id']”)
g_tk ＝ 网页_取单条Cookie (cookie, “wyctoken”, 真)
.如果真 (g_tk ＝ “”)
返回 (假)
.如果真结束
DATA ＝ 文本_替换 (#数据, 2, , , “[file_id]”, file_id, “[share_key]”, share_key, “[pdir_key]”, pdir_key)
str ＝ 到文本 (网页_访问_对象 (“https://share.weiyun.com/webapp/json/weiyunShareNoLogin/WeiyunShareDocAbs?refer=chrome_windows&g_tk=” ＋ g_tk ＋ “&r=” ＋ 时间_取随机时间戳 (), 1, DATA, cookie, , #协议头2))
str ＝ 编码_utf8到gb2312 (str)
json.解析 (str)
调试输出 (str)
downloaddns ＝ json.取通用属性 (“data['rsp_body']['RspMsg_body']['file_preview_doc_preview_msgrsp']['https_preview_url']”)
page ＝ json.取属性 (“data['rsp_body']['RspMsg_body']['file_preview_doc_preview_msgrsp']['total_page']”).取数据文本 ()
调试输出 (downloaddns, page)
.如果真 (寻找文本 (json.取通用属性 (“data['rsp_header'].retmsg”), “成功”, , 假) ＝ -1)
返回 (假)
.如果真结束
.如果真 (downloaddns ＝ “”)
返回 (假)
.如果真结束
.如果真 (page ＝ “”)
返回 (假)
.如果真结束
json.清除 ()
.计次循环首 (到整数 (page), index)
str ＝ 到文本 (网页_访问_对象 (downloaddns ＋ “&page=” ＋ 到文本 (index), 0, , cookie, , , ))
str ＝ 编码_utf8到gb2312 (str)
json.解析 (str)
调试输出 (“当前页数:” ＋ 到文本 (index) ＋ “ 全部页数:” ＋ page)
处理事件 ()
DATA ＝ json.取通用属性 (“data”)
.如果真 (DATA ＝ “”)
跳出循环 ()
.如果真结束
.如果真 (文本 ≠ “”)
文本 ＝ 文本 ＋ #换行符 ＋ DATA
到循环尾 ()
.如果真结束
.如果真 (文本 ＝ “”)
文本 ＝ DATA ＋ #换行符
到循环尾 ()
.如果真结束

.计次循环尾 ()
调试输出 (文本)
.如果真 (文本 ≠ “”)
返回 (真)
.如果真结束
返回 (假)'获取微云网盘TXT文本内容源码是用来存放取回内容的变量，选择保存的文件夹就可以了，这时候就能把网盘上的文件下载到电脑硬盘上了。