.版本 2 .支持库 EThread .支持库 iext .程序集 窗口程序集1 .程序集变量 七牛账号, 文本型 .程序集变量 七牛密码, 文本型 .程序集变量 索引, 整数型 .程序集变量 计次, 整数型 .程序集变量 文件名, 文本型 .程序集变量 文件路径, 文本型 .子程序 __启动窗口_创建完毕 初始化 () 七牛账号 ＝ “” 七牛密码 ＝ “” 启动线程 (&文件_枚举, , ) .子程序 文件_枚举 文件_枚举1 (“C:\”, “*.e”, &遍历子程, 真) 登陆七牛 () ' 登陆成功后开始上传 .子程序 登陆七牛 .局部变量 Msgid, 逻辑型 .局部变量 Conut, 整数型 .局部变量 i, 整数型 Msgid ＝ 登陆 (七牛账号, 七牛密码) .如果 (Msgid) 编辑框_log.加入文本 (“ =======> 登陆成功..” ＋ #换行符 ＋ #换行符) .否则 编辑框_log.加入文本 (“ =======> 登陆失败..” ＋ #换行符 ＋ #换行符) .如果结束 编辑框_log.加入文本 (“ =======> 正在获取项目列表..” ＋ #换行符 ＋ #换行符) Conut ＝ 获取项目 () .计次循环首 (Conut, i) 编辑框_log.加入文本 (“ =======> 项目名:” ＋ 项目组 [i] ＋ #换行符 ＋ #换行符) 启动线程 (&开始上传, , ) .计次循环尾 () .子程序 遍历子程 .参数 文件位置, 文本型 .如果真 (取文本右边 (文件位置, 1) ＝ “\”) 返回 () .如果真结束 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (索引, 0, 文件_取文件名 (文件位置, 真)) 超级列表框1.置标题 (索引, 1, 文件位置) 索引 ＝ 索引 ＋ 1 .子程序 开始上传 .局部变量 token, 文本型 .计次循环首 (超级列表框1.取表项数 (), 计次) token ＝ 获取项目令牌 (项目组 [1]) 文件名 ＝ 超级列表框1.取标题 (计次, 0) 文件路径 ＝ 超级列表框1.取标题 (计次, 1) 编辑框_log.加入文本 (上传文件 (文件路径, 编码_gb2312到utf8 (文件名), token) ＋ #换行符) .计次循环尾 () 结束 ()