用VisualBasic輕松地設計Browser及Ftp程序

2019-11-18 17:36:04

字體：大中小

來源：轉載

供稿：網友

自從Internet盛行以來，人們對于文件下載、即時信息獲取、電子郵件傳送變得方便許多。Internet可以說是21世紀人類科技的一大創新。由于這個重大改變，人們的生活方式也受到非常大的影響；電子購物、網上信息庫、網上股市實時交易如雨后春筍般的出現。以往，VisualBasic4.0并沒有提供一個完整的solution供VisualBasic的愛好者設計Internet程序。還好，VisualBasic5.0提供了一些控件，供我們設計Internet的相關程序。在本文中，筆者將會用InternetTransfercontrol配合WebBrowsercontrol，來告訴讀者如何用VisualBasic5.0輕松地設計Browser及FTP程序。

Control簡介

InternetTransfercontrol

InternetTransfercontrol是微軟為方便使用者設計Internet應用程序所提供的一種control。它提供兩種Internet
Step2：開始設計程序

在File選項中選擇NewProject建立一個新的工程，在屏幕上會看到許多選項，如ActiveXDocument.EXE、ActiveXDocument.DLL、ActiveX.EXE、ActiveXControl等，這時要選Standard.EXE。

接著在Project下，選擇Property屬性選項，在general選項下將ProjectName改為Webbrowser。在屏幕的Form上加入一個Webbrowsercontrol，取名為web1；接著加入一個InternetTransfercontrol，取名為Inet1。

加入三個TextBoxcontrol，分別取名為CGISearch、webname和htmlshow，并在CGISearchTextBox前加入一個Label，將其Caption改為Search。

加入三個Buttoncontrol，分別取名為Search、Go和ShowDoc。將Caption分別改為Se
arch、　Goto和showdocument　。

為方便讀者了解關系，以下以表格解釋一遍：
(TextBox)
Name
-------------------------------------------------
CGISearch(輸入CGI命令)
webname(輸入要前往的webaddress)
htmlshow(顯示html文字結果)

(Button)
NameCaption
---------------------------------------------------------------------------
-----
Search(執行CGI命令)search
Go(執行前往webaddress的動作)Goto
ShowDoc(顯示html文字結果)showdocument

接著將Inet1的各項屬性設置如下：
accesstype=2-icnamedproxy
protocol=4-icHTTP
proxy=172.18.16.65:8080

在Go_Click()中加入以下程序代碼，這個動作是連接到所想要去的webServer，并將屏幕顯示在web1的方塊區域內：
PrivateSubGo_Click()
web1.Navigatewebname.Text
EndSub
以上程序是運用web1的Navigate，這個method將屏幕連接到webnameTextBox中所指定的網絡站點。

在htmlshow_Click()加入以下的程序代碼：
PrivateSubhtmlshow_Click()
a$=web1.LocationURL
ShowDoc.Text=Inet1.OpenURL(a$)
EndSub

以上程序，是先將web1所連接到的URLaddress，通過LocationURL這個property讀出，并將它暫存于字符串a。接著使用OpenURL()命令來將所接收到的HTML程序代碼，顯示在ShowDoc這個TextBox中。

在CGIserch_Click()中加入以下程序代碼：
PrivateSubCGIserch_Click()
Web1.Navigate"http://search.yahoo.com/bin/Search?p=" CGI.
Text
EndSub
這個動作是用CGI命令來查詢文件。在這里我們將查詢命令指定傳送到Yahoo這個網絡搜尋站。

這樣我們就完成了一個小型的WebBrowser。

Step3：測試程序
執行剛設計完的WebBrowser，并在webname這個TextBox中填入所要去的網址。這里我們將它設置為http://www.Microsoft.com。接著按下GoButton，將會看到在web1control的方塊區域內顯示了Microsoft的HomePage。

按下ShowDocButton，將可以在htmlshow這個TextBox中看到MicrosoftHomePage的HTML程序代碼。

接下來讓我們試試CGI搜尋功能。在CGIserchTextBox中加入communication，結果我們發覺查詢的結果顯示在web1方形區域中。

同樣的，我們也可以按下ShowDocButton，將可以在htmlshow這個TextBox中，看到查詢結果所傳回的HTML程序代碼。
恭喜您成功了！

FTP程序設計

前面提到InternetTransfercontrol可以提供FTPprotocol，這里我們便要告訴您如何運用InternetTransfercontrol來設計一個可以連接FTPServer的client程序，并將FTPServer上的bbb.txt文件download到local端。

Step1：程序設計

在File選項中選擇NewProject建立一個新的工程，在屏幕上看到許多選項，如ActiveXDocument.EXE、ActiveXDocument.DLL、ActiveX.EXE、ActiveXControl等，這時要選Standard.EXE。接著在Project下，選擇Property屬性選項，在general選項下將ProjectName改為FTPclient。

在屏幕的Form上加入一個InternetTransfercontrol，取名為Inet1。將Inet1property的參數設置如下：
Accesstype=2-icnamedproxy
Username="david"
passWord="2333334"
protocol=2-icFTP
proxy=172.18.16.65:8080
我們在此將Username及password設置好，當我們Login進入FTPServer時，Server將會直接跳過輸入Username和password的屏幕。

加入一個TextBoxcontrol，取名為FTPgetfile。加入兩個Buttoncontrol，取名為FTPget和FTPLink，分別將其Caption改為FTPget和FTPLink。

在FTPLink_Click()中加入以下程序代碼：
PrivateSubFTPLink_Click()
Inet1.excute"FTP128.9.200.4"
EndSub
Execute是InternetTransfercontrol提供的一個用來執行FTP公用程序的method，我們可以在它的后面加入FTP的命令，這樣我們就可以使用任何熟悉的FTP公用程序來完成工作。筆者的FTPServer地址是128.9.200.4，所以我們在FTP命令后面填入這個地址。

接著在FTPget_Click()中加入以下程序代碼：
PrivateSubFTPLink_Click()
Inet1.excute"GETaaa.txtc:/bbb.txt"
EndSub
這個動作是將FTPServer上的aaa.txt文件傳送到client端。

Step2：測試

將FTPclient執行起來，按下FTPLinkButton，連結到FTPServer。按下FTPgetButton，取回文件。有沒有發覺到在C:/目錄下面多了一個bbb.txt的文件？恭喜您成功了！->

上一篇：開發網絡應用的5個技巧

下一篇：VB中Winsock控制的UDP協議的使用