VB如何用WINSOCK登录网站? 请代码举例

Question

如何用WINSOCK登录网站? 请代码举例假设
用户名="123"
口令="456
验证码="ABCD"我只想用WinSock

Answer 1

Private Sub Winsock1_Connect() 
    Dim s As String ,s1 as  string
    s1="https://passport.baidu.com/?login?password=456&safeflg=0&username=123&mem_pass=on
    s = "GET " & s1 & " HTTP/1.0" + vbCrLf 
    s = s & "Accept: */*" & vbCrLf 
    s = s & "Pragma: no-cache" & vbCrLf 
    s = s & "Cache-Control: no-cache" & vbCrLf 
    s = s & "Connection: close" & vbCrLf & vbCrLf 
    s = s & vbCrLf 
    Winsock1.SendData s 
End Sub 

Answer 2

建议用 xmlhttpwinsock 封装程度很低，如果是 SSL，就没办法处理了。如果网站用了 G-Zip 压缩，处理起来也很困难。