chore: 换一个方式

Plain Craft Launcher 2/Controls/MyImage.vb

@@ -128,7 +128,7 @@ RetryStart:
                 '下载
                 ActualSource = LoadingSource '显示加载中图片
                 TempDownloadingPath = TempPath & RandomInteger(0, 10000000)
-                NetDownload(Url, TempDownloadingPath, True)
+                NetDownload(Url, TempDownloadingPath, True, False)
                 If Url <> Source AndAlso Url <> FallbackSource Then
                     '已经更换了地址
                     File.Delete(TempDownloadingPath)

Plain Craft Launcher 2/Modules/Base/ModNet.vb

@@ -252,7 +252,7 @@ RequestFinished:
     ''' </summary>
     ''' <param name="Url">网络 Url。</param>
     ''' <param name="LocalFile">下载的本地地址。</param>
-    Public Sub NetDownload(Url As String, LocalFile As String, Optional UseBrowserUserAgent As Boolean = False)
+    Public Sub NetDownload(Url As String, LocalFile As String, Optional UseBrowserUserAgent As Boolean = False, Optional AddReferer As Boolean = True)
         Log("[Net] 直接下载文件：" & Url)
 
         '初始化
@@ -268,7 +268,7 @@ RequestFinished:
         '下载
         Using Client As New WebClient
             Try
-                SecretHeadersSign(Url, Client, UseBrowserUserAgent)
+                SecretHeadersSign(Url, Client, UseBrowserUserAgent, AddReferer)
                 Client.DownloadFile(Url, LocalFile)
             Catch ex As Exception
                 File.Delete(LocalFile)

Plain Craft Launcher 2/Modules/ModSecret.vb

@@ -100,7 +100,7 @@ Friend Module ModSecret
     ''' <summary>
     ''' 设置 Headers 的 UA、Referer。
     ''' </summary>
-    Friend Sub SecretHeadersSign(Url As String, ByRef Client As WebClient, Optional UseBrowserUserAgent As Boolean = False)
+    Friend Sub SecretHeadersSign(Url As String, ByRef Client As WebClient, Optional UseBrowserUserAgent As Boolean = False, Optional AddReferer As Boolean = True)
         If Url.Contains("baidupcs.com") OrElse Url.Contains("baidu.com") Then
             Client.Headers("User-Agent") = "LogStatistic" '#4951
         ElseIf UseBrowserUserAgent Then
@@ -108,7 +108,7 @@ Friend Module ModSecret
         Else
             Client.Headers("User-Agent") = "PCL2/" & VersionStandardCode
         End If
-        If Not Url.Contains("hdslb.com") Then
+        If AddReferer Then
             Client.Headers("Referer") = "http://" & VersionCode & ".pcl2.open.server/"
         End If
         Client.Headers("x-api-key") = CurseForgeAPIKey