谁能给个WINSOCK模拟HTTP请求的例子？

Question

发送成功了！可没接收到数据！

Answer 1

GET / HTTP/1.1 Accept: */* Referer: http://www.domain.com Accept-Language: zh-cn Accept-Encoding: gzip,deflate User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) Host: www.domain.com Connection: Keep-Alive我是模拟HTTP请求头 发80端口的！帮我看看

Answer 2

这个是对的啊.
 Host: www.domain.com
 winsock1.remotehost=Host;
 winsock1.remoteport=80;
 winsock1.connect;
 do while winsock1.state<>winsock1.sckconnected
 doevnets
 loop
 winsock1.senddata "GET ·····"

Answer 3

假设连接到www.google.comprivate sub command1_click()
winsock1.connect "www.google.com",80
end subPrivate Sub winsock1_Connect()
   winsock1.SendData "GET / HTTP/1.1" & vbCrLf
   winsock1.SendData "Accept: *.*" & vbCrLf
   winsock1.SendData "Accept-Language: zh-cn" & vbCrLf
   winsock1.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" & vbCrLf
   winsock1.SendData "Host: www.google.com" & vbCrLf
   winsock1.SendData "Connection: close" & vbCrLf 
   winsock1.SendData vbCrLf
End SubPrivate Sub winsock1_DataArrival(ByVal bytesTotal As Long)
    fv_iFileNo = FreeFile
    Open App.Path & "\Data.dat" For Binary As #fv_iFileNo
    Seek #fv_iFileNo, LOF(fv_iFileNo) + 1
    Put #fv_iFileNo, , fv_sBody    
    Close #fv_iFileNo
End Sub我现在也只研究到这里，有兴趣就一起讨论讨论

Answer 4

突然发现我winsock1_DataArrival事件中的东西漏贴了点，现在完整补上：Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim fv_sGetData As String
   Dim fv_iFileNo As Integer   fv_iFileNo = FreeFile
   winsock1.GetData fv_sGetData
   Open App.Path & "\Data.dat" For Binary As #fv_iFileNo
   Seek #fv_iFileNo, LOF(fv_iFileNo) + 1
   Put #fv_iFileNo, , fv_sGetData   
   Close #fv_iFileNo
End Sub

Answer 5

顶，冬雪，我用你的代码，没回应，DataArrival事件触发不了！

Answer 6

一个完整的Http Post串
===================
POST /search_station_1.asp HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application\vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*
Referer: http://train.tielu.org/search_station.asp
Accept-Language: zh-cn
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
Host: train.tielu.org
Content-Length: 23
Connection: close
Cache-Control: no-cachebug=1&fzm=上海&dzm=北京
===================

Answer 7

对 http post 串一直有一点不懂，请问post 与 http/1.1中间的部分“/search_station_1.asp ”是什么