fix(ModModPack): 解压压缩包进度可能超过 100%

2025-04-09 18:21:16 +08:00
parent 16e09c792c
commit d915fc2362
1 changed files with 1 additions and 0 deletions
@@ -115,6 +115,7 @@ Public Module ModModpack
        Dim Encode = Encoding.GetEncoding("GB18030")
        Try
 Retry:
+            Loader.Progress = 0
            '完全不知道为啥会出现文件正在被另一进程使用的问题，总之多试试
            DeleteDirectory(InstallTemp)
            ExtractFile(FileAddress, InstallTemp, Encode, ProgressIncrementHandler:=Sub(Delta) Loader.Progress += Delta * LoaderProgressDelta)