请教高手，以下内容怎样用VB提交取得返回数据
POST /interactManager/common/navigation.do HTTP/1.1
Accept: */*
Accept-Language: zh-cn
Referer: http://interact.sdcrm20.ctbss.net/interactManager/common/ProdInfo.jsp
charset: utf-8
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; @***1AZ?-r0m}33p38c9c6m%B5O5iw>Hk[uo; SV1)
Host: interact.sdcrm20.ctbss.net
Content-Length: 106
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: BSS-OwnerChannelId=310000028; bssLoginCookie=4AA1855CE0236BD3755388249109EAB8; lastAccessTimeCookie=1323604453050; staffIdCookie=4003830224; BSS-SOChannelId=310000028;
BSS-SOChannelName=%e5%ae%a2%e6%88%b7; BSS-SOChannelSpecId=1; JSESSIONID=Yg56TkwfGTlfnSdNrb8r8CLHk1f0WnPVvV13RD22SWNnGx84VKGt!2001379284;
BIGipServercrm2_sp_prv_pool=771885066.65316.0000
method=queryProdInfo&partyId=314003609880&isCheck=1&selType=12&inputParam=5621430990131208005&prodAreaId=2
[解决办法]
不知道 发送给Xml服务器的能不能帮到你
Function SendTo(url, msg)
Dim XmlHttp
Static loops As Integer
loops = loops + 1
If loops = 2 Then '进行2次的发送尝试
Exit Function
End If
On Error Resume Next
Set XmlHttp = CreateObject("Msxml2.XMLHTTP")
If Not IsObject(XmlHttp) Then
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
If Not IsObject(XmlHttp) Then Exit Function
End If
XmlHttp.Open "Post", url, False
XmlHttp.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XmlHttp.send URLEncoding("request=" & msg)
If XmlHttp.Status <> 200 Then
Set XmlHttp = Nothing
DoEvents
SendTo url, msg '没成功继续发送
Text1.Text = "FALSE"
Else
Text1.Text = XmlHttp.responseText'"OK" 'MsgBox "传输成功"
Set XmlHttp = Nothing
Exit Function
End If
End Function
