【实例说明】
    用Winsock控件实现网页源文件的下载。

【编程思路】
    Winsock控件。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.单击“工程”菜单中的“部件”选项，在弹出的控件列表中，选中"Microsoft Winsock Control 6.0"，单击“确定”按钮，Winsock控件添加到工具箱中。
    3.在窗体上放置一个TextBox控件（用来显示源文件内容）、两个CommandButton控件和一个Winsock控件。

    4.源程序  [素材源程序下载]


Option Explicit

Dim strCommand As String
Dim strWebPage As String

'下载
Private Sub Command1_Click()
        '设置连接的网址
        Winsock1.RemoteHost = "http://vbw.go2.icpcn.com"
        '设置要连接的远程端口号
        Winsock1.RemotePort = 80
        '返回与远程计算机的连接。
        Winsock1.Connect
End Sub

'退出
Private Sub Command2_Click()
        End
End Sub

'当一个 Connect 操作完成时发生
Private Sub Winsock1_Connect()
        '要下载的文件
        strWebPage = "http://vbw.go2.icpcn.com/index.htm"
        'GET 为FTP命令 取得文件
        strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf

        '下面两句可以不要
        'strCommand = strCommand + "Accept: */*" + vbCrLf
        'strCommand = strCommand + "Accept: text/html" + vbCrLf

        '记住一定要加上vbCrLf
        strCommand = strCommand + vbCrLf
        '给远程计算机发送数据
        Winsock1.SendData strCommand
End Sub

'取得数据时产生该事件
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
        On Error Resume Next
        Dim webData As String
        '检取当前的数据块
        Winsock1.GetData webData, vbString
        Text1.Text = Text1.Text + webData
End Sub