易语言下载

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

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

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

万分感谢。。

是可可吖

论坛里很多例子，随便找几个简单的好用的就行

黑咖啡

会一直重复，那可能是判断循环的问题，跳出循环的条件就两个。把第二个改成大于等于试试。

  

如果真 (nowlenth ≥ fileSize)
跳出循环 ()

.版本 2<br /> <br />     .如果真 (nowlenth ≥ fileSize)<br />         跳出循环 ()

神奇的哆啦A梦

是可可吖 发表于 2025-4-18 09:05
论坛里很多例子，随便找几个简单的好用的就行

手残，一直没改明白

神奇的哆啦A梦

黑咖啡 发表于 2025-4-18 09:13
会一直重复，那可能是判断循环的问题，跳出循环的条件就两个。把第二个改成大于等于试试。
[e=1].版本 2

好的 我试试

不如沉默。

[JavaScript] 纯文本查看 复制代码

.版本 2

.支持库 eAPI
.支持库 eThread
.支持库 eWeb

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 Inet, 精易Inet
.局部变量 服务器IP地址, 文本型
.局部变量 软件名称, 文本型

服务器IP地址 ＝ "http://你的服务器地址"
软件名称 ＝ "你的软件名称"

Inet.初始化 ()

.如果真 (Inet.连接 (取文本左边 (服务器IP地址, 寻找文本 (服务器IP地址, "://", 0, 0) + 2), 80))
    下载线程 (Inet, 服务器IP地址, 软件名称)
    Inet.关闭连接 ()
.否则
    提示 ("连接失败！", "错误")
.如果真结束

.子程序 下载线程
.参数 Inet, 精易Inet
.参数 服务器IP地址, 文本型
.参数 软件名称, 文本型
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 getdata, 文本型
.局部变量 路径, 文本型
.局部变量 得到_文件号, 文本型
.局部变量 整数_文件号, 整数型
.局部变量 getlenth, 整数型
.局部变量 nowlenth, 整数型
.局部变量 fileSize, 整数型
.局部变量 s1, 整数型
.局部变量 s2, 整数型
.局部变量 strdata, 文本型
.局部变量 bidata, 字节集
.局部变量 fileName, 文本型
.局部变量 str, 文本型
.局部变量 文件名, 文本型

url ＝ 服务器IP地址 ＋ "/download"
fileName ＝ 软件名称 ＋ ".exe"
getdata ＝ 到文本 (Inet.发送GET请求 (url ＋ "?file=" ＋ 编码_URL编码 (fileName)))

s1 ＝ 寻找文本 (getdata, "文件号[", 0, 0)
s2 ＝ 寻找文本 (getdata, "]", s1, 0)
得到_文件号 ＝ 取文本中间 (getdata, s1 + 7, s2 - s1 - 7)
s1 ＝ 寻找文本 (getdata, "长度[", 0, 0)
s2 ＝ 寻找文本 (getdata, "]", s1, 0)
fileSize ＝ 到整数 (取文本中间 (getdata, s1 + 5, s2 - s1 - 5))

.如果真 (fileSize = 0)
    信息框 ("更新失败", 0, "温馨提示")
    结束 ()
.如果真结束

路径 ＝ 取运行目录 () ＋ "/temp.data"
整数_文件号 ＝ 打开文件 (路径, #重写, #无限制)
nowlenth ＝ 0

.判断循环首 (True)
    data ＝ fileName ＋ "----" ＋ 得到_文件号 ＋ "----" ＋ 到文本 (nowlenth) ＋ "----开始"
    bidata ＝ Inet.发送POST请求 (url, data)
    getlenth ＝ 取字节集长度 (bidata)

    .如果真 (getlenth = 0)
        跳出循环 ()
    .如果真结束

    写出字节集 (整数_文件号, bidata)
    nowlenth ＝ nowlenth ＋ getlenth

    .如果真 (nowlenth ＝ fileSize)
        跳出循环 ()
    .如果真结束

.判断循环尾 ()

关闭文件 (整数_文件号)

.如果真 (nowlenth ＝ fileSize)
    文件名 ＝ 取运行目录 () ＋ "/" ＋ 软件名称 ＋ ".exe"
    重命名文件 (路径, 文件名)
    信息框 ("更新完成，即将启动新版本！", 0, "温馨提示")
    运行 (文件名, 真, 1)
.否则
    信息框 ("更新失败", 0, "温馨提示")
.如果真结束

结束 ()

神奇的哆啦A梦

不如沉默。 发表于 2025-4-18 10:32
[mw_shl_code=javascript,true].版本 2

.支持库 eAPI

精易Inet   这是那个模块里面的呀  我没找到   哥哥

zyzy123

路过 看看~！

神奇的哆啦A梦

不如沉默。 发表于 2025-4-18 10:32
[mw_shl_code=javascript,true].版本 2

.支持库 eAPI

@不如沉默。

神奇的哆啦A梦

问题是有时候更新会一直重复下载     有没有哥哥  帮忙写个例子 或者 帮忙改改的  万分感谢。。