【实例说明】
    通过获取网页的源代码，可以对该网页进行分析及修改。本例将讲解如何获取网页的源代码（HTML文档）。运行程序，连接Internet，在文件框中输入网址，单击“显示网页”按钮，即可显示网页；单击“显示代码”按钮，即可得到网页的HTML源代码。

【编程思路】
    使用Inet控件可以获得指定网页的源代码。Inet控件支持超文本传输协议HTTP。用此协议连接Internet，以检索HTML文档。这里还用到了WebBrowser控件的Navigate2方法。下面是Navigate2的语法和参数：
    Navigate2方法，提供一个事件。
    语法：object.Navigate2(URL,flags,targetframename,postdata,headers)
    参数：
    URL指定需要使用的网页。
    flags指定是否将该资源添加到历史列表。
    targetframename指定目标显示区的名称。
    postdata指定需要发送到HTTP Post事务处理的数据。
    headers指定需要发送的HTTP标题。
    operation可选的。字符串，指定要执行的操作类型。
    data可选的。字符串，指定用于操作的数据。
    requestHeaders可选的。字符串，指定由远程服务器传来的附加的标头。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.单击“工程”菜单中的“部件”选项，在弹出的列表中，选中Microsoft Internet Controls6.0、选中Microsoft Internet Transfer Controls6.0选项，单击“确定”按钮，WebBrowser控件和Inet控件添加到工具箱中。
    3.在窗体上放置一个WebBrowser控件、一个Inet控件、两个Text控件、三个CommandButton控件。

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


'退出
Private Sub Command3_Click()
        End
End Sub

'打开网页
Private Sub Command1_Click()
        If Me.Text1.Text <> "" Then
                Me.WebBrowser1.Navigate2 Text1.Text
                Me.WebBrowser1.Visible = True
                Me.Text2.Visible = False
        End If
End Sub

'显示网页的源代码
Private Sub Command2_Click()
        Me.Text2.Visible = True
        Me.Text2.Text = Me.Inet1.OpenURL(Text1.Text)
        Me.WebBrowser1.Visible = False
End Sub