首先在Nuget中搜索JSON。然后下载Newtonsoft.Json.Linq
然后使用下面的代码进行解析:
' 解析JSON数据
Dim jsonObject As JObject = JObject.Parse(responseContent)
Dim code As String = jsonObject("code").ToString()
If code = "1000" Then
全局变量_ip = jsonObject.SelectToken("data[0].ip").ToString()
全局变量_port = jsonObject.SelectToken("data[0].port").ToString()
End If