diff --git a/Plain Craft Launcher 2/Controls/MyImage.vb b/Plain Craft Launcher 2/Controls/MyImage.vb
index 122edd3..943dfd0 100644
--- a/Plain Craft Launcher 2/Controls/MyImage.vb
+++ b/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)
diff --git a/Plain Craft Launcher 2/Modules/Base/ModNet.vb b/Plain Craft Launcher 2/Modules/Base/ModNet.vb
index 9dc6705..7b59375 100644
--- a/Plain Craft Launcher 2/Modules/Base/ModNet.vb
+++ b/Plain Craft Launcher 2/Modules/Base/ModNet.vb
@@ -252,7 +252,7 @@ RequestFinished:
'''
''' 网络 Url。
''' 下载的本地地址。
- 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)
diff --git a/Plain Craft Launcher 2/Modules/ModSecret.vb b/Plain Craft Launcher 2/Modules/ModSecret.vb
index 3b5197d..2315aa7 100644
--- a/Plain Craft Launcher 2/Modules/ModSecret.vb
+++ b/Plain Craft Launcher 2/Modules/ModSecret.vb
@@ -100,7 +100,7 @@ Friend Module ModSecret
'''
''' 设置 Headers 的 UA、Referer。
'''
- 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