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
最新文章
- React2
- 浅谈HTTP事务的一个过程
- CodeChef COUNTARI Arithmetic Progressions(分块 + FFT)
- centos6.5kvm虚拟化安装部署
- php数据库封装与引用方法
- SQL中的取整函数FLOOR、ROUND、CEIL、TRUNC、SIGN
- 关于Server Sql 2008触发器的使用
- adaboost原理和实现
- Windows下Memcache的安装与在php中使用
- Remote Debugging Chrome 结合Genymotion模拟器的移动端web真机调试(转)
- hibernate 问题
- PopupWindow的简单使用
- map循环遍历删除
- 论文阅读笔记四十七:Generalized Intersection over Union: A Metric and A Loss for Bounding Box Regression(CVPR2019)
- zabbix python 微信告警脚本
- BZOJ4911: [Sdoi2017]切树游戏
- python 生成器、列表解析式、yield、迭代器
- XXE漏洞
- Linux、apache 无法使用PHP创建目录和文件
- c3p0连接池基本配置mysql和oracle