zoukankan      html  css  js  c++  java
  • 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

     

    寻寻觅觅转流年,磕磕碰碰道缘浅。 揽几缕、轻挽起,暮暮朝朝与君语。
  • 相关阅读:
    Codeforces Round #522(Div. 2) C.Playing Piano
    zstu月赛 招生
    Codeforces Round #519 D
    RMQ[区间最值查询] 算法
    Codeforces #364 (Div. 2) D. As Fa(数学公式推导 或者二分)
    尺取法
    Codeforces #366 (Div. 2) D. Ant Man (贪心)
    Codeforces #366 Div. 2 C. Thor (模拟
    裴蜀定理
    CF850 E. Random Elections
  • 原文地址:https://www.cnblogs.com/bingshao/p/12017276.html
Copyright © 2011-2022 走看看