| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 下载线程 | |||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 内存号 | 整数型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| url | 文本型 | |||||
| data | 文本型 | |||||
| getdata | 文本型 | |||||
| 路径 | 文本型 | |||||
| 得到_文件号 | 文本型 | |||||
| 整数_文件号 | 整数型 | |||||
| getlenth | 整数型 | |||||
| nowlenth | 整数型 | |||||
| fileSize | 整数型 | |||||
| s1 | 整数型 | |||||
| s2 | 整数型 | |||||
| strdata | 文本型 | |||||
| bidata | 字节集 | |||||
| fileName | 文本型 | |||||
| str | 文本型 | |||||
| 文件名 | 文本型 | |||||
fileName ＝ 软件名称 ＋ “.exe”
getdata ＝ 到文本 (网页_访问_对象 (url, 1, 编码_URL编码 (fileName, 真, 真)))
s1 ＝ 寻找文本 (getdata, “文件号[”, , 假)
s2 ＝ 寻找文本 (getdata, “]”, s1, 假)
得到_文件号 ＝ 取文本中间 (getdata, s1 ＋ 7, s2 － s1 － 7)
s1 ＝ 寻找文本 (getdata, “长度[”, , 假)
s2 ＝ 寻找文本 (getdata, “]”, s1, 假)
fileSize ＝ 到整数 (取文本中间 (getdata, s1 ＋ 5, s2 － s1 － 5))
如果真 (fileSize ＝ 0)
信息框 (“更新失败”, 0, “温馨提示”, )结束 ()路径 ＝ 取运行目录 () ＋ “/temp.data”
整数_文件号 ＝ 打开文件 (路径, #重写, #无限制 )
nowlenth ＝ 0
判断循环首 (真)data ＝ fileName ＋ “----” ＋ 得到_文件号 ＋ “----” ＋ 到文本 (nowlenth) ＋ “----开始”bidata ＝ 网页_访问_对象 (url, 1, 编码_URL编码 (data, 真, 真))getlenth ＝ 取字节集长度 (bidata)如果真 (getlenth ＝ 0)跳出循环 ()写出字节集 (整数_文件号, bidata)nowlenth ＝ nowlenth ＋ getlenth进度条1.位置 ＝ nowlenth × 100 ÷ fileSize如果真 (nowlenth ＝ fileSize)跳出循环 ()
判断循环尾 ()关闭文件 (整数_文件号)
data ＝ fileName ＋ “----” ＋ 得到_文件号 ＋ “----” ＋ 到文本 (nowlenth) ＋ “----完成”
网页_访问_对象 (url, 1, data)
str ＝ “@echo off” ＋ #换行符 ＋ “Taskkill /f /im ” ＋ 取执行文件名 () ＋ #换行符 ＋ “ping 127.0.0.1 -n 01>nul” ＋ #换行符
文件名 ＝ “temp.data”
str ＝ str ＋ “Del ” ＋ 取执行文件名 () ＋ #换行符 ＋ “ping 127.0.0.1 -n 01>nul” ＋ #换行符
str ＝ str ＋ “ren ” ＋ 文件名 ＋ “ ” ＋ 取执行文件名 () ＋ #换行符
str ＝ str ＋ “if EXIST ” ＋ 取执行文件名 () ＋ “ start ” ＋ 取执行文件名 () ＋ #换行符 ＋ “Del %0” ＋ #换行符 ＋ “Exit”
写到文件 (“update1.bat”, 到字节集 (str))
运行 (“update1.bat”, 真, 1)
结束 ()