进度条问题

小旭旭

现在问题是下载的时候怎么显示进度条
求大佬修改一下
使用的是进度条EX1

代码：
.版本 2

返回提示 ＝ 下载程序.开始下载 (“https://yun.audioxu.com/d/%E5%A4%A9%E7%BF%BC%E4%BA%91/%E5%B7%A5%E5%85%B7%E7%AE%B1/WDM2VST11CE.exe?sign=Nvu7fkSD9DRGu32tFtncOYN05v12wA9S0LXyzzqffBA=:0”, 取特定目录 (11) ＋ “AUDIOXU\WDM2VST11CE.exe”)
.如果真 (返回提示 ＝ 0)
.如果真结束
运行 (取特定目录 (11) ＋ “AUDIOXU\WDM2VST11CE.exe”, 假, )

BruceJoysky1987

可以用《网页_断点续传》

小旭旭

BruceJoysky1987 发表于 2025-4-14 00:56
可以用《网页_断点续传》

大佬能给份完整代码吗

BruceJoysky1987

小旭旭 发表于 2025-4-14 00:59
大佬能给份完整代码吗

转载至精易论坛

xizhihan

  

# 修改后的代码
## 1. 初始化界面和变量

子程序名	返回值类型	公开	备 注
_下载按钮_被单击

变量名	类 型	静态	数组	备 注
下载地址	文本型
保存路径	文本型
下载线程	整数型
下载状态	整数型
已下载大小	整数型
总大小	整数型

下载地址 ＝ “https://yun.audioxu.com/d/%E5%A4%A9%E7%BF%BC%E4%BA%91/%E5%B7%A5%E5%85%B7%E7%AE%B1/WDM2VST11CE.exe?sign=Nvu7fkSD9DRGu32tFtncOYN05v12wA9S0LXyzzqffBA=:0”
保存路径 ＝ 取特定目录 (11) ＋ “AUDIOXU\WDM2VST11CE.exe”
' 初始化进度条
进度条EX1.最小位置 ＝ 0
进度条EX1.最大位置 ＝ 100
进度条EX1.位置 ＝ 0
' 启动下载线程
下载线程 ＝ _创建下载线程 (下载地址, 保存路径, 进度条EX1)
' 等待下载完成（这里简单使用循环等待，实际中可以使用更好的同步机制）
.局部循环首
下载状态 ＝ _检查下载状态 (下载线程)
如果 (下载状态 ＝ -1) ' 下载失败
信息框 (“下载失败！”, 0, )
退出循环
.否则如果 (下载状态 ＝ 1) ' 下载完成
信息框 (“下载完成！”, 0, )
退出循环
' 更新进度条（这里需要根据实际下载进度来计算）
' 注意：这里的已下载大小和总大小需要通过下载线程获取，这里只是示例
' 假设有一个函数_获取下载进度(下载线程, 已下载大小, 总大小)
_获取下载进度 (下载线程, 已下载大小, 总大小)
进度条EX1.位置 ＝ 取整 ( (已下载大小 / 总大小) * 100)
延时 (1000) ' 每秒更新一次进度条，实际中可以根据需要调整
.局部循环尾

子程序名	返回值类型	公开	备 注
_创建下载线程	整数型		下载地址, 文本型, 保存路径, 文本型, 进度条, 进度条型
参数名	类 型	参考	可空	数组	备 注
下载地址
保存路径
进度条

' 这里应该创建一个线程来执行下载操作，并返回线程ID
' 由于易语言直接支持多线程的语法较复杂，这里简化处理，仅提供思路
' 你可以使用易语言的“线程”相关支持库或API来实现多线程下载
' 示例：启动一个下载过程（这里需要你自己实现下载逻辑，并更新进度）
' 注意：以下代码仅为示例，并非实际下载实现
返回 (0) ' 假设返回线程ID，实际中需要替换为真实线程ID

子程序名	返回值类型	公开	备 注
_检查下载状态	整数型		线程ID, 整数型
参数名	类 型	参考	可空	数组	备 注
线程ID

' 检查下载线程的状态（这里需要你自己实现状态检查逻辑）
' 返回：-1 表示下载失败，1 表示下载完成，0 表示正在下载
返回 (0) ' 示例：返回正在下载状态

子程序名	返回值类型	公开	备 注
_获取下载进度	逻辑型		线程ID, 整数型, 已下载大小, 引用 整数型, 总大小, 引用 整数型
参数名	类 型	参考	可空	数组	备 注
线程ID
已下载大小	引用
总大小	引用

' 获取下载进度（这里需要你自己实现从下载线程中获取进度的逻辑）
' 返回：逻辑型，表示是否成功获取进度
已下载大小 ＝ 0 ' 示例：假设已下载0字节
总大小 ＝ 1000000 ' 示例：假设总大小为1MB
返回 (真) ' 示例：表示成功获取进度（实际中需要替换为真实逻辑）

i支持库列表	支持库注释
shell	操作系统界面功能支持库
net	(未知支持库)

# 修改后的代码<br /> <br /> ## 1. 初始化界面和变量<br /> <br /> .版本 2<br /> <br /> .支持库 shell<br /> .支持库 net<br /> <br /> .子程序 _下载按钮_被单击<br /> .局部变量 下载地址, 文本型<br /> .局部变量 保存路径, 文本型<br /> .局部变量 下载线程, 整数型<br /> .局部变量 下载状态, 整数型<br /> .局部变量 已下载大小, 整数型<br /> .局部变量 总大小, 整数型<br /> <br /> 下载地址 ＝ “https://yun.audioxu.com/d/%E5%A4%A9%E7%BF%BC%E4%BA%91/%E5%B7%A5%E5%85%B7%E7%AE%B1/WDM2VST11CE.exe?sign=Nvu7fkSD9DRGu32tFtncOYN05v12wA9S0LXyzzqffBA=:0”<br /> 保存路径 ＝ 取特定目录 (11) ＋ “AUDIOXU\WDM2VST11CE.exe”<br /> <br /> ' 初始化进度条<br /> 进度条EX1.最小位置 ＝ 0<br /> 进度条EX1.最大位置 ＝ 100<br /> 进度条EX1.位置 ＝ 0<br /> <br /> ' 启动下载线程<br /> 下载线程 ＝ _创建下载线程 (下载地址, 保存路径, 进度条EX1)<br /> <br /> ' 等待下载完成（这里简单使用循环等待，实际中可以使用更好的同步机制）<br /> .局部循环首<br />     下载状态 ＝ _检查下载状态 (下载线程)<br />     如果 (下载状态 ＝ -1) ' 下载失败<br />         信息框 (“下载失败！”, 0, )<br />         退出循环<br />     .否则如果 (下载状态 ＝ 1) ' 下载完成<br />         信息框 (“下载完成！”, 0, )<br />         退出循环<br />     .否则<br />         ' 更新进度条（这里需要根据实际下载进度来计算）<br />         ' 注意：这里的已下载大小和总大小需要通过下载线程获取，这里只是示例<br />         ' 假设有一个函数_获取下载进度(下载线程, 已下载大小, 总大小)<br />         _获取下载进度 (下载线程, 已下载大小, 总大小)<br />         进度条EX1.位置 ＝ 取整 ((已下载大小 / 总大小) * 100)<br />     .如果结束<br />     延时 (1000) ' 每秒更新一次进度条，实际中可以根据需要调整<br /> .局部循环尾<br /> <br /> .子程序 _创建下载线程, 整数型, , 下载地址, 文本型, 保存路径, 文本型, 进度条, 进度条型<br /> .参数 下载地址<br /> .参数 保存路径<br /> .参数 进度条<br /> <br /> ' 这里应该创建一个线程来执行下载操作，并返回线程ID<br /> ' 由于易语言直接支持多线程的语法较复杂，这里简化处理，仅提供思路<br /> ' 你可以使用易语言的“线程”相关支持库或API来实现多线程下载<br /> <br /> ' 示例：启动一个下载过程（这里需要你自己实现下载逻辑，并更新进度）<br /> ' 注意：以下代码仅为示例，并非实际下载实现<br /> 返回 (0) ' 假设返回线程ID，实际中需要替换为真实线程ID<br /> <br /> .子程序 _检查下载状态, 整数型, , 线程ID, 整数型<br /> .参数 线程ID<br /> <br /> ' 检查下载线程的状态（这里需要你自己实现状态检查逻辑）<br /> ' 返回：-1 表示下载失败，1 表示下载完成，0 表示正在下载<br /> <br /> 返回 (0) ' 示例：返回正在下载状态<br /> <br /> .子程序 _获取下载进度, 逻辑型, , 线程ID, 整数型, 已下载大小, 引用 整数型, 总大小, 引用 整数型<br /> .参数 线程ID<br /> .参数 已下载大小, 引用<br /> .参数 总大小, 引用<br /> <br /> ' 获取下载进度（这里需要你自己实现从下载线程中获取进度的逻辑）<br /> ' 返回：逻辑型，表示是否成功获取进度<br /> <br /> 已下载大小 ＝ 0 ' 示例：假设已下载0字节<br /> 总大小 ＝ 1000000 ' 示例：假设总大小为1MB<br /> 返回 (真) ' 示例：表示成功获取进度（实际中需要替换为真实逻辑）