精易论坛

标题: 下载进度怎么写套上他这个模块置进度 [打印本页]

---

作者: 1624681585    时间: 2025-3-15 16:57
标题: 下载进度怎么写套上他这个模块置进度

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

大恩_等待框_载入 (5, “牛逼软件”, “启动中，请稍等...”, “准备中”, , 2, &启动回调_等待框已关闭)
延迟 (50)  ' 模拟耗时
大恩_等待框_置进度 (10)
大恩_等待框_置内容 (“启动中，10%”)
如果真 (大恩_等待框_取状态 () ＝ 假)
结束 ()

延迟 (50)  ' 模拟耗时
大恩_等待框_置进度 (20)
大恩_等待框_置内容 (“启动中，10%”)
如果真 (大恩_等待框_取状态 () ＝ 假)
结束 ()

延迟 (50)  ' 模拟耗时
大恩_等待框_置进度 (30)
大恩_等待框_置内容 (“启动中，10%”)
如果真 (大恩_等待框_取状态 () ＝ 假)
结束 ()

延迟 (50)  ' 模拟耗时
大恩_等待框_置进度 (50)
大恩_等待框_置内容 (“启动中，10%”)
如果真 (大恩_等待框_取状态 () ＝ 假)
结束 ()

延迟 (50)  ' 模拟耗时
大恩_等待框_置进度 (80)
大恩_等待框_置内容 (“启动中，10%”)
如果真 (大恩_等待框_取状态 () ＝ 假)
结束 ()

延迟 (50)  ' 模拟耗时
大恩_等待框_置进度 (100)
大恩_等待框_置内容 (“启动中，10%”)
如果真 (大恩_等待框_取状态 () ＝ 假)
结束 ()

延迟 (50)  ' 模拟耗时
载入 (窗口1, , 假)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
启动回调_等待框已关闭

