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

Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb

@@ -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)