为什么Winsock1.State一直是4呢


Private Sub btnsend_Click()    
 
  Dim strMsg    As String
  Dim strHost    As String
  Dim strPath    As String
      strHost = "www.haidu.com"
    
    strMsg = "GET " & " / HTTP/1.1" & 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    Winsock1.RemoteHost = strHost
    Winsock1.RemotePort = 80
    Winsock1.LocalPort = 81
    Winsock1.Connect
    'MsgBox Winsock1.State
    Winsock1.SendData strMsgEnd Sub谁能帮我看看到底这段代码哪里有问题啊