求哪位高手指点下Post，十万火急

Question

搞了一个通宵的Post。。用Visual Sniffer抓包硬是抓不到Post数据，不知道怎么回事。
用自己的IP他不给数据，用另一个IP可以抓，但就是抓不到Post
换了几个版本，和几个网站，都一样
有哪位耐心的老大能帮我解决下这个问题，谢谢了。搞了一个晚上，把那个明教教主的视频又看了一通
结果要用百兆网卡才能用那个强大的Sniffer..又搞了几小时。。闷。。在把问题说下，不是说抓到Post数据开头会显示么，把所有+号看完就没发现它。。
开头全是HTTP。。帮我远程看下也行，应该不会是我网卡或者IP设置的问题吧。。求教了。。

Answer 1

不是所有数据都是用POST发送，更多的是用GET发送和接收的

Answer 2

抓包 我觉得用 FIREFOX的firebug 来的快的多 而且每步都看的很清楚 包括 ajax

Answer 3

Option ExplicitDim strUrl As String
Dim strLj As String
Dim PassData As String
Dim Pas As String  Dim hIS As Long
  Dim hIC As Long
  Dim hOR As Long
  Dim bRet As Long
  Dim iRetVal As Long
  Dim sRe As Long
  
  Dim sBuff As String * 2048
  Dim sHead As StringPrivate Sub Command1_Click()
  
  strUrl = Text3.Text
  strLj = Text4.Text
  Pas = Text5.Text
  PassData = "txtTianhuaban=" & Pas & "&Submit=%C9%FD%BC%B6"
  sHead = "Content-Type: application/x-www-form-urlencoded"hIS = InternetOpen("MiSi", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
hIC = InternetConnect(hIS, strUrl, INTERNET_DEFAULT_HTTP_PORT, vbNullString, "HTTP/1.1", INTERNET_SERVICE_HTTP, 0, 0)hOR = HttpOpenRequest(hIC, "post", strLj, vbNullString, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
bRet = HttpAddRequestHeaders(hOR, sHead, Len(sHead), HTTP_ADDREQ_FLAG_REPLACE Or HTTP_ADDREQ_FLAG_ADD)
iRetVal = HttpSendRequest(hOR, vbNullString, 0, PassData, Len(PassData))
sRe = HttpQueryInfo(hOR, 22, ByVal sBuff, Len(sBuff), 0)
Text1.Text = sBuffEnd SubPrivate Sub Command2_Click()
  InternetCloseHandle (hIS)
  InternetCloseHandle (hIC)
  InternetCloseHandle (hOR)
  InternetCloseHandle (bRet)
  InternetCloseHandle (iRetVal)
  InternetCloseHandle (sRe)
End SubPrivate Sub Command3_Click()
 Text1.Text = ""
 Text2.Text = ""
 Text1.Text = "标头"
 Text2.Text = "文本"
End SubPrivate Sub Command4_Click()
  strUrl = Text3.Text
  strLj = Text4.Text
  Pas = Text5.Text
  PassData = "txtTianhuaban=" & Pas ' & "&Submit=%C9%FD%BC%B6"
  sHead = "Content-Type: application/x-www-form-urlencoded"  hIS = InternetOpen("MiSi", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  hIC = InternetConnect(hIS, strUrl, INTERNET_DEFAULT_HTTP_PORT, vbNullString, "HTTP/1.1", INTERNET_SERVICE_HTTP, 0, 0)  hOR = HttpOpenRequest(hIC, "post", strLj, vbNullString, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
  bRet = HttpAddRequestHeaders(hOR, sHead, Len(sHead), HTTP_ADDREQ_FLAG_REPLACE Or HTTP_ADDREQ_FLAG_ADD)
  iRetVal = HttpSendRequest(hOR, vbNullString, 0, PassData, Len(PassData))
  sRe = InternetReadFile(hOR, sBuff, 2048, Len(sBuff))
  Text2.Text = sBuffInternetCloseHandle (hIS)
InternetCloseHandle (hIC)
InternetCloseHandle (hOR)
InternetCloseHandle (bRet)
InternetCloseHandle (iRetVal)
InternetCloseHandle (sRe)End SubPrivate Sub Form_Unload(Cancel As Integer)Cancel = -1InternetCloseHandle (hIS)
InternetCloseHandle (hIC)
InternetCloseHandle (hOR)
InternetCloseHandle (bRet)
InternetCloseHandle (iRetVal)
InternetCloseHandle (sRe)Cancel = 0Unload MeEnd Sub