VB 老旧版本维护系列---尴尬的webapi访问返回json对象

尴尬的webapi访问返回json对象

首先Imports Newtonsoft.Json

Imports MSXML2（Interop.MSXML2.dll）

Dim URLEncode As System.Text.Encoding = System.Text.Encoding.GetEncoding("utf-8")

'所需传递的json对象参数

Dim requestDataJson As String=requestDataJson = JsonConvert.SerializeObject("")

Dim responseText As String = ""

Dim postUrl As String = ""

Dim postdata() As System.Byte = URLEncode.GetBytes(requestDataJson)

Dim oXMLHttp2 As New XMLHTTP60()

oXMLHttp2.open("Post", postUrl, False)

oXMLHttp2.setRequestHeader("Content-Type", "text/json; charset=utf-8")

oXMLHttp2.setRequestHeader("Content-length", postdata.Length)

oXMLHttp2.setRequestHeader("Accept-Language", "zh-CN")

oXMLHttp2.send(requestDataJson)

'获取返回结果，string类型

responseText = oXMLHttp2.responseText

'去除转义符，及左右两边的双引号（尴尬所在点）

responseText = responseText.Replace("\", "").Trim(Chr(34))

If responseText <> "" Then

result = JsonConvert.DeserializeObject(Of ResponseResult)(responseText)

End If