如何用VB发送如下HTTP协议头

Question

GET / HTTP/1.1
Accept: */*
Referer: http://www.orsoon.com/
Accept-Language: zh-cn
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Host: www.wmzhe.com
Connection: Keep-Alive
这只是个例子
我想做成一个软件，有一个textbox，一个发送按钮
把这段头文件复制进文本框，点发送，文件提交
头部信息我可以自己修改谁能给个完整的代码啊

Answer 1

请参考下面代码：
Private Sub GetfromInet(strURL As String, Optional strProxy As String)
  Dim SocketBuffer As sockaddr
  Dim IpAddr As Long
  Dim SlashPos  As Integer
  Dim strPath   As String
  Dim strHost   As String
  Dim tmpHost   As String
  Dim intPort   As Integer
  Dim RC        As Long
  Dim strMsg    As String
  
    'Separate URL into Host and Path
    SlashPos = InStr(8, strURL, "/")
    If SlashPos = 0 Then SlashPos = Len(strURL) + 1
    strPath = Mid$(strURL, SlashPos)
    If strPath = "" Then strPath = "/"
    strHost = Mid$(strURL, 8, SlashPos - 8)    If strProxy <> "" Then 'There is a Proxy
        tmpHost = "http://" & strHost
        strHost = Mid$(strProxy, 1, InStr(1, strProxy, ":") - 1)
        intPort = CInt(Mid$(strProxy, InStr(1, strProxy, ":") + 1))
      Else 'No Proxy
        intPort = 80
    End If    'Start winsock
    Call StartWinsock    'Create socket
    hSock = socket(AF_INET, SOCK_STREAM, 0)
    If hSock = SOCKET_ERROR Then Exit Sub    IpAddr = GetHostByNameAlias(strHost)
    If IpAddr = -1 Then
        'Err.Raise vbObjectError + 1, , "Unknown host"
        Exit Sub
    End If
    
    With SocketBuffer
        .sin_family = AF_INET
        .sin_port = htons(intPort)
        .sin_addr = IpAddr
        .sin_zero = String$(8, 0)
    End With
    
    DoEvents
    
    'Connect to server
    RC = connect(hSock, SocketBuffer, Len(SocketBuffer))
    
    If RC = SOCKET_ERROR Then
        closesocket hSock
        Call EndWinsock
        Err.Raise vbObjectError + 1, , "Could not connect to " & strHost
        Exit Sub
      Else
    End If
    
    DoEvents    'Set receive window
    RC = WSAAsyncSelect(hSock, Me.hwnd, ByVal &H202, ByVal FD_READ Or FD_CLOSE)
    If RC = SOCKET_ERROR Then
        closesocket hSock
        Call EndWinsock
        Exit Sub
    End If
    
    'Prepare GET header
    'When to use GET? -> When the amount of data that you
    'need to pass to the server is not much
    strMsg = "GET " & tmpHost & strPath & " HTTP/1.0" & vbCrLf
    strMsg = strMsg & "Accept: */*" & vbCrLf
'    strMsg = strMsg & "Accept-Language: zh-cn" & vbCrLf
'    strMsg = strMsg & "Accept-Encoding: gzip , deflate" & vbCrLf
    strMsg = strMsg & "User-Agent: " & App.Title & vbCrLf
    strMsg = strMsg & "Host: " & strHost & vbCrLf
    strMsg = strMsg & vbCrLf
    
    'Example POST header
    'When to use POST? -> Anytime, it is failsafe since the
    'content-length is passed to the server everytime
    'strCommand = "Temp1=hello&temp2=12345&Etc=hallo"
    'strMsg = "POST " & tmpHost & strPath & " HTTP/1.0" & vbCrLf
    'strMsg = strMsg & "Accept: */*" & vbCrLf
    'strMsg = strMsg & "User-Agent: " & App.Title & vbCrLf
    'strMsg = strMsg & "Host: " & strHost & vbCrLf
    'strMsg = strMsg & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
    'strMsg = strMsg & "Content-Length: " & Len(strCommand) & vbCrLf
    'strMsg = strMsg & vbCrLf & strCommand
    
'    lblStatus = "Sending request..."
    DoEvents
    
    'Send request
    SendData hSock, strMsg
    
    If tmpHost = "" Then tmpHost = strHost
    
    'Wait for page to be downloaded
    'Seconds to wait = 10
    Dim Start As Integer
    Start = (Format$(Now, "NN") * 60 + Format$(Now, "SS")) + 10
    While Not Start <= (Format$(Now, "NN") * 60 + Format$(Now, "SS")) And hSock > 0
        'hlblStatus = "Waiting for response from " & tmpHost & "..." & Start - (Format$(Now, "NN") * 60 + Format$(Now, "SS"))
        DoEvents
        
        'You can put a routine that will check if a boolean variable is True here
        'This could indicate that the request has been canceled
        'If CancelFlag = True Then
        '   lblStatus = "Cancelled request"
        '   Exit Sub
        'End If
    Wend
End Sub