永硕网盘模块上传/下载/删除/等操作源码

文件名 ＝ 取文件名 (文件路径, 真)
文件数据 ＝ 读入文件 (文件路径)
提交文件头 ＝ 子文本替换 (#ys_文件头, “[文件名]”, 文件名, , , 真)
提交数据包 ＝ 到字节集 (提交文件头 ＋ #换行符 ＋ #换行符) ＋ 文件数据 ＋ 到字节集 (#换行符 ＋ #ys_文件尾)
提交地址 ＝ “http://ys-” ＋ 集_上传动态接口 ＋ “.ys168.com/?p=03” ＋ 目录效验码 ＋ “0&ly=” ＋ 全_用户 ＋ “.ys168.com&m=15&f=” ＋ 编码_ansi到usc2 (文件名) ＋ “&l=” ＋ 编码_ansi到usc2 (子目录名称) ＋ “&t=”
http.Open (“POST”, 提交地址)
http.SetRequestHeader (“Content-Type”, “multipart/form-data; boundary=---------------------------7de15037c013e”)
http.Send (提交数据包, 到数值 (进度显示), 自定义类型)
' 调试输出 (http.ResponseText ())
.如果真 (倒找文本 (http.ResponseText (), “3为上传成功”, , 假) ≠ -1)
返回 (真)
.如果真结束
返回 (假)