InfStarMC/PCL-ISE
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

chore(ModDownloadLib): 按意见进行修改

Browse Source
This commit is contained in:
wyc-26
2025-03-22 15:21:33 +00:00
parent f2b6ef27ed
commit d546528904
2 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Plain Craft Launcher 2/Modules/ModMain.vb
+6 -7
View File
@@ -873,17 +873,16 @@ NextFile:
End Sub End Sub
''' <summary> ''' <summary>
''' 申请一个可用于任务缓存的临时文件夹。 ''' 申请一个可用于任务缓存的临时文件夹，以 \ 结尾。
''' 这些文件夹无需进行后续清理。 ''' 这些文件夹无需进行后续清理。
''' </summary> ''' </summary>
''' <param name="RequireNonSpace">是否要求路径不包含空格。</param> ''' <param name="RequireNonSpace">是否要求路径不包含空格。</param>
''' <param name="RequireSlash">是否要求路径包含斜杠。</param> Public Function RequestTaskTempFolder(Optional RequireNonSpace As Boolean = False) As String
Public Function RequestTaskTempFolder(Optional RequireNonSpace As Boolean = False, Optional RequireSlash As Boolean = True) As String
TryClearTaskTemp() TryClearTaskTemp()
Dim RequestTaskTempFolderWithoutSlash As String = If(RequireNonSpace AndAlso $"{PathTemp}TaskTemp\{GetUuid()}-{RandomInteger(0, 1000000)}".Contains(" "), RequestTaskTempFolder = $"{PathTemp}TaskTemp\{GetUuid()}-{RandomInteger(0, 1000000)}\"
$"{OsDrive}ProgramData\PCL\TaskTemp\{GetUuid()}-{RandomInteger(0, 1000000)}", If RequireNonSpace AndAlso RequestTaskTempFolder.Contains(" ") Then
$"{PathTemp}TaskTemp\{GetUuid()}-{RandomInteger(0, 1000000)}") RequestTaskTempFolder = $"{OsDrive}ProgramData\PCL\TaskTemp\{GetUuid()}-{RandomInteger(0, 1000000)}\"
RequestTaskTempFolder = If(RequireSlash, $"{RequestTaskTempFolderWithoutSlash}\", RequestTaskTempFolderWithoutSlash) End If
Directory.CreateDirectory(RequestTaskTempFolder) Directory.CreateDirectory(RequestTaskTempFolder)
End Function End Function
Plain Craft Launcher 2/Pages/PageDownload/ModDownloadLib.vb
+1 -1
View File
@@ -613,7 +613,7 @@ pause"
Log("[Download] 检测为新版 OptiFine：" & DownloadInfo.Inherit) Log("[Download] 检测为新版 OptiFine：" & DownloadInfo.Inherit)
Loaders.Add(New LoaderTask(Of List(Of NetFile), Boolean)("安装 OptiFine（方式 A）", Loaders.Add(New LoaderTask(Of List(Of NetFile), Boolean)("安装 OptiFine（方式 A）",
Sub(Task As LoaderTask(Of List(Of NetFile), Boolean)) Sub(Task As LoaderTask(Of List(Of NetFile), Boolean))
Dim BaseMcFolderHome As String = RequestTaskTempFolder(False, False) Dim BaseMcFolderHome As String = BaseMcFolderHome.TrimEnd("\")
Dim BaseMcFolder As String = BaseMcFolderHome & "\.minecraft\" Dim BaseMcFolder As String = BaseMcFolderHome & "\.minecraft\"
Try Try
'准备安装环境 '准备安装环境