用VisualBasic輕松地設(shè)計Browser及Ftp程序

2019-11-18 17:36:04

字體：大中小

供稿：網(wǎng)友

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

Control簡介

InternetTransfercontrol

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

在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　。

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

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

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

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

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

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

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

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

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

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

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

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

FTP程序設(shè)計

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

Step1：程序設(shè)計

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

在屏幕的Form上加入一個InternetTransfercontrol，取名為Inet1。將Inet1property的參數(shù)設(shè)置如下：
Accesstype=2-icnamedproxy
Username="david"
passWord="2333334"
protocol=2-icFTP
proxy=172.18.16.65:8080
我們在此將Username及password設(shè)置好，當(dāng)我們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提供的一個用來執(zhí)行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執(zhí)行起來，按下FTPLinkButton，連結(jié)到FTPServer。按下FTPgetButton，取回文件。有沒有發(fā)覺到在C:/目錄下面多了一個bbb.txt的文件？恭喜您成功了！->

上一篇：開發(fā)網(wǎng)絡(luò)應(yīng)用的5個技巧

下一篇：VB中Winsock控制的UDP協(xié)議的使用