28 lines
823 B
VB.net
28 lines
823 B
VB.net
|
Imports System.Net.Http
|
|||
|
|
|
|||
|
|
Public Class CopyService
|
|||
|
|
'本地缓存'
|
|||
|
|
Public LocalKeyWords As KeywordItem() = {}
|
|||
|
|
Public client As HttpClient = New HttpClient
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 缓存关键词数据
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Async Function InitLocal(baseUrl As String) As Task
|
|||
|
|
Try
|
|||
|
|
Dim url As String = $"{baseUrl}/mm-machine/keywords"
|
|||
|
|
|
|||
|
|
Dim response As HttpResponseMessage = Await client.GetAsync(url)
|
|||
|
|
If response.IsSuccessStatusCode Then
|
|||
|
|
Dim responseText As String = Await response.Content.ReadAsStringAsync()
|
|||
|
|
If responseText = "成功更新数据" Then
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
Catch ex As Exception
|
|||
|
|
|
|||
|
|
End Try
|
|||
|
|
End Function
|
|||
|
|
End Class
|