Option Explicit
Dim myall$, aa$, jj&, kk&, strCommand$, strWebPage$
Private Sub Form_Load()
     Winsock1.Protocol = 0
     Winsock1.RemotePort = 80
     Text1.Text = "post.baidu.com"
     Text2.Text = "http://post.baidu.com/f?kw=vb"
End Sub

Private Sub Command1_Click()
     Winsock1.Close
     RichTextBox1.Text = ""
     Winsock1.RemoteHost = Text1.Text
     strWebPage = Text2.Text
     Winsock1.Connect '开始提取数据
End Sub

Private Sub Winsock1_Connect()
     strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
     strCommand = strCommand + "Accept: */*" + vbCrLf
     strCommand = strCommand + "Accept: text/html" + vbCrLf
     strCommand = strCommand + vbCrLf
     Winsock1.SendData strCommand '发送命令
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
     '开始下载，收到数据时，发生DataarriVal事件
     On Error Resume Next
     Dim webData As String
     Winsock1.GetData webData, vbString
     RichTextBox1.Text = RichTextBox1.Text & webData '取得相关的网页文件
End Sub

Private Sub Winsock1_close() '当下载完成时发生。
     Winsock1.Close '关闭 Winsock
     aa = Left(RichTextBox1.Text, 20)
     'If InStr(aa, "404 Not Found") > 0 Or InStr(aa, "403 Forbidden") > 0 Then
     If InStr(aa, "200 OK") > 0 Then
        MsgBox "网页下载完成"
     Else
        MsgBox "网页不存在或链接失效或禁止访问,请另输入网址"
     End If
     jj = InStr(UCase(RichTextBox1.Text), "<TITLE>")
     If jj > 0 Then
        kk = InStr(jj+7, UCase(RichTextBox1.Text), "</TITLE>")
        If kk > 0 Then
           aa = Mid(RichTextBox1.Text, jj + 7, (kk - (jj + 7)))
           MsgBox "标题:" & vbCrLf & Chr(10) & Trim(aa)
        End If
     Else
        MsgBox "无标题"
     End If
     Text2.SetFocus
End Sub