为什么Winsock1.State一直是4呢

VB code

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

谁能帮我看看到底这段代码哪里有问题啊

[解决办法]
sckResolvingHost 4 识别主机 ，也就是说它一直在查找服务器。

[解决办法]
strHost = "www.haidu.com"
www.baidu.com还是www.haidu.com
一个是B，一个是H