vb Winsock 做的Post 例子

On Error GoTo ErrConnect
strCommand = "GET " & URL & " HTTP/1.1" & vbCrLf
strCommand = strCommand & "Accept: */*" & vbCrLf
strCommand = strCommand & "Referer: http://www.loveq.cn/program/" & vbCrLf
strCommand = strCommand & "Accept -Language: zh -cn" & vbCrLf
strCommand = strCommand & "Accept -Encoding: gzip , deflate" & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" & vbCrLf
strCommand = strCommand & "Host: www.xxx.cn" & vbCrLf
strCommand = strCommand & "Connection: Keep -Alive" & vbCrLf
strCommand = strCommand & "Cookie:" & WebBrowser1.Document.Cook