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

     

    寻寻觅觅转流年,磕磕碰碰道缘浅。 揽几缕、轻挽起,暮暮朝朝与君语。
  • 相关阅读:
    tcp/ip网络分层 紫翼龙王
    软件防火墙之iptables/netfilter概念篇(一) 紫翼龙王
    linux cpu负载详解 紫翼龙王
    ThinkInJava4读书笔记之第五章隐藏实施过程
    ThinkInJava4读书笔记之第六章类继承
    工具类sql操作工具类
    python 面向对象
    python 初识
    python 函数,内置函数
    python 正则,os,sys,hashlib模块
  • 原文地址:https://www.cnblogs.com/bingshao/p/12017276.html
Copyright © 2011-2022 走看看