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

概述今天帮同事做另一家公司的Web系统数据对接，我方发送请求，对方返回一些数据，用的是客户端用的是VB6，代码记录如下： Dim postData As StringDim url As String url = "http://111.11.11.11/services/getQuickInfoService"postData = TextContent.Text'--- postD

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

Dim postData As StringDim url As String  url = "http://111.11.11.11/services/getQuickInfoService"postData = TextContent.Text'--- postDim httpClIEnt As Object  Set httpClIEnt = CreateObject("Microsoft.XMLhttp")  httpClIEnt.Open "POST",url,False  httpClIEnt.setRequestheader "Content-Type","text/xml; charset=UTF-8"  httpClIEnt.Send pvToByteArray(postData)        do while httpClIEnt.readyState <> 4    DoEvents  Loop    TextResponse.Text = httpClIEnt.responseText      MsgBox "发送完毕"

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

' 下面是两个转换函数Private Function pvToByteArray(sText As String) As Byte()   pvToByteArray = GB2312ToUTF8(sText)     End FunctionPublic Function GB2312ToUTF8(strIn As String,Optional ByVal ReturnValueType As VbVarType = vbString) As Variant    Dim adoStream As Object      Set adoStream = CreateObject("ADODB.Stream")    adoStream.Charset = "utf-8"    adoStream.Type = 2 'adTypeText    adoStream.Open    adoStream.WriteText strIn    adoStream.position = 0    adoStream.Type = 1 'adTypeBinary    GB2312ToUTF8 = adoStream.Read()    adoStream.Close      If ReturnValueType = vbString Then GB2312ToUTF8 = MID(GB2312ToUTF8,1)       End Function

效果：

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

以上是内存溢出为你收集整理的VB6 http post 发送与返回内容处理全部内容，希望文章能够帮你解决VB6 http post 发送与返回内容处理所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。