From dc7d6b3e9180af1520d74a740574177f01d957f8 Mon Sep 17 00:00:00 2001 From: tangge233 Date: Sun, 22 Feb 2026 22:47:54 +0800 Subject: [PATCH] =?UTF-8?q?chore:=20=E6=BC=8F=E4=BA=86=E4=B8=80=E4=B8=AA?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Modules/Base/ModBase.vb | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/Plain Craft Launcher 2/Modules/Base/ModBase.vb b/Plain Craft Launcher 2/Modules/Base/ModBase.vb index 035eafb..e279584 100644 --- a/Plain Craft Launcher 2/Modules/Base/ModBase.vb +++ b/Plain Craft Launcher 2/Modules/Base/ModBase.vb @@ -1075,15 +1075,16 @@ Public Module ModBase Re: Try '获取 MD5 - Dim File As New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite) - Using h = MD5Cng.Create() - Dim Retval As Byte() = h.ComputeHash(File) - Dim Result As New StringBuilder(Retval.Length * 2) - For i = 0 To Retval.Length - 1 - Result.Append(Retval(i).ToString("x2")) - Next + Using File As New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite) + Using h = MD5Cng.Create() + Dim Retval As Byte() = h.ComputeHash(File) + Dim Result As New StringBuilder(Retval.Length * 2) + For i = 0 To Retval.Length - 1 + Result.Append(Retval(i).ToString("x2")) + Next - Return Result.ToString + Return Result.ToString + End Using End Using Catch ex As Exception If Retry OrElse TypeOf ex Is FileNotFoundException Then