自從Internet盛行以來，人們對于文件下載、即時信息獲取、電子郵件傳送變得方便許多。Internet可以說是21世紀(jì)人類科技的一大創(chuàng)新。由于這個重大改變，人們的生活方式也受到非常大的影響；電子購物

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

如何設(shè)計Web Browser及FTP Client

Web Browser程序設(shè)計

Step 1：設(shè)置好網(wǎng)絡(luò)參數(shù)

首先要知道我們的網(wǎng)絡(luò)系統(tǒng)是直接連到Internet，還是通過proxy連接到Internet。我們可以通過以下的步驟來確定我們的系統(tǒng)是以哪種方式連接Internet：

在"我的電腦"選項(xiàng)double click進(jìn)入"控制面板"。在"控制面板"選項(xiàng)中double click進(jìn)入"Internet"選項(xiàng)。在Internet Dialog Box中選擇connection。由屏幕顯示的Dialog Box就可以知道系統(tǒng)是通過proxy還是通過dialing的方式連接到Internet。由于筆者的系統(tǒng)是通過proxy連接到Internet，我們必須要找出proxy Server的address及port，以利于程序設(shè)置。

接著click"setting"選項(xiàng)來查看它的address及port。屏幕接著會顯示一個Dialog Box，里面記著"address of proxy to use"：172.18.16.65，"port"：8080。將它記錄下來，等會兒就會用到這些參數(shù)。

Step 2：開始設(shè)計程序

在File選項(xiàng)中選擇New Project建立一個新的工程，在屏幕上會看到許多選項(xiàng)，如ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等，這時要選Standard.EXE。

接著在Project下，選擇Property屬性選項(xiàng)，在general選項(xiàng)下將Project Name改為Webbrowser。在屏幕的Form上加入一個Web browser control，取名為web1；接著加入一個Internet Transfer control，取名為Inet1。加入三個TextBox control，分別取名為CGISearch、webname和htmlshow，并在CGISearch TextBox前加入一個Label，將其Caption改為Search。加入三個Button control，分別取名為Search、Go和ShowDoc。將Caption分別改為Search、Go to和show document。

為方便讀者了解關(guān)系，以下以表格解釋一遍：

（TextBox）Name CGISearch（輸入CGI命令）webname（輸入要前往的web address）htmlshow（顯示html文字結(jié)果）

（Button）Name Caption

Search（執(zhí)行CGI命令） search

Go（執(zhí)行前往web address的動作） Go to

ShowDoc（顯示html文字結(jié)果） show document

接著將Inet1的各項(xiàng)屬性設(shè)置如下：Accesstype2-icnamedproxyprotocol4-icHTTPproxy172.18.16.65:8080

在Go_Click()中加入以下程序代碼， 這個動作是連接到所想要去的web Server，并將屏幕顯示在web1的方塊區(qū)域內(nèi)：Private Sub Go_Click() webname.Text End Sub

以上程序是運(yùn)用web1的Navigate，這個method將屏幕連接到web name TextBox中所指定的網(wǎng)絡(luò)站點(diǎn)。

在htmlshow _Click()加入以下的程序代碼：Private Sub htmlshow _Click() a$ web1.LocationURL ShowDoc.Text (a$) End Sub

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

在CGIserch _Click()中加入以下程序代碼：Private Sub CGIserch _Click() " ? p" CGI.Text End Sub

這個動作是用CGI命令來查詢文件。在這里我們將查詢命令指定傳送到Y(jié)ahoo這個網(wǎng)絡(luò)搜尋站。這樣我們就完成了一個小型的Web Browser。

Step 3：測試程序

執(zhí)行剛設(shè)計完的Web Browser，并在web name這個TextBox中填入所要去的網(wǎng)址。這里我們將它設(shè)置為。接著按下Go Button，將會看到在web1 control的方塊區(qū)域內(nèi)顯示了Microsoft的HomePage。按下ShowDoc Button，將可以在htmlshow這個TextBox中看到Microsoft HomePage的HTML程序代碼。

接下來讓我們試試CGI搜尋功能。在CGIserch TextBox中加入communication，結(jié)果我們發(fā)覺查詢的結(jié)果顯示在web1方形區(qū)域中。同樣的，我們也可以按下ShowDoc Button，將可以在htmlshow這個TextBox中，看到查詢結(jié)果所傳回的HTML程序代碼。

恭喜您成功了！