revert: 错误的文件更改
This commit is contained in:
@@ -19,8 +19,7 @@ Public Module ModNet
|
|||||||
Optional UseBrowserUA As Boolean = False,
|
Optional UseBrowserUA As Boolean = False,
|
||||||
Optional RequireHeaderSign As Boolean = False,
|
Optional RequireHeaderSign As Boolean = False,
|
||||||
Optional RequireCdnSign As Boolean = False) As HttpRequestMessage
|
Optional RequireCdnSign As Boolean = False) As HttpRequestMessage
|
||||||
Dim Watcher As New Stopwatch()
|
|
||||||
Watcher.Start()
|
|
||||||
Dim RequestMethod As HttpMethod = GetHttpMethod(Method)
|
Dim RequestMethod As HttpMethod = GetHttpMethod(Method)
|
||||||
If RequireCdnSign Then RequestUrl = SecretCdnSign(RequestUrl)
|
If RequireCdnSign Then RequestUrl = SecretCdnSign(RequestUrl)
|
||||||
|
|
||||||
@@ -55,8 +54,7 @@ FixContentHeader:
|
|||||||
If RequireHeaderSign Then
|
If RequireHeaderSign Then
|
||||||
SecretHeadersSign(RequestUrl, requestMessage, UseBrowserUA)
|
SecretHeadersSign(RequestUrl, requestMessage, UseBrowserUA)
|
||||||
End If
|
End If
|
||||||
Watcher.Stop()
|
|
||||||
Log($"[Test] GetRequestMessage 执行用时:{Watcher.ElapsedMilliseconds} 毫秒")
|
|
||||||
Return RequestMessage
|
Return RequestMessage
|
||||||
|
|
||||||
End Function
|
End Function
|
||||||
@@ -67,8 +65,6 @@ FixContentHeader:
|
|||||||
Optional Encode As Encoding = Nothing,
|
Optional Encode As Encoding = Nothing,
|
||||||
Optional Timeout As Integer = 25000,
|
Optional Timeout As Integer = 25000,
|
||||||
Optional RequireReturnRespObj As Boolean = False)
|
Optional RequireReturnRespObj As Boolean = False)
|
||||||
Dim Watcher As New Stopwatch()
|
|
||||||
Watcher.Start()
|
|
||||||
Using CTS As New CancellationTokenSource(Timeout)
|
Using CTS As New CancellationTokenSource(Timeout)
|
||||||
Dim Client = ClientFactory.GetHttpClient()
|
Dim Client = ClientFactory.GetHttpClient()
|
||||||
Dim Resp As HttpResponseMessage = Client.SendAsync(Req, HttpCompletionOption.ResponseHeadersRead, CTS.Token).GetAwaiter().GetResult()
|
Dim Resp As HttpResponseMessage = Client.SendAsync(Req, HttpCompletionOption.ResponseHeadersRead, CTS.Token).GetAwaiter().GetResult()
|
||||||
@@ -83,8 +79,7 @@ FixContentHeader:
|
|||||||
Dim Bytes = DataStream.ToArray()
|
Dim Bytes = DataStream.ToArray()
|
||||||
Resp.Dispose()
|
Resp.Dispose()
|
||||||
Req.Dispose()
|
Req.Dispose()
|
||||||
Watcher.Stop()
|
|
||||||
Log($"[Test] SendRequest 执行用时:{Watcher.ElapsedMilliseconds} 毫秒")
|
|
||||||
If RequireDecode Then
|
If RequireDecode Then
|
||||||
If Encode Is Nothing Then Encode = Encoding.UTF8
|
If Encode Is Nothing Then Encode = Encoding.UTF8
|
||||||
Return Encode.GetString(Bytes)
|
Return Encode.GetString(Bytes)
|
||||||
|
|||||||
Reference in New Issue
Block a user