这 里 向 大 家 介 绍 另 外 一 种 方 法： 利 用IE3.X 提 供 的 控 件 编 程 访 问。
　　
　　IE 控 件
　　如 果 机 器 中 安 装 了IE3.X， 在VB5.0 的 控 件（Component） 列 表 窗 口 中 就 会 有 一 个 名 为Microsoft Internet Controls 的 控 件， 选 取 该 控 件， 并 将 它 加 到Form 中。
　　该 控 件 有 以 下 几 个 重 要 的 方 法:
　　
　　GoHome ： 装 入IE 设 定 的 起 始 页。
　　用 法: object.GoHome
　　
　　Navigate : 装 入 页 面。
　　用 法: object.Navigate url
　　url 为URL 地 址， 如"http://www.microsoft.com"
　　
　　GoBack : 返 回 上 一 个 页 面。
　　用 法: object.GoBack
　　
　　GoForward: 进 入 下 一 个 页 面。
　　用 法: object.GoForward
　　
　　Stop : 停 止 载 入 页 面。
　　用 法: object.Stop
　　该 控 件 有 以 下 重 要 事 件:
　　BeforNavigate Event: 在 每 次 装 入 页 面 前 调 用， 声 明 如 下：
　　Private Sub object_BeforeNavigate(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Cancel As Boolean)
　　其 中 的URL 参 数 为 将 要 装 入 的 页 面 地 址。
　　
　　StatusTextChang Event: 每 次 浏 览 器 的 操 作 状 态 改 变 时 调 用， 声 明 如 下：
　　Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
　　Text: 浏 览 器 的 操 作 状 态。
　　访 问 方 法
　　下 面 介 绍 如 何 通 过 编 程 实 现 对WWW 的 访 问。
　　在Form 中 添 加Microsoft Internet Control 控 件 显 示 页 面。
　　在Form 中 添 加4 个CommandButton 控 件,Name 属 性 分 别 为:GoButton、BackButton、ForwardButton、StopButton， 用 这4 个CommandButton 可 以 实 现 对 浏 览 器 的 操 作。
　　在Form 中 添 加 一 个TextBox 控 件, 用 来 输 入 和 显 示 当 前 的 页 面 地 址。
　　在Form 中 添 加Label 控 件, 用 来 显 示 当 前 浏 览 器 操 作 状 态。
　　程 序 如 下:
　　Private Sub BackButton_Click()
　　' 返 回 上 一 个 页 面
　　WebBrowser1.GoBack
　　End Sub
　　
　　Private Sub Form_Load()
　　' 程 序 装 入 后 进 入IE 设 定 的 起 始 页
　　WebBrowser1.GoHome
　　End Sub
　　
　　Private Sub Form_Resize()
　　' 改 变 窗 口 大 小 后 同 时 改 变 控 件 的 大 小
　　WebBrowser1.Width = Form1.ScaleWidth
　　WebBrowser1.Height = Form1.ScaleHeight - 900
　　Label1.Width = Form1.ScaleWidth
　　Label1.Top = Form1.ScaleHeight - 300
　　End Sub
　　
　　Private Sub ForwardButton_Click()
　　' 进 入 下 一 个 页 面
　　WebBrowser1.GoForward
　　End Sub
　　
　　Private Sub GOButton_Click()
　　' 浏 览 输 入 的 页 面
　　WebBrowser1.Navigate (Text1.Text)
　　End Sub
　　
　　Private Sub StopButton_Click()
　　' 停 止 浏 览
　　WebBrowser1.Stop
　　End Sub
　　
　　Private Sub Text1_KeyPress(KeyAscii As Integer)
　　' 浏 览 输 入 的 页 面
　　If KeyAscii = 13 Then
　　WebBrowser1.Navigate (Text1.Text)
　　End If
　　End Sub
　　
　　Private Sub WebBrowser1_BeforeNavigate
　　(ByVal URL As String, ByVal Flags As Long,
　　ByVal TargetFrameName As String, PostData As Variant,
　　ByVal Headers As String, Cancel As Boolean)
　　' 将 当 前 显 示 的 页 面 的URL 地 址 显 示 在Text1 上
　　Text1.Text = URL
　　End Sub
　　
　　Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
　　'Label1 显 示 当 前 页 面 装 入 情 况
　　Label1.Caption = Text
　　End Sub
　　该 程 序 在Win95、VB5.0 下 运 行 通 过。