快手自动上传视频脚本，作品自动批量发布工具，易语言开源框架

.版本 2
.支持库 spec

.程序集 kuaishou

.子程序 取token, 文本型, 公开, 1
.局部变量 局_url, 文本型
.局部变量 局_提交cookie, 文本型
.局部变量 局_json, 类_json
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

局_url ＝ “https://cp.kuaishou.com/rest/cp/works/v2/video/pc/upload/pre”
局_json.置属性数值 (“uploadType”, 1)
局_json.置属性 (“kuaishou.web.cp.api_ph”, #cp_api_ph)
局_结果 ＝ 网页_GZIP解压 (网页_访问 (局_url, 1, 局_json.取数据文本 (), #快手_cookie, , #快手_协议头))
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
局_json.解析 (局_返回)
快手.token ＝ 局_json.取通用属性 (“data.token”)
局_返回 ＝ 到文本 (网页_访问_对象 (“https://upload.kuaishouzt.com/api/upload/resume?upload_token=” ＋ 快手.token))
局_json.解析 (局_返回)
快手.token_id ＝ 局_json.取通用属性 (“['token_id']”)
返回 (快手.token)

.子程序 上传视频, , 公开
.局部变量 局_url, 文本型
.局部变量 局_返回, 文本型
.局部变量 json, 类_json
.局部变量 size, 文本型
.局部变量 data, 文本型
.局部变量 checksum, 文本型
.局部变量 文件名, 文本型
.局部变量 文件内容, 字节集
.局部变量 ADD_协议头, 类_POST数据类

局_url ＝ “https://upload.kuaishouzt.com/api/upload/fragment?upload_token=” ＋ 快手.token ＋ “&fragment_id=0”
ADD_协议头.添加 (“Host”, “upload.kuaishouzt.com”)
ADD_协议头.添加 (“Connection”, “keep-alive”)
ADD_协议头.添加 (“Accept”, “*/*”)
ADD_协议头.添加 (“Access-Control-Request-Method”, “POST”)
ADD_协议头.添加 (“Origin”, “https://cp.kuaishou.com”)
ADD_协议头.添加 (“User-Agent”, #UA)
ADD_协议头.添加 (“Sec-Fetch-Mode”, “cors”)
ADD_协议头.添加 (“Sec-Fetch-Site”, “cross-site”)
ADD_协议头.添加 (“Sec-Fetch-Dest”, “empty”)
ADD_协议头.添加 (“Referer”, “https://cp.kuaishou.com/”)
ADD_协议头.添加 (“Accept-Encoding”, “ gzip, deflate, br”)
ADD_协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”)
网页_访问_对象 (局_url, 4, , , , ADD_协议头.获取协议头数据 ())
ADD_协议头.清空 ()
文件名 ＝ 取运行目录 () ＋ “\1.mp4”
文件内容 ＝ 读入文件 (文件名)
快手.size ＝ 取字节集长度 (文件内容)
data ＝ 编码_BASE64编码 (文件内容)
ADD_协议头.添加 (“Host”, “upload.kuaishouzt.com”)
ADD_协议头.添加 (“Connection”, “keep-alive”)
ADD_协议头.添加 (“Content-Length”, 到文本 (快手.size))
ADD_协议头.添加 (“Content-Range”, “bytes 0-” ＋ 到文本 (快手.size) ＋ “/” ＋ 到文本 (快手.size))  ' '/4194304
ADD_协议头.添加 (“Accept”, “application/json, text/plain, */*”)
ADD_协议头.添加 (“Content-Type”, “application/octet-stream”)
ADD_协议头.添加 (“sec-ch-ua-mobile”, “?0”)
ADD_协议头.添加 (“User-Agent”, #UA)
ADD_协议头.添加 (“sec-ch-ua-platform”, “Windows”)
ADD_协议头.添加 (“Origin”, “https://cp.kuaishou.com”)
ADD_协议头.添加 (“Sec-Fetch-Site”, “cross-site”)
ADD_协议头.添加 (“Sec-Fetch-Mode”, “cors”)
ADD_协议头.添加 (“Sec-Fetch-Dest”, “empty”)
ADD_协议头.添加 (“Referer”, “https://cp.kuaishou.com”)
ADD_协议头.添加 (“Accept-Encoding”, “gzip, deflate, br”)
ADD_协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”)
ADD_协议头.添加 (“Fiddler-Encoding”, “base64”)
局_返回 ＝ 到文本 (网页_访问 (局_url, 1, data, , , ADD_协议头.获取协议头数据 ()))
json.解析 (局_返回)
checksum ＝ json.取通用属性 (“checksum”)
局_url ＝ “https://upload.kuaishouzt.com/api/upload/complete?fragment_count=1&upload_token=” ＋ 快手.token
调试输出 (到文本 (网页_访问_对象 (局_url, 1, data, , , ADD_协议头.获取协议头数据 ())))
取视频数据 (文件_取文件名 (文件名, 真))

.子程序 取视频数据, , 公开
.参数 文件名字, 文本型
.局部变量 局_url, 文本型
.局部变量 局_json, 类_json
.局部变量 局_返回, 文本型
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类

局_url ＝ “https://cp.kuaishou.com/rest/cp/works/v2/video/pc/upload/finish”
ADD_协议头.添加 (“Host”, “cp.kuaishou.com”)
ADD_协议头.添加 (“Connection”, “keep-alive”)
ADD_协议头.添加 (“Content-Length”, 到文本 (快手.size))
ADD_协议头.添加 (“sec-ch-ua-platform”, “Windows”)
ADD_协议头.添加 (“sec-ch-ua-mobile”, “?0”)
ADD_协议头.添加 (“User-Agent”, #UA)
ADD_协议头.添加 (“Content-Type”, “application/json;charset=UTF-8”)
ADD_协议头.添加 (“Accept”, “*/*”)
ADD_协议头.添加 (“Origin”, “https://cp.kuaishou.com”)
ADD_协议头.添加 (“Sec-Fetch-Site”, “same-origin”)
ADD_协议头.添加 (“Sec-Fetch-Mode”, “cors”)
ADD_协议头.添加 (“Sec-Fetch-Dest”, “empty”)
ADD_协议头.添加 (“Referer”, “https://cp.kuaishou.com/article/publish/video”)
ADD_协议头.添加 (“Accept-Encoding”, “gzip, deflate, br”)
ADD_协议头.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8,en-GB;q=0.7,en-US;q=0.6”)
局_json.置属性 (“token”, 快手.token)
局_json.置属性 (“fileName”, 文件名字)
局_json.置属性 (“fileType”, “video/mp4”)
局_json.置属性数值 (“fileLength”, 快手.size)
局_json.置属性 (“kuaishou.web.cp.api_ph”, #cp_api_ph)
局_返回 ＝ 编码_URL解码 (到文本 (网页_GZIP解压 (网页_访问_对象 (局_url, 1, 局_json.取数据文本 (), #快手_cookie, , ADD_协议头.获取协议头数据 ()))), 真)
调试输出 (局_返回)
局_json.解析 (局_返回)
快手.fileId ＝ 局_json.取通用属性 (“data.fileId”)
快手.coverKey ＝ 局_json.取通用属性 (“data.coverKey”)
快手.mediaId ＝ 局_json.取通用属性 (“data.mediaId”)
快手.coverMediaId ＝ 局_json.取通用属性 (“data.coverMediaId”)


.子程序 发布视频, 文本型
.参数 填写描述, 文本型
.参数 发布时间, 日期时间型, , [2023年12月26日16时24分45秒]
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_提交数据, 文本型
.局部变量 局_提交cookie, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 局_json, 类_json

局_网址 ＝ “https://cp.kuaishou.com/rest/cp/works/v2/video/pc/submit”
局_json.置属性 (“fileId”, 快手.fileId)
局_json.置属性 (“coverKey”, 快手.coverKey)
局_json.置属性数值 (“coverTimeStamp”, -1)
局_json.置属性 (“caption”, 填写描述)
局_json.置属性数值 (“photoStatus”, 1)
局_json.置属性数值 (“coverType”, 1)
局_json.置属性数值 (“photoType”, 0)
局_json.置属性数值 (“coverTimeStamp”, -1)
局_json.置属性数值 (“coverTimeStamp”, -1)
局_json.置属性 (“collectionId”, “”)
局_json.置属性数值 (“coverTimeStamp”, 到数值 (??? ()))  ' <!!!>
局_json.置属性 (“longitude”, “”)
局_json.置属性 (“latitude”, “”)
局_json.置属性数值 (“notifyResult”, 0)
局_json.置属性 (“domain”, “读书”)
局_json.置属性 (“mediaId”, 快手.mediaId)
局_json.置属性 (“photoIdStr”, 快手.photoIdStr)
局_json.置属性 (“kuaishou.web.cp.api_ph”, #cp_api_ph)
' {"fileId":409817413,"coverKey":"cp_video_upload_cover_PnMnVhMUHMsxvguk.jpg","coverTimeStamp":-1,"caption":"111111111111","photoStatus":1,"coverType":1,"coverTitle":"","photoType":0,"collectionId":"","publishTime":1703365504856,"longitude":"","latitude":"","notifyResult":0,"domain":"读书","secondDomain":"阅读","coverCropped":false,"pkCoverKey":"","downloadType":1,"disableNearbyShow":false,"allowSameFrame":true,"movieId":"","openPrePreview":false,"profileCoverKey":"","innerChannel":0,"mediaId":"185637299363339037946079","videoInfoMeta":"","triggerH265":false,"recTagIdList":[],"projectId":"","onvideoDuration":0,"disallowRecreation":false,"previewUrlErrorMessage":"","videoDuration":6061,"photoIdStr":"120113454619","kuaishou.web.cp.api_ph":"e19b14d5a157e94555c33974789927bbeff2"}
局_结果 ＝ 网页_访问_对象 (局_网址, 1, 局_json.取数据文本 (), #快手_cookie, , #快手_协议头, , , , , , , , , , , )
局_结果 ＝ 网页_GZIP解压 (局_结果)
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)
' 返回数据被Gzip压缩，调用命令[网页_Gzip解压]需要[Gzip.dll]文件，  将助手根目录下[\gzip.dll]放到源码的根目录才能正常返回数据