VB6 http post 发送与返回内容处理

前端之家收集整理的这篇文章主要介绍了VB6 http post 发送与返回内容处理前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

今天帮同事做另一家公司的Web系统数据对接,我方发送请求,对方返回一些数据,用的是客户端用的是VB6,代码记录如下:

  1. Dim postData As String
  2. Dim url As String
  3. url = "http://111.11.11.11/services/getQuickInfoService"
  4. postData = TextContent.Text
  5.  
  6. '--- post
  7. Dim HttpClient As Object
  8.  
  9. Set HttpClient = CreateObject("Microsoft.XMLHTTP")
  10. HttpClient.Open "POST",url,False
  11. HttpClient.setRequestHeader "Content-Type","text/xml; charset=UTF-8"
  12. HttpClient.Send pvToByteArray(postData)
  13. Do While HttpClient.readyState <> 4
  14. DoEvents
  15. Loop
  16. TextResponse.Text = HttpClient.responseText
  17. MsgBox "发送完毕"

下面是发送内容的编码部分:

  1. ' 下面是两个转换函数
  2.  
  3. Private Function pvToByteArray(sText As String) As Byte()
  4. pvToByteArray = GB2312ToUTF8(sText)
  5. End Function
  6.  
  7. Public Function GB2312ToUTF8(strIn As String,Optional ByVal ReturnValueType As VbVarType = vbString) As Variant
  8. Dim adoStream As Object
  9. Set adoStream = CreateObject("ADODB.Stream")
  10. adoStream.Charset = "utf-8"
  11. adoStream.Type = 2 'adTypeText
  12. adoStream.Open
  13. adoStream.WriteText strIn
  14. adoStream.Position = 0
  15. adoStream.Type = 1 'adTypeBinary
  16. GB2312ToUTF8 = adoStream.Read()
  17. adoStream.Close
  18. If ReturnValueType = vbString Then GB2312ToUTF8 = Mid(GB2312ToUTF8,1)
  19. End Function


效果



VB6比较老了,没有Java和C#那么完备,也没什么插件可以实现特定功能,但任然可以用原始的语句写出很多功能

猜你在找的VB相关文章