更新下载

神奇的哆啦A梦

  

子程序名	返回值类型	公开	备 注
下载线程
参数名	类 型	参考	可空	数组	备 注
内存号	整数型

变量名	类 型	静态	数组	备 注
url	文本型
data	文本型
getdata	文本型
路径	文本型
得到_文件号	文本型
整数_文件号	整数型
getlenth	整数型
nowlenth	整数型
fileSize	整数型
s1	整数型
s2	整数型
strdata	文本型
bidata	字节集
fileName	文本型
str	文本型
文件名	文本型

url ＝ 服务器IP地址 ＋ “/download”
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)
结束 ()

.版本 2<br /> <br /> .子程序 下载线程<br /> .参数 内存号, 整数型<br /> .局部变量 url, 文本型<br /> .局部变量 data, 文本型<br /> .局部变量 getdata, 文本型<br /> .局部变量 路径, 文本型<br /> .局部变量 得到_文件号, 文本型<br /> .局部变量 整数_文件号, 整数型<br /> .局部变量 getlenth, 整数型<br /> .局部变量 nowlenth, 整数型<br /> .局部变量 fileSize, 整数型<br /> .局部变量 s1, 整数型<br /> .局部变量 s2, 整数型<br /> .局部变量 strdata, 文本型<br /> .局部变量 bidata, 字节集<br /> .局部变量 fileName, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 文件名, 文本型<br /> <br /> url ＝ 服务器IP地址 ＋ “/download”<br /> fileName ＝ 软件名称 ＋ “.exe”<br /> getdata ＝ 到文本 (网页_访问_对象 (url, 1, 编码_URL编码 (fileName, 真, 真)))<br /> s1 ＝ 寻找文本 (getdata, “文件号[”, , 假)<br /> s2 ＝ 寻找文本 (getdata, “]”, s1, 假)<br /> 得到_文件号 ＝ 取文本中间 (getdata, s1 ＋ 7, s2 － s1 － 7)<br /> s1 ＝ 寻找文本 (getdata, “长度[”, , 假)<br /> s2 ＝ 寻找文本 (getdata, “]”, s1, 假)<br /> fileSize ＝ 到整数 (取文本中间 (getdata, s1 ＋ 5, s2 － s1 － 5))<br /> .如果真 (fileSize ＝ 0)<br />     信息框 (“更新失败”, 0, “温馨提示”, )<br />     结束 ()<br /> .如果真结束<br /> 路径 ＝ 取运行目录 () ＋ “/temp.data”<br /> 整数_文件号 ＝ 打开文件 (路径, #重写, #无限制)<br /> nowlenth ＝ 0<br /> .判断循环首 (真)<br />     data ＝ fileName ＋ “----” ＋ 得到_文件号 ＋ “----” ＋ 到文本 (nowlenth) ＋ “----开始”<br />     bidata ＝ 网页_访问_对象 (url, 1, 编码_URL编码 (data, 真, 真))<br />     getlenth ＝ 取字节集长度 (bidata)<br />     .如果真 (getlenth ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br />     写出字节集 (整数_文件号, bidata)<br />     nowlenth ＝ nowlenth ＋ getlenth<br />     进度条1.位置 ＝ nowlenth × 100 ÷ fileSize<br />     .如果真 (nowlenth ＝ fileSize)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 关闭文件 (整数_文件号)<br /> data ＝ fileName ＋ “----” ＋ 得到_文件号 ＋ “----” ＋ 到文本 (nowlenth) ＋ “----完成”<br /> 网页_访问_对象 (url, 1, data)<br /> str ＝ “<a href="https://bbs.125.la/home.php?mod=space&uid=69001" target="_blank">@echo</a> off” ＋ #换行符 ＋ “Taskkill /f /im ” ＋ 取执行文件名 () ＋ #换行符 ＋ “ping 127.0.0.1 -n 01>nul” ＋ #换行符<br /> 文件名 ＝ “temp.data”<br /> str ＝ str ＋ “Del ” ＋ 取执行文件名 () ＋ #换行符 ＋ “ping 127.0.0.1 -n 01>nul” ＋ #换行符<br /> str ＝ str ＋ “ren ” ＋ 文件名 ＋ “ ” ＋ 取执行文件名 () ＋ #换行符<br /> str ＝ str ＋ “if EXIST ” ＋ 取执行文件名 () ＋ “ start ” ＋ 取执行文件名 () ＋ #换行符 ＋ “Del %0” ＋ #换行符 ＋ “Exit”<br /> 写到文件 (“update1.bat”, 到字节集 (str))<br /> 运行 (“update1.bat”, 真, 1)<br /> 结束 ()

---------------------------------------------------------------------
问题是有时候更新会一直重复下载   

有没有哥哥  帮忙写个例子 或者 帮忙改改的

万分感谢。。

易肆玖

昨天不是有人给你写了

lufanjingyi

先获取最新版本对比   然后不对再下载呀   

神奇的哆啦A梦

易肆玖 发表于 2025-4-20 10:23
昨天不是有人给你写了

精易Inet    他那有个这个  不知道是那个模块里面的  我一直没找到  也联系不到他

神奇的哆啦A梦

lufanjingyi 发表于 2025-4-20 10:36
先获取最新版本对比   然后不对再下载呀

有对比版本号  现在就是有时候一直重复下载

易肆玖

一个简单更新下载还有更简单的方法吧，或者说你是有什么特殊的需要