调试输出 (“回调_等待框已关闭”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 大恩_等待框_载入 (5, “牛逼软件”, “启动中，请稍等...”, “准备中”, , 2, &启动回调_等待框已关闭)<br /> 延迟 (50)  ' 模拟耗时<br /> 大恩_等待框_置进度 (10)<br /> 大恩_等待框_置内容 (“启动中，10%”)<br /> .如果真 (大恩_等待框_取状态 () ＝ 假)<br />     结束 ()<br /> .如果真结束<br /> <br /> 延迟 (50)  ' 模拟耗时<br /> 大恩_等待框_置进度 (20)<br /> 大恩_等待框_置内容 (“启动中，10%”)<br /> .如果真 (大恩_等待框_取状态 () ＝ 假)<br />     结束 ()<br /> .如果真结束<br /> <br /> 延迟 (50)  ' 模拟耗时<br /> 大恩_等待框_置进度 (30)<br /> 大恩_等待框_置内容 (“启动中，10%”)<br /> .如果真 (大恩_等待框_取状态 () ＝ 假)<br />     结束 ()<br /> .如果真结束<br /> <br /> 延迟 (50)  ' 模拟耗时<br /> 大恩_等待框_置进度 (50)<br /> 大恩_等待框_置内容 (“启动中，10%”)<br /> .如果真 (大恩_等待框_取状态 () ＝ 假)<br />     结束 ()<br /> .如果真结束<br /> <br /> 延迟 (50)  ' 模拟耗时<br /> 大恩_等待框_置进度 (80)<br /> 大恩_等待框_置内容 (“启动中，10%”)<br /> .如果真 (大恩_等待框_取状态 () ＝ 假)<br />     结束 ()<br /> .如果真结束<br /> <br /> 延迟 (50)  ' 模拟耗时<br /> 大恩_等待框_置进度 (100)<br /> 大恩_等待框_置内容 (“启动中，10%”)<br /> .如果真 (大恩_等待框_取状态 () ＝ 假)<br />     结束 ()<br /> .如果真结束<br /> <br /> 延迟 (50)  ' 模拟耗时<br /> <br /> 载入 (窗口1, , 假)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 启动回调_等待框已关闭<br /> <br /> 调试输出 (“回调_等待框已关闭”)

---

作者: 1226852858    时间: 2025-3-15 16:57

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
耗时	整数型
上次时间	整数型

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

启动线程 (&子程序_curl, , )

子程序名	返回值类型	公开	备 注
子程序_curl

变量名	类 型	静态	数组	备 注
curl	WinHttp_curl
Length	文本型
文件号	整数型

全_目前时间 ＝ 取启动时间 ()
大恩_等待框_载入 (6, “更新下载”, “更新下载”, “准备中”, , 2, &启动回调_等待框已关闭)
大恩_等待框_置进度 (1)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\FxBanZouSetup7.52.1.520.full.exe”, #重写, )
curl.SetProtocolversion (4)
curl.SetRedirect (真)
curl.SetTimeouts (60000066, 60000066)
curl.Open (“GET”, “https://fxdownmini.yun.kugou.com/fanxing/banzou/20250304/FxBanZouSetup7.52.1.520.full.exe”, )
curl.置进度回调 (&子程序_进度, )
curl.置写数据回调 (&子程序_写数据回调, 文件号)
curl.Send ()
Length ＝ 文本_取中间_汇编 (curl.GetAllResponseHeaders (), “Content-Length: ”, #换行符, , )
输出调试文本 (“文件大小：” ＋ 文件_大小单位转换 (到数值 (Length)), curl.GetResponseTime ())
关闭文件 (文件号)

子程序名	返回值类型	公开	备 注
子程序_进度	整数型
参数名	类 型	参考	可空	数组	备 注
参数_用户数据	整数型
参数_下载总数	长整数型
参数_下载当前值	长整数型
参数_上传总数	长整数型
参数_上传当前值	长整数型

' 调试输出 (“下载_进度回调”, 参_总大小, 参_目前下载, 参_目前时间, 参_索引)
全_文件大小 ＝ 文件_大小单位转换 (参数_下载总数)
全_已下载 ＝ 文件_大小单位转换 (参数_下载当前值)
全_耗时 ＝ 取启动时间 () － 全_目前时间
全_速度 ＝ 四舍五入 (参数_下载当前值 × 1000 ÷ 1024 ÷ 全_耗时, 1)
全_下载速度 ＝ 格式化速度 (全_速度)
全_百分比 ＝ 四舍五入 (参数_下载当前值 × 100 ÷ 参数_下载总数, )
全_文件总大小 ＝ 文件_大小单位转换 (到数值 (参数_下载总数))
全_文件总下载 ＝ 文件_大小单位转换 (到数值 (参数_下载当前值))
耗时 ＝ 全_耗时 ÷ 500
如果真 (耗时 ＞ 上次时间)
大恩_等待框_置内容 (“文件总大小：” ＋ 全_文件总大小 ＋ “  文件总下载：” ＋ 全_文件总下载 ＋ #换行符 ＋ “   每秒速度：” ＋ 全_下载速度 ＋ “  耗时：” ＋ 到文本 (到整数 (全_耗时 ÷ 1000)) ＋ “/秒”)
调试输出 (全_百分比)
大恩_等待框_置进度 (到整数 (全_百分比))
大恩_等待框_取状态 ()
上次时间 ＝ 耗时
返回 (0)
上次时间 ＝ 耗时
如果真 (到整数 (全_百分比) ＝ 100)
' 标签4.标题 ＝ “文件总大小：” ＋ 全_文件总大小 ＋ “  文件总下载：” ＋ 全_文件总下载 ＋ “   每秒速度：” ＋ 全_下载速度 ＋ “  耗时：” ＋ 到文本 (到整数 (全_耗时 ÷ 1000)) ＋ “/秒”
大恩_等待框_置内容 (“文件总大小：” ＋ 全_文件总大小 ＋ “  文件总下载：” ＋ 全_文件总下载 ＋ #换行符 ＋ “   每秒速度：” ＋ 全_下载速度 ＋ “  耗时：” ＋ 到文本 (到整数 (全_耗时 ÷ 1000)) ＋ “/秒”)
大恩_等待框_置进度 (到整数 (全_百分比))
大恩_等待框_取状态 ()
' 标签4.标题 ＝ “文件总大小：” ＋ 全_文件总大小 ＋ “  文件总下载：” ＋ 全_文件总下载 ＋ “   每秒速度：” ＋ 全_下载速度 ＋ “  耗时：” ＋ 到文本 (到整数 (全_耗时 ÷ 1000)) ＋ “/秒”
' 自定义进度条 (全_百分比, 100)
返回 (0)

子程序名	返回值类型	公开	备 注
子程序_写数据回调	整数型
参数名	类 型	参考	可空	数组	备 注
参数_用户数据	整数型
参数_数据指针	整数型
参数_长度	整数型

写出字节集 (参数_用户数据, 指针到字节集 (参数_数据指针, 参数_长度))
返回 (参数_长度)

子程序名	返回值类型	公开	备 注
文本_取中间_汇编	文本型
参数名	类 型	参考	可空	数组	备 注
源文本	文本型
开始文本	文本型
结束文本	文本型
起始位置	整数型
是否不区分大小写	逻辑型

变量名	类 型	静态	数组	备 注
iStart	整数型
iEnd	整数型

iStart ＝ 文本_寻找_汇编 (源文本, 开始文本, 起始位置, 是否不区分大小写)
如果真 (iStart ≠ -1)
iStart ＝ iStart ＋ 文本_取长度_汇编 (开始文本)
iEnd ＝ 文本_寻找_汇编 (源文本, 结束文本, iStart, 是否不区分大小写)
如果真 (iEnd ≠ -1)
返回 (取文本中间 (源文本, iStart, iEnd － iStart))

返回 (“”)

子程序名	返回值类型	公开	备 注
文件_大小单位转换	文本型
参数名	类 型	参考	可空	数组	备 注
Size	双精度小数型				到数值(Size)

变量名	类 型	静态	数组	备 注
局_单位	文本型

如果真 (Size ＜ 1024)
局_单位 ＝ “B”
如果真 (Size ＞ 1024 且 Size ＜ 1024 × 1024 × 1024 且 Size ＜ 1024 × 1024)
Size ＝ Size ÷ 1024
局_单位 ＝ “KB”
如果真 (Size ＞ 1024 × 1024 且 Size ＜ 1024 × 1024 × 1024)
Size ＝ Size ÷ 1024 ÷ 1024
局_单位 ＝ “MB”
如果真 (Size ＞ 1024 × 1024 × 1024)
Size ＝ Size ÷ 1024 ÷ 1024 ÷ 1024
局_单位 ＝ “GB”
返回 (到文本 (四舍五入 (Size, 2)) ＋ “ ” ＋ 局_单位)

子程序名	返回值类型	公开	备 注
格式化速度	文本型
参数名	类 型	参考	可空	数组	备 注
速度_c	小数型

变量名	类 型	静态	数组	备 注
ret	文本型

如果 (速度_c ≥ 1024)
速度_c ＝ 速度_c ÷ 1024
ret ＝ “ MB/s”
ret ＝ “ KB/s”
ret ＝ 格式化文本 (“%.2f”, 速度_c) ＋ ret
返回 (ret)

子程序名	返回值类型	公开	备 注
启动回调_等待框已关闭

调试输出 (“回调_等待框已关闭”)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 耗时, 整数型<br /> .程序集变量 上次时间, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&子程序_curl, , )<br /> <br /> .子程序 子程序_curl<br /> .局部变量 curl, WinHttp_curl<br /> .局部变量 Length, 文本型<br /> .局部变量 文件号, 整数型<br /> <br /> 全_目前时间 ＝ 取启动时间 ()<br /> 大恩_等待框_载入 (6, “更新下载”, “更新下载”, “准备中”, , 2, &启动回调_等待框已关闭)<br /> 大恩_等待框_置进度 (1)<br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\FxBanZouSetup7.52.1.520.full.exe”, #重写, )<br /> curl.SetProtocolversion (4)<br /> curl.SetRedirect (真)<br /> curl.SetTimeouts (60000066, 60000066)<br /> curl.Open (“GET”, “https://fxdownmini.yun.kugou.com/fanxing/banzou/20250304/FxBanZouSetup7.52.1.520.full.exe”, )<br /> curl.置进度回调 (&子程序_进度, )<br /> curl.置写数据回调 (&子程序_写数据回调, 文件号)<br /> curl.Send ()<br /> Length ＝ 文本_取中间_汇编 (curl.GetAllResponseHeaders (), “Content-Length: ”, #换行符, , )<br /> 输出调试文本 (“文件大小：” ＋ 文件_大小单位转换 (到数值 (Length)), curl.GetResponseTime ())<br /> 关闭文件 (文件号)<br /> <br /> .子程序 子程序_进度, 整数型<br /> .参数 参数_用户数据, 整数型<br /> .参数 参数_下载总数, 长整数型<br /> .参数 参数_下载当前值, 长整数型<br /> .参数 参数_上传总数, 长整数型<br /> .参数 参数_上传当前值, 长整数型<br /> <br /> ' 调试输出 (“下载_进度回调”, 参_总大小, 参_目前下载, 参_目前时间, 参_索引)<br /> 全_文件大小 ＝ 文件_大小单位转换 (参数_下载总数)<br /> 全_已下载 ＝ 文件_大小单位转换 (参数_下载当前值)<br /> 全_耗时 ＝ 取启动时间 () － 全_目前时间<br /> 全_速度 ＝ 四舍五入 (参数_下载当前值 × 1000 ÷ 1024 ÷ 全_耗时, 1)<br /> 全_下载速度 ＝ 格式化速度 (全_速度)<br /> 全_百分比 ＝ 四舍五入 (参数_下载当前值 × 100 ÷ 参数_下载总数, )<br /> 全_文件总大小 ＝ 文件_大小单位转换 (到数值 (参数_下载总数))<br /> 全_文件总下载 ＝ 文件_大小单位转换 (到数值 (参数_下载当前值))<br /> 耗时 ＝ 全_耗时 ÷ 500<br /> .如果真 (耗时 ＞ 上次时间)<br />     大恩_等待框_置内容 (“文件总大小：” ＋ 全_文件总大小 ＋ “  文件总下载：” ＋ 全_文件总下载 ＋ #换行符 ＋ “   每秒速度：” ＋ 全_下载速度 ＋ “  耗时：” ＋ 到文本 (到整数 (全_耗时 ÷ 1000)) ＋ “/秒”)<br />     调试输出 (全_百分比)<br />     大恩_等待框_置进度 (到整数 (全_百分比))<br />     大恩_等待框_取状态 ()<br />     上次时间 ＝ 耗时<br />     返回 (0)<br /> .如果真结束<br /> 上次时间 ＝ 耗时<br /> .如果真 (到整数 (全_百分比) ＝ 100)<br />     ' 标签4.标题 ＝ “文件总大小：” ＋ 全_文件总大小 ＋ “  文件总下载：” ＋ 全_文件总下载 ＋ “   每秒速度：” ＋ 全_下载速度 ＋ “  耗时：” ＋ 到文本 (到整数 (全_耗时 ÷ 1000)) ＋ “/秒”<br />     大恩_等待框_置内容 (“文件总大小：” ＋ 全_文件总大小 ＋ “  文件总下载：” ＋ 全_文件总下载 ＋ #换行符 ＋ “   每秒速度：” ＋ 全_下载速度 ＋ “  耗时：” ＋ 到文本 (到整数 (全_耗时 ÷ 1000)) ＋ “/秒”)<br />     大恩_等待框_置进度 (到整数 (全_百分比))<br />     大恩_等待框_取状态 ()<br /> .如果真结束<br /> ' 标签4.标题 ＝ “文件总大小：” ＋ 全_文件总大小 ＋ “  文件总下载：” ＋ 全_文件总下载 ＋ “   每秒速度：” ＋ 全_下载速度 ＋ “  耗时：” ＋ 到文本 (到整数 (全_耗时 ÷ 1000)) ＋ “/秒”<br /> ' 自定义进度条 (全_百分比, 100)<br /> 返回 (0)<br /> <br /> .子程序 子程序_写数据回调, 整数型<br /> .参数 参数_用户数据, 整数型<br /> .参数 参数_数据指针, 整数型<br /> .参数 参数_长度, 整数型<br /> <br /> 写出字节集 (参数_用户数据, 指针到字节集 (参数_数据指针, 参数_长度))<br /> 返回 (参数_长度)<br /> <br /> .子程序 文本_取中间_汇编, 文本型, 公开<br /> .参数 源文本, 文本型<br /> .参数 开始文本, 文本型<br /> .参数 结束文本, 文本型<br /> .参数 起始位置, 整数型, 可空<br /> .参数 是否不区分大小写, 逻辑型, 可空<br /> .局部变量 iStart, 整数型<br /> .局部变量 iEnd, 整数型<br /> <br /> iStart ＝ 文本_寻找_汇编 (源文本, 开始文本, 起始位置, 是否不区分大小写)<br /> .如果真 (iStart ≠ -1)<br />     iStart ＝ iStart ＋ 文本_取长度_汇编 (开始文本)<br />     iEnd ＝ 文本_寻找_汇编 (源文本, 结束文本, iStart, 是否不区分大小写)<br />     .如果真 (iEnd ≠ -1)<br />         返回 (取文本中间 (源文本, iStart, iEnd － iStart))<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (“”)<br /> <br /> <br /> <br /> <br /> .子程序 文件_大小单位转换, 文本型, 公开<br /> .参数 Size, 双精度小数型, , 到数值(Size)<br /> .局部变量 局_单位, 文本型<br /> <br /> .如果真 (Size ＜ 1024)<br />     局_单位 ＝ “B”<br /> .如果真结束<br /> .如果真 (Size ＞ 1024 且 Size ＜ 1024 × 1024 × 1024 且 Size ＜ 1024 × 1024)<br />     Size ＝ Size ÷ 1024<br />     局_单位 ＝ “KB”<br /> .如果真结束<br /> .如果真 (Size ＞ 1024 × 1024 且 Size ＜ 1024 × 1024 × 1024)<br />     Size ＝ Size ÷ 1024 ÷ 1024<br />     局_单位 ＝ “MB”<br /> .如果真结束<br /> .如果真 (Size ＞ 1024 × 1024 × 1024)<br />     Size ＝ Size ÷ 1024 ÷ 1024 ÷ 1024<br />     局_单位 ＝ “GB”<br /> .如果真结束<br /> 返回 (到文本 (四舍五入 (Size, 2)) ＋ “ ” ＋ 局_单位)<br /> <br /> .子程序 格式化速度, 文本型<br /> .参数 速度_c, 小数型<br /> .局部变量 ret, 文本型<br /> <br /> .如果 (速度_c ≥ 1024)<br />     速度_c ＝ 速度_c ÷ 1024<br />     ret ＝ “ MB/s”<br /> .否则<br />     ret ＝ “ KB/s”<br /> .如果结束<br /> ret ＝ 格式化文本 (“%.2f”, 速度_c) ＋ ret<br /> 返回 (ret)<br /> <br /> .子程序 启动回调_等待框已关闭<br /> <br /> 调试输出 (“回调_等待框已关闭”)

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4