Question

VB用Inet POST

大家帮着看一下，我用xmlhttp POST 可以成功。现在想用INET来POST，请高手们帮帮忙！
抓包后的数据：
POST /cgi-bin/cgi_farm_getuserseed?mod=repertory&act=getUserSeed HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*
Content-Type: application/x-www-form-urlencoded
User-Agent: Microsoft URL Control - 6.00.8862
Host: farm.qzone.qq.com
Content-Length: 76
Cache-Control: no-cache
Cookie: pgv_pvid=865637875; pgv_flv=10.0; pt2gguin=o1198278043; ptcz=ef1527acd73e0379c485a9f4f42f3c182259035404cae43478f8b3ce4c8781fe; pvid=865637875; adid=554151282; uin_cookie=554151282; euin_cookie=ED30C8B7EBFD7583471C5CCACB158A04951236AFA18CDB61; adSP=je8SHmtmqrTNNJPEEhgAwZSkeqf0xuLBbIGIWI3eYqQ=_64102_326830_1281098900_; adVer=2839; ac=1,006,011; icache=AA@EAEFLF; verifysession=c4ac6cdeb78392741fd938ee69bbedc0e0a879dd9a17f7c126e915bde6b3728bf25ea79278de02b0; uin=o1198278043; skey=@WNRbn9U9x; ptisp=ctc; randomSeed=382102; __Q_w_s__appDataSeed=1; Loading=Yes

farmKey=575c3f0dead7b1868c510aed43ce158d&uIdx=1198485257&farmTime=1281107552

返回值：
HTTP/1.1 200 OK
Connection: close
Server: QZHTTP-2.13
Date: Fri, 06 Aug 2010 15:12:32 GMT
Content-Length: 74
Content-type: text/html; charset=utf-8
Expires: 0

[{"amount":27,"cId":40,"cName":"牧草","level":0,"lifecycle":8,"type":1}]

这个是抓的农场背包的数据包，请大家帮着POST一下！
还是不行！

Answer 1

Private Declare Function icePub_postUrl Lib "icePubDll.dll" (ByVal hostAddress As String, ByVal strObject As String, ByVal m_param As String, ByVal Referer As String, ByVal strHtmlText As String, ByVal textMaxLen As Integer, ByVal strProxy As String) As Integer

Dim a As Integer
Dim myHtml As String
Dim myPostData As String

myHtml = Space(1024 * 10)

myPostData = "farmKey=575c3f0dead7b1868c510aed43ce158d&uIdx=1198485257&farmTime=1281107552"

a = icePub_postUrl("farm.qzone.qq.com", "/cgi-bin/cgi_farm_getuserseed?mod=repertory&act=getUserSeed", myPostData, "", myHtml, 1024 * 10, "")
MsgBox myHtm