模拟post的原理是winsock连接要接收post的网页,将你构造的post数据send过去就可以了。
如果不直到post数据格式,可用抓数据包的软件截获。
下面代码在vb6运行通过,只是构造post数据包的两个function,测试代码可能有误。
Private Function buildHTTPHEAD()
Dim s As String
s = "HEAD http://localhost/ HTTP/1.1" & vbCrLf
s = s & "Host: localhost" & vbCrLf
s = s & "Accept: */*" & vbCrLf
s = s & "User-Agent: Commodore C64" & vbCrLf
s = s & "Connection: close" & vbCrLf
buildHTTPHEAD = s & vbCrLf
End Function
s = "POST http://www.baidu.com/baidu HTTP/1.1" & vbCrLf
s = s & "Accept: */*" & vbCrLf
s = s & "Content-Type: application/x-www-form-urlencoded; boundary=---------------------------7d12dc371306a8" & vbCrLf
s = s & "Host: www.baidu.com/" & vbCrLf
s = s & "User-Agent: Commodore C64" & vbCrLf
s = s & "Connection: Keep-Alive" & vbCrLf
s = s & "Content-Length: " & Len(Datapage) & vbCrLf
s = s & "Cache-Control: no-cache" & vbCrLf & vbCrLf
buildHTTPPOST = s & Datapage & vbCrLf
End Function