fix(ModModpack): 初始值不为 0

2025-04-10 16:36:01 +08:00
parent d915fc2362
commit bd24d4c304
1 changed files with 2 additions and 1 deletions
@@ -113,9 +113,10 @@ Public Module ModModpack
        '解压文件
        Dim RetryCount As Integer = 1
        Dim Encode = Encoding.GetEncoding("GB18030")
+        Dim InitialProgress = Loader.Progress
        Try
 Retry:
-            Loader.Progress = 0
+            Loader.Progress = InitialProgress
            '完全不知道为啥会出现文件正在被另一进程使用的问题，总之多试试
            DeleteDirectory(InstallTemp)
            ExtractFile(FileAddress, InstallTemp, Encode, ProgressIncrementHandler:=Sub(Delta) Loader.Progress += Delta * LoaderProgressDelta)