🎨 取消测试时的注释
This commit is contained in:
youzi-3222
@@ -1016,106 +1016,106 @@ Retry:
|
|||||||
Log($"[Export] 缓存文件夹：{tempDir}")
|
Log($"[Export] 缓存文件夹：{tempDir}")
|
||||||
Directory.CreateDirectory(tempDir)
|
Directory.CreateDirectory(tempDir)
|
||||||
|
|
||||||
' '步骤 1：从 Modrinth 获取 Mod 工程信息，得到 URL
|
'步骤 1：从 Modrinth 获取 Mod 工程信息，得到 URL
|
||||||
' Dim Mods As New List(Of McMod)
|
Dim Mods As New List(Of McMod)
|
||||||
' If Directory.Exists(Version.Path & "mods\") Then
|
If Directory.Exists(Version.Path & "mods\") Then
|
||||||
' For Each m In Directory.EnumerateFiles(Version.Path & "mods\")
|
For Each m In Directory.EnumerateFiles(Version.Path & "mods\")
|
||||||
' If m.EndsWithF(".jar") Then Mods.Add(New McMod(m))
|
If m.EndsWithF(".jar") Then Mods.Add(New McMod(m))
|
||||||
' Next
|
Next
|
||||||
' End If
|
End If
|
||||||
|
|
||||||
' '从 Modrinth 获取信息
|
'从 Modrinth 获取信息
|
||||||
' Dim ModrinthHashes = Mods.Select(Function(m) m.ModrinthHash).ToList()
|
Dim ModrinthHashes = Mods.Select(Function(m) m.ModrinthHash).ToList()
|
||||||
' Dim ModrinthVersion = CType(GetJson(NetRequestRetry("https://api.modrinth.com/v2/version_files", "POST",
|
Dim ModrinthVersion = CType(GetJson(NetRequestRetry("https://api.modrinth.com/v2/version_files", "POST",
|
||||||
'$"{{""hashes"": [""{ModrinthHashes.Join(""",""")}""], ""algorithm"": ""sha1""}}", "application/json")), JObject)
|
$"{{""hashes"": [""{ModrinthHashes.Join(""",""")}""], ""algorithm"": ""sha1""}}", "application/json")), JObject)
|
||||||
' Log($"[Export] 从 Modrinth 获取到 {ModrinthVersion.Count} 个本地 Mod 的对应信息")
|
Log($"[Export] 从 Modrinth 获取到 {ModrinthVersion.Count} 个本地 Mod 的对应信息")
|
||||||
|
|
||||||
' Dim ModrinthMapping As New Dictionary(Of String, JObject) 'Modrinth 获取到的 Mod
|
Dim ModrinthMapping As New Dictionary(Of String, JObject) 'Modrinth 获取到的 Mod
|
||||||
' Dim ModrinthFailed As New List(Of McMod) 'Modrinth 获取失败的 Mod
|
Dim ModrinthFailed As New List(Of McMod) 'Modrinth 获取失败的 Mod
|
||||||
' For Each Entry In Mods
|
For Each Entry In Mods
|
||||||
' If (Not ModrinthVersion.ContainsKey(Entry.ModrinthHash)) OrElse
|
If (Not ModrinthVersion.ContainsKey(Entry.ModrinthHash)) OrElse
|
||||||
' (ModrinthVersion(Entry.ModrinthHash)("files")(0)("hashes")("sha1") <> Entry.ModrinthHash) Then
|
(ModrinthVersion(Entry.ModrinthHash)("files")(0)("hashes")("sha1") <> Entry.ModrinthHash) Then
|
||||||
' ModrinthFailed.Add(Entry)
|
ModrinthFailed.Add(Entry)
|
||||||
' Continue For
|
Continue For
|
||||||
' End If
|
End If
|
||||||
' ModrinthMapping.Add(Entry.FileName, ModrinthVersion(Entry.ModrinthHash)("files")(0))
|
ModrinthMapping.Add(Entry.FileName, ModrinthVersion(Entry.ModrinthHash)("files")(0))
|
||||||
' Next
|
Next
|
||||||
|
|
||||||
' '步骤 2：把获取失败的 Mod 从 CurseForge 继续获取
|
'步骤 2：把获取失败的 Mod 从 CurseForge 继续获取
|
||||||
' Dim CurseForgeHashes = ModrinthFailed.Select(Function(m) m.CurseForgeHash).ToList()
|
Dim CurseForgeHashes = ModrinthFailed.Select(Function(m) m.CurseForgeHash).ToList()
|
||||||
' Dim CurseForgeRaw = CType(CType(GetJson(NetRequestRetry("https://api.curseforge.com/v1/fingerprints/432/", "POST",
|
Dim CurseForgeRaw = CType(CType(GetJson(NetRequestRetry("https://api.curseforge.com/v1/fingerprints/432/", "POST",
|
||||||
' $"{{""fingerprints"": [{CurseForgeHashes.Join(",")}]}}", "application/json")), JObject)("data")("exactMatches"), JContainer)
|
$"{{""fingerprints"": [{CurseForgeHashes.Join(",")}]}}", "application/json")), JObject)("data")("exactMatches"), JContainer)
|
||||||
' Log($"[Export] 从 CurseForge 获取到 {CurseForgeRaw.Count} 个本地 Mod 的对应信息")
|
Log($"[Export] 从 CurseForge 获取到 {CurseForgeRaw.Count} 个本地 Mod 的对应信息")
|
||||||
|
|
||||||
|
|
||||||
' Dim CurseForgeMapping As New Dictionary(Of String, JObject) 'CurseForge 获取到的 Mod
|
Dim CurseForgeMapping As New Dictionary(Of String, JObject) 'CurseForge 获取到的 Mod
|
||||||
' For Each m In CurseForgeRaw
|
For Each m In CurseForgeRaw
|
||||||
' Dim hash As String = ""
|
Dim hash As String = ""
|
||||||
' For Each h In m("file")("hashes") '获取 Modrinth Hash
|
For Each h In m("file")("hashes") '获取 Modrinth Hash
|
||||||
' If h("algo").ToString = 1 Then
|
If h("algo").ToString = 1 Then
|
||||||
' hash = h("value")
|
hash = h("value")
|
||||||
' Exit For
|
Exit For
|
||||||
' End If
|
End If
|
||||||
' Next
|
Next
|
||||||
' If String.IsNullOrEmpty(hash) OrElse String.IsNullOrEmpty(m("file")("downloadUrl")) Then Continue For
|
If String.IsNullOrEmpty(hash) OrElse String.IsNullOrEmpty(m("file")("downloadUrl")) Then Continue For
|
||||||
|
|
||||||
' m("file")("ModrinthHash") = hash
|
m("file")("ModrinthHash") = hash
|
||||||
' CurseForgeMapping.Add(m("file")("fileName"), m("file"))
|
CurseForgeMapping.Add(m("file")("fileName"), m("file"))
|
||||||
' For Each file In ModrinthFailed
|
For Each file In ModrinthFailed
|
||||||
' If file.ModrinthHash = hash Then
|
If file.ModrinthHash = hash Then
|
||||||
' ModrinthFailed.Remove(file)
|
ModrinthFailed.Remove(file)
|
||||||
' Exit For
|
Exit For
|
||||||
' End If
|
End If
|
||||||
' Next
|
Next
|
||||||
' Next
|
Next
|
||||||
|
|
||||||
' '步骤 3：写入 Json 文件
|
'步骤 3：写入 Json 文件
|
||||||
' '获取作为检查目标的加载器和版本
|
'获取作为检查目标的加载器和版本
|
||||||
' Dim ModLoaders = GetTargetModLoaders()
|
Dim ModLoaders = GetTargetModLoaders()
|
||||||
' Dim McVersion = Version.Version.McName
|
Dim McVersion = Version.Version.McName
|
||||||
' Log($"[Export] 目标加载器：{ModLoaders.Join("/")}，版本：{McVersion}")
|
Log($"[Export] 目标加载器：{ModLoaders.Join("/")}，版本：{McVersion}")
|
||||||
|
|
||||||
' Dim files As New JArray
|
Dim files As New JArray
|
||||||
' For Each m In ModrinthMapping
|
For Each m In ModrinthMapping
|
||||||
' files.Add(New JObject From {
|
files.Add(New JObject From {
|
||||||
' {"path", $"mods/{m.Key}"},
|
{"path", $"mods/{m.Key}"},
|
||||||
' {"hashes", m.Value("hashes")},
|
{"hashes", m.Value("hashes")},
|
||||||
' {"env", New JObject From {{"client", "required"}, {"server", "required"}}},
|
{"env", New JObject From {{"client", "required"}, {"server", "required"}}},
|
||||||
' {"downloads", New JArray From {m.Value("url")}},
|
{"downloads", New JArray From {m.Value("url")}},
|
||||||
' {"fileSize", m.Value("size")}
|
{"fileSize", m.Value("size")}
|
||||||
' })
|
})
|
||||||
' Next
|
Next
|
||||||
' For Each m In CurseForgeMapping
|
For Each m In CurseForgeMapping
|
||||||
' files.Add(New JObject From {
|
files.Add(New JObject From {
|
||||||
' {"path", $"mods/{m.Key}"},
|
{"path", $"mods/{m.Key}"},
|
||||||
' {"hashes", New JObject From {{"sha1", m.Value("ModrinthHash").ToString}}},
|
{"hashes", New JObject From {{"sha1", m.Value("ModrinthHash").ToString}}},
|
||||||
' {"env", New JObject From {{"client", "required"}, {"server", "required"}}},
|
{"env", New JObject From {{"client", "required"}, {"server", "required"}}},
|
||||||
' {"downloads", New JArray From {m.Value("downloadUrl")}},
|
{"downloads", New JArray From {m.Value("downloadUrl")}},
|
||||||
' {"fileSize", m.Value("fileLength")}
|
{"fileSize", m.Value("fileLength")}
|
||||||
' })
|
})
|
||||||
' Next
|
Next
|
||||||
|
|
||||||
' Dim depend As New JObject From {{"minecraft", McVersion}}
|
Dim depend As New JObject From {{"minecraft", McVersion}}
|
||||||
' If Version.Version.HasForge Then depend.Add("forge", Version.Version.ForgeVersion)
|
If Version.Version.HasForge Then depend.Add("forge", Version.Version.ForgeVersion)
|
||||||
' If Version.Version.HasFabric Then depend.Add("fabric-loader", Version.Version.FabricVersion)
|
If Version.Version.HasFabric Then depend.Add("fabric-loader", Version.Version.FabricVersion)
|
||||||
' If Version.Version.HasNeoForge Then depend.Add("neoforge", Version.Version.NeoForgeVersion)
|
If Version.Version.HasNeoForge Then depend.Add("neoforge", Version.Version.NeoForgeVersion)
|
||||||
|
|
||||||
' Dim json As New JObject From {
|
Dim json As New JObject From {
|
||||||
' {"game", "minecraft"},
|
{"game", "minecraft"},
|
||||||
' {"formatVersion", 1},
|
{"formatVersion", 1},
|
||||||
' {"versionId", VerID},
|
{"versionId", VerID},
|
||||||
' {"name", If(String.IsNullOrEmpty(Name), Version.Name, Name)},
|
{"name", If(String.IsNullOrEmpty(Name), Version.Name, Name)},
|
||||||
' {"summary", Version.Info},
|
{"summary", Version.Info},
|
||||||
' {"files", files},
|
{"files", files},
|
||||||
' {"dependencies", depend}
|
{"dependencies", depend}
|
||||||
' }
|
}
|
||||||
|
|
||||||
' File.WriteAllText(tempDir & "modrinth.index.json", json.ToString)
|
File.WriteAllText(tempDir & "modrinth.index.json", json.ToString)
|
||||||
|
|
||||||
' '步骤 4：将获取不到的保存到 overrides 目录
|
'步骤 4：将获取不到的保存到 overrides 目录
|
||||||
' For Each m In ModrinthFailed
|
For Each m In ModrinthFailed
|
||||||
' CopyFile(m.Path, tempDir & "overrides\mods\" & m.FileName)
|
CopyFile(m.Path, tempDir & "overrides\mods\" & m.FileName)
|
||||||
' Next
|
Next
|
||||||
|
|
||||||
'额外文件
|
'额外文件
|
||||||
For Each p In Additional
|
For Each p In Additional
|
||||||
|
|||||||
Reference in New Issue
Block a user