易语言下载

神奇的哆啦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 /> 结束 ()

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

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

万分感谢。。

opphk

你写个判断是否是最新版本就行了，

Ruang

你这是判断循环=真  的影响吧

补充内容 (2025-4-21 09:13):
主要看看判断循环=真里面的具体代码吧

Ruang

  

写出字节集 (整数_文件号, bidata)

写出字节集 (整数_文件号, bidata)

重复写出应该是因为这个吧，注意看一下判断循环=真  里面的代码
无限写出就是下面条件不成立，就一直循环，然后上面访问的数据不是空，就一直循环

  

如果真 (nowlenth ＝ fileSize)

如果真 (nowlenth ＝ fileSize)

补充内容 (2025-4-21 09:31):
无限访问网页，检查服务器返回的数据，和判断循环-=真 里面的代码