美丽约视频上传易语言源码
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 提交地址, 文本型
.局部变量 提交数据, 字节集
.局部变量 头像地址, 文本型
.局部变量 返回文本, 文本型
.局部变量 视频地址, 文本型
.局部变量 数据头, 文本型
头像地址 = “C:\Users\Administrator\Desktop\头像.jpg”
视频地址 = “C:\Users\Administrator\Desktop\a4.mp4”
提交地址 = “//up.miliyo.com/video/intro?_sid=home&isMiui=0&_ua=a|5.1|0|95|meizu|867905022218087|1080|1920|0|cn|0e0c897ff585b2bb29c3fff830212f9a&mac=68:3e:34:2a:cb:ba”
数据头 = 文本_替换 (#数据头, , , , “{time}”, 编辑框_time.内容, “{uid}”, 编辑框_uid.内容, “{key}”, 编辑框_key.内容)
提交数据 = 到字节集 (数据头) + 到字节集 (#换行符) + 读入文件 (头像地址) + 到字节集 (#换行符) + 到字节集 (#数据中) + 到字节集 (#换行符) + 读入文件 (头像地址) + 到字节集 (#换行符) + 到字节集 (#数据尾) + 读入文件 (视频地址) + 到字节集 (#换行符) + 到字节集 (“--7d4a6d158c9--”) + 到字节集 (#换行符)
返回文本 = 编码_Utf8到Ansi (网页_访问 (提交地址, 1, , 编辑框_COOKIE.内容, , #上传协议, , , 提交数据, ))
调试输出 (返回文本)
' 上传成功返回的数据“{"ok":1,"photo":{"uid":80535486,"photo_id":1194362,"img_path":"http:\/\/img6.miliyo.com\/a\/91\/48\/91487bc210a8fbee5eb51de6d9704437.jpg","small_path":"http:\/\/img6.miliyo.com\/a200\/fe\/45\/fe455966f58a7d289b3f703979283455.jpg","video_url":"http:\/\/video6.miliyo.com\/a\/a6\/8b\/a68b54d31f6c6813c28f8c5f76c8bcf2.mp4","video_path":"a\/a6\/8b\/a68b54d31f6c6813c28f8c5f76c8bcf2.mp4,3,1194362"}}”
.子程序 _按钮2_被单击
.局部变量 提交地址, 文本型
.局部变量 提交数据, 文本型
.局部变量 返回文本, 文本型
提交地址 = “//mapi.miliyo.com/auth_web/auth_video/?_sid=menu_my&_ua=a|5.1|1|95|meizu|867905022218087|1080|1920|0|cn|35a3d6e71e0527bb7720421c775366ef&isMiui=0”
提交数据 = “_ua=a|5.1|1|95|meizu|867905022218087|1080|1920|0|cn|35a3d6e71e0527bb7720421c775366ef&isMiui=0”
返回文本 = 编码_Utf8到Ansi (网页_访问_对象 (提交地址, 1, 提交数据, 编辑框_COOKIE.内容, , , , , , ))
' postData:'uid=80535486&sex='+gSex+'&time=1502878767&key=c168597605b81aaaaa9413c55e2a0981&permission_type=2&_sid=lucky_beauty'
编辑框_uid.内容 = 文本_取出中间文本 (返回文本, “postData:'uid=”, “&sex='+gSex+'&time=”)
编辑框_time.内容 = 文本_取出中间文本 (返回文本, “&sex='+gSex+'&time=”, “&key=”)
编辑框_key.内容 = 文本_取出中间文本 (返回文本, “&key=”, “&permission_type=2&_sid=lucky_beauty'”)
调试输出 (返回文本)
' 如果没找到uid time key ,就是已经上传过或者禁止上传,自己分析返回文本