winsock GET方法获取网页源码例子

看到贴吧里有人问我就发出来了

那里发的都被删了 

Dim Webcode$

Private Sub Command1_Click()
    If Winsock1.State <> 0 Then Winsock1.Close
    Winsock1.Protocol = sckTCPProtocol
    Winsock1.RemoteHost = "bbs.china95.net"
    Winsock1.RemotePort = 80
    Winsock1.Connect
End Sub
                                                                         
Private Sub Winsock1_Connect()
    Dim str As String
    str = "GET / HTTP/1.1" & vbCrLf
    str = str + "Accept: */*" + vbCrLf
    str = str & "Host: bbs.china95.net" & vbCrLf
    str = str & "Accept-Language: zh-cn" & vbCrLf
    str = str & "Connection: close" & vbCrLf
    str = str & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)" & vbCrLf
    str = str & vbCrLf
    Winsock1.SendData str
End Sub
                                                                         
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim TempStr As String
    Winsock1.GetData TempStr, vbString, bytesTotal
    Webcode = Webcode & TempStr
End Sub
                                                                         
Private Sub Winsock1_Close()
    If Winsock1.State <> 0 Then Winsock1.Close
    Text1.Text = Webcode
End Sub