• 下载源代码文件 - 2.09 Kb
• 下载演示项目 - 3.77 Kb

在这篇简单的文章中，我想阐述 VB（版本 6.0）附带的互联网传输控件。本文的目标读者是刚进入互联网开发领域的初学者。我们都知道互联网用于数据传输，因此很容易理解“互联网传输控件”的作用。使用此控件可以使用 FTP 或 HTTP 协议传输数据。在本文中，我们将了解控件在使用 HTTP 和 FTP 协议时的运作方式。我将逐步向您介绍代码，并讨论每一行代码。

附带本文的代码非常简单，旨在演示 ITC 的工作原理。一旦本文让您入门，您就可以继续进行自己的研究。代码中的程序可以从 HTTP 和 FTP 服务器检索数据。

创建应用程序

启动一个新的 exe 项目，并从组件菜单（按 Ctrl + T）中选择 Microsoft Internet Transfer Control 6.0 和 Microsoft Rich Textbox Control 6.0。

1. 将互联网传输控件添加到您的窗体。
2. 将富文本框添加到窗体。将名称属性更改为 txtURL，并将文本属性更改为 www.microsoft.com 或您希望默认下载位置为任何其他内容。
3. 添加两个命令按钮的控件数组。将索引为 0 的按钮的标题属性更改为“Go”（转到），将另一个按钮的标题属性更改为“Quit”（退出）。

以下是在用户单击“Go”按钮时执行的代码

Private Sub Command1_Click(Index As Integer)

Select Case Index
Case 0:
If txtURL.Text <> "" Then
RichTextBox1.Text = Inet1.OpenURL(txtURL.Text, icString)
End If

Case 1:	
End
End Select
End Sub

正如您从代码中看到的，我们使用了 inet 控件的 OpenURL 方法。OpenURL 方法具有以下语法

Inet1.OpenURL (URL, DataType)

URL 是您想要打开的完整 URL；它可以是 HTTP 协议或 FTP 协议。Datatype 是您想要检索的数据类型，可以是字节或字符串。这两个值是 icString（默认值，值为 0）和 icByteArray（值为 1）。
OpenURL 方法的返回值是 URL 返回的数据。此方法以同步方式运行，这意味着程序将暂停，直到数据传输完成。OpenURL 的同步性质非常重要。

好了，各位，这就是您从远程站点检索文本所需的一切。保存项目并运行它。在文本框 (txtURL) 中输入您想要下载 html 文本的 URL，然后按“Go”。