winsock如何登录一个网站?

Question

winsock如何登录一个网站?通过登录,登录后,如何保持一直连接着,不close?

Answer 1

要保持连接，为什么不用webbrowser？

Answer 2

Private Sub Winsock1_Connect()
    Dim s As String
    s = "GET " & "地址" & " 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 3

 s = s & "Connection: close" & vbCrLf & vbCrLf 这个可以一直保持连接不断开吗?