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

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

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

Web Browser程序設(shè)計(jì)

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

首先要知道我們的網(wǎng)絡(luò)系統(tǒng)是直接連到Internet，還是通過(guò)proxy連接到Internet。我們可以通過(guò)以下的步驟來(lái)確定我們的系統(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)是通過(guò)proxy還是通過(guò)dialing的方式連接到Internet。由于筆者的系統(tǒng)是通過(guò)proxy連接到Internet，我們必須要找出proxy Server的address及port，以利于程序設(shè)置。

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

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

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

接著在Project下，選擇Property屬性選項(xiàng)，在general選項(xiàng)下將Project Name改為Webbrowser。在屏幕的Form上加入一個(gè)Web browser control，取名為web1；接著加入一個(gè)Internet Transfer control，取名為Inet1。加入三個(gè)TextBox control，分別取名為CGISearch、webname和htmlshow，并在CGISearch TextBox前加入一個(gè)Label，將其Caption改為Search。加入三個(gè)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的動(dòng)作） Go to

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

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

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

以上程序是運(yùn)用web1的Navigate，這個(gè)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，通過(guò)LocationURL這個(gè)property讀出，并將它暫存于字符串a(chǎn)。接著使用OpenURL()命令來(lái)將所接收到的HTML程序代碼，顯示在ShowDoc這個(gè)TextBox中。

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

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

Step 3：測(cè)試程序

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

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

恭喜您成功了！