📄 m33.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=11>
<div align=center class=H1> <font color="#FFFFFF">用VB 5.0 设计Browser及FTP程序</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=2>
<p align=left> <font color="#000000">前言</font></span></p>
<p align=left> 自从Internet盛行以来，人们对于文件下载、即时信息获取、电子邮件传送变得方便许</span></font> 多。
Internet可以说是21世纪人类科技的一大创新。由于这个重大改变，人们的生活方</span></font> <span class="unnamed1">也受到非常大的影响；电子购物、网上信息库、网上股市实时交易如雨后春笋般的出</span></font> 。以往，Visual
Basic 4.0并没有提供一个完整的solution供Visual Basic的爱好者</span></font> <span class="unnamed1">设计Internet程序。
还好，Visual Basic 5.0 提供了一些控件，供我们设计Internet</span></font> 的相关程序。在本文中，笔者将会用
Internet Transfer control配合Web Browser </span></font> <span class="unnamed1">control，来告诉读者如何用Visual
Basic 5.0轻松地设计Browser及FTP程序。</span></font></p>
<p align=left> <span class="unnamed1">Control简介</span></font></p>
<p align=left> <span class="unnamed1">Internet Transfer
control</span></font></p>
<p align=left> <span class="unnamed1">Internet Transfer
control 是微软为方便使用者设计Internet应用程序所提供的一种</span></font> <span class="unnamed1">control。它提供两种Internet
protocol：HTTP及FTP。我们在使用时，必须先设置好它</span></font> 的存取方式。存取方式分为直接连接到Internet网络，或通过proxy来连接Internet网络</span></font> <span class="unnamed1">两种，完全依我们的网络性质来定。当我们设置好了相关参数之后，Internet
Transfer</span></font> <span class="unnamed1">control提供两个method：OpenURL及Execute
来让我们执行网络相关操作，我们可以用</span></font> <span class="unnamed1">这两个命令来执行一些Internet
command。在下面的设计中，笔者会说明它的用法。</span></font></p>
<p align=left> <span class="unnamed1">Web Browser
control</span></font></p>
<p align=left> <span class="unnamed1">Web Browser
control最早是由IE 3.0所提供，在安装IE 3.0时就会自动载入；Visual </span></font> <span class="unnamed1">Basic
5.0 将它变成内部控件。它提供Navigate method，使我们能够连接到我们想要去</span></font> 的WWW
Server。</span></font></p>
<p align=left> 各位读者一定很奇怪：既然Internet
Transfer control能够通过HTTP及TP protocol连接</span></font> 到
Internet，我们还要Web Browser control干甚么？只因为Internet Transfer control</span></font> 并没有提供图形模式的存取方式，所得到的文件仅能以文本模式传回。如果传回的文件包</span></font> 含图形的话，还必须将所得到的HTML文件用程序来做一个转换。所以笔者选择了Web</span></font> <span class="unnamed1">Browser
control来帮我们做一个转换。</span></font></p>
<p align=left> <span class="unnamed1">以下就让笔者来告诉读者如何设计Web
Browser及FTP client。</span></font></p>
<p align=left> <span class="unnamed1">Web Browser程序设计</span></font></p>
<p align=left> <span class="unnamed1">Step 1：设置好网络参数</span></font></p>
<p align=left> <span class="unnamed1">首先要知道我们的网络系统是直接连到Internet，还是通过proxy连接到Internet。我们</span></font> 可以通过以下的步骤来确定我们的系统是以哪种方式连接Internet：</span></font></p>
<p align=left> <span class="unnamed1">在"我的电脑"选项double
click进入"控制面板"。在"控制面板"选项中double click进</span></font> <span class="unnamed1">入"Internet"
选项。在Internet Dialog Box中选择connection。由屏幕显示的Dialog </span></font> <span class="unnamed1">Box就可以知道系统是通过proxy还是通过dialing的方式连接到Internet。由于笔者的系</span></font> <span class="unnamed1">统是通过proxy连接到Internet，我们必须要找出proxy
Server的address及port，以利于</span></font> 程序设置。</span></font></p>
<p align=left> 接着click"setting"选项来查看它的address及port。屏幕接着会显示一个Dialog
Box，</span></font></p>
<p align=left> <span class="unnamed1">里面记着"address
of proxy to use ": 172.18.16.65，"port" : 8080。将它记录下来，</span></font> 等会儿就会用到这些参数。</span></font></p>
<p align=left> <span class="unnamed1">Step 2：开始设计程序</span></font></p>
<p align=left> <span class="unnamed1">在File选项中选择New
Project建立一个新的工程，在屏幕上会看到许多选项，如ActiveX</span></font> <span class="unnamed1">Document.EXE、ActiveX
Document.DLL、ActiveX.EXE、ActiveX Control等，这时要选</span></font> <span class="unnamed1">Standard.EXE。</span></font></p>
<p align=left> 接着在Project下，选择Property属性选项，在general选项下将Project
Name改为Web</span></font> <span class="unnamed1">browser。在屏幕的Form上加入一个Web
browser control，取名为web1；接着加入一个</span></font> <span class="unnamed1">Internet
Transfer control，取名为Inet1。</span></font> 加入三个TextBox
control，分别取名为CGISearch、webname和htmlshow，并在CGISearch</span></font> <span class="unnamed1">TextBox前加入一个Label，将其Caption改为Search。</span></font> 加入三个Button
control，分别取名为Search、Go和ShowDoc。将Caption分别改为</span></font></p>
<p align=left> <span class="unnamed1">Search、 Go
to和show document。</span></font></p>
<p align=left> <span class="unnamed1">为方便读者了解关系，以下以表格解释一遍：</span></font></p>
<p
align=left> (TextBox)<br>
Name<br>
-------------------------------------------------<br>
CGISearch(输入CGI命令)<br>
webname(输入要前往的web address)<br>
htmlshow(显示html文字结果)<br>
<br>
(Button)<br>
Name Caption<br>
--------------------------------------------------------------------------------<br>
Search(执行CGI命令) search<br>
Go(执行前往web address的动作) Go to<br>
ShowDoc(显示html文字结果) show document<br>
<br>
接着将Inet1的各项属性设置如下：<br>
Accesstype=2-icnamedproxy<br>
protocol=4-icHTTP<br>
proxy=172.18.16.65:8080<br>
<br>
在Go_Click()中加入以下程序代码， 这个动作是连接到所想要去的web Server，并将屏幕</span></font></p>
<p align=left> <span class="unnamed1">显示在web1的方块区域内：<br>
Private Sub Go_Click()<br>
web1.Navigate webname.Text<br>
End Sub<br>
以上程序是运用web1的Navigate，这个method将屏幕连接到web name TextBox中所指定的</span></font></p>
<p align=left> <span class="unnamed1">网络站点。<br>
<br>
在htmlshow _Click()加入以下的程序代码：<br>
Private Sub htmlshow _Click()<br>
a$ = web1.LocationURL<br>
ShowDoc.Text = Inet1.OpenURL(a$)<br>
End Sub<br>
<br>
以上程序，是先将web1所连接到的URL address，通过LocationURL这个property读出，并</span></font></p>
<p align=left> 将它暂存于字符串a。接着使用OpenURL()命令来将所接收到的HTML程序代码，显示在</span></font></p>
<p align=left> <span class="unnamed1">ShowDoc这个TextBox中。<br>
<br>
在CGIserch _Click()中加入以下程序代码：<br>
Private Sub CGIserch _Click()<br>
Web1.Navigate "http://search.yahoo.com/bin/Search ? p=" + CGI.Text<br>
End Sub<br>
</span></font></p>
<p align=left> <span class="unnamed1">这个动作是用CGI命令来查询文件。在这里我们将查询命令指定传送到Yahoo
这个网络搜寻</span></font></p>
<p align=left> <span class="unnamed1">站。<br>
<br>
这样我们就完成了一个小型的Web Browser。<br>
<br>
Step 3：测试程序</span></font></p>
<p align=left> <span class="unnamed1">执行刚设计完的Web
Browser，并在web name这个TextBox中填入所要去的网址。这里我们</span></font> 将它设置为http://www.Microsoft.com。接着按下Go
Button，将会看到在web1 control的</span></font> 方块区域内显示了Microsoft的HomePage。<br>
<br>
按下ShowDoc Button，将可以在htmlshow这个TextBox中看到Microsoft HomePage的HTML</span></font></p>
<p align=left> 程序代码。<br>
<br>
接下来让我们试试CGI搜寻功能。在CGIserch TextBox中加入communication，结果我们发</span></font> 觉查询的结果显示在web1方形区域中。<br>
<br>
同样的，我们也可以按下ShowDoc Button，将可以在htmlshow这个TextBox中，看到查询结</span></font> 果所传回的HTML程序代码。</span></font></p>
<p align=left> 恭喜您成功了！</span></font></p>
<p align=left> <span class="unnamed1">FTP程序设计</span></font></p>
<p align=left> <span class="unnamed1">前面提到Internet
Transfer control可以提供FTP protocol，这里我们便要告诉您如何</span></font> <span class="unnamed1">运用
Internet Transfer control来设计一个可以连接FTP Server的client程序，并将</span></font> <span class="unnamed1">FTP
Server上的bbb.txt文件download到local端。<br>
<br>
Step 1：程序设计<br>
<br>
在File选项中选择NewProject建立一个新的工程，在屏幕上看到许多选项，如ActiveX</span></font> <span class="unnamed1">Document.EXE、ActiveX
Document.DLL、ActiveX.EXE、ActiveX Control等，这时要选</span></font> <span class="unnamed1">Standard.EXE。接着在Project下，选择Property属性选项，在general选项下将Project</span></font></p>
<p align=left> <span class="unnamed1">Name改为FTP client。<br>
<br>
在屏幕的Form上加入一个Internet Transfer control，取名为Inet1。将Inet1 property</span></font> 的参数设置如下：<br>
Accesstype=2-icnamedproxy<br>
Username="david"<br>
password="2333334"<br>
protocol=2-icFTP<br>
proxy=172.18.16.65:8080<br>
</span></font></p>
<p align=left> <span class="unnamed1">我们在此将Username及password设置好，当我们Login进入FTP
Server时，Server将会直接</span></font> <span class="unnamed1">跳过输入Username和password的屏幕。<br>
<br>
加入一个TextBox control，取名为FTPgetfile。 加入两个Button control，取名为</span></font> <span class="unnamed1">FTPget和FTPLink，分别将其Caption改为FTPget和
FTPLink。<br>
<br>
在FTPLink _Click()中加入以下程序代码：<br>
Private Sub FTPLink _Click()<br>
Inet1.excute "FTP 128.9.200.4"<br>
End Sub<br>
Execute是Internet Transfer control提供的一个用来执行FTP公用程序的method，我们可</span></font> <span class="unnamed1">以在它的后面加入FTP的命令，这样我们就可以使用任何熟悉的FTP公用程序来完成工作。</span></font> 笔者的FTP
Server地址是128.9.200.4，所以我们在FTP命令后面填入这个地址。<br>
<br>
接着在FTPget _Click()中加入以下程序代码：<br>
Private Sub FTPLink _Click()<br>
Inet1.excute "GET aaa.txt c:\bbb.txt"<br>
End Sub<br>
这个动作是将FTP Server上的aaa.txt文件传送到client端。<br>
<br>
Step 2：测试<br>
<br>
将FTPclient执行起来，按下FTPLink Button，连结到 FTP Server。按下FTPget Button，</span></font> <span class="unnamed1">取回文件。有没有发觉到在C:\目录下面多了一个bbb.txt的文件？恭喜您成功了！<font
size=2><br>
</font></span></font></p>
<p align=left>
<p align=left> </p>
<p align="right"> <br>
<br>
<br>
<br>
</b></font></p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -