基於VB6的網絡程序設計

引言

自從Internet技術成熟和普及以來，人們就可以非常方便、快捷地在互聯網上進行文件下載、信息發布、在線視頻、即時獲取信息、電子郵件傳送等操作。 Internet可以說是21世紀人類電子科技的一大創新，也是新一代媒體的替代物。由於這個重大改變，人們的生活方式也隨之受到了非常大的影響，電子購物、網上信息庫、網上股市實時交易等如雨後春筍般的出現。那麼這些方式是如何在互聯網絡上實現的呢？本文介紹采用現今比較流行的程序設計語言Visual Basic 6.0獨有的網絡控件來開發設計Browser及FTP程序的方法。

以往的Visual Basic 4.0並沒有提供一個完整的解決方案供Visual Basic愛好者設計Internet程序，而使用Visual Basic 6.0提供的一些網絡控件，就可以設計Internet的相關程序。在本文中，筆者將會用Internet Transfer control6.0配合Web Browser control，闡述了如何用Visual Basic 6.0輕松地設計Browser及FTP程序的方法。

相關內容簡介

Visual Basic 6.0 是一種基於對象的程序設計系統，它將Windows系統的很多的功能都集成到了控件中。VB中的控件和其他面向對象語言類似也提供了按鈕控件、文本控件等Windows界面常見的功能控件。每個控件都具有自己的屬性和事件，可以為控件的屬性賦值，觸發控件的事件，實現特定的功能。

1、主要控件介紹

1.1 Internet Transfer control簡介

Internet Transfer control 6.0是微軟為方便使用者設計Internet應用程序所提供的一種控件。它提供了HTTP和FTP兩種互聯網協議。在使用Internet Transfer control時，必須依據網絡性質先設置它的存取方式，存取方式分為直接連接到Internet和通過代理（proxy）來連接Internet兩種。當設置好了相關參數之後，Internet Transfer control提供了OpenURL和Execute兩個方法，用於執行網絡相關的操作。在下面的設計中，筆者會說明它的用法。

1.2 Web Browser control 簡介

Web Browser control最早是由IE 3.0提供的，在安裝IE 3.0時就會自動載入，Visual Basic 6.0 將其變成內部控件。它提供的Navigate方法，能夠連接到Web服務器。

由於Internet Transfer control並沒有提供圖形模式的存取方式，所得到的文件僅能以文本模式傳回；如果傳回的文件包含圖形的話，則必須將所得到的HTML文件用程序做一個轉換。在此，所以筆者選擇了Web Browser control來做一個轉換。　　

2、Web Browser程序設計

2.1網絡參數設置

首先確定網絡系統是直接連到Internet還是通過代理（proxy）連接到Internet。可以通過以下的步驟來確定系統是以哪種方式連接到Internet：雙擊"我的電腦"→"控制面板"→"Internet選項"，打開Internet 屬性對話框。在Internet 屬性對話框中選擇"連接"選項頁，通過該選項頁就可知道系統是通過代理方式還是通過直接連接方式連接到Internet。

如果系統是通過代理方式連接到Internet，必須找出代理服務器（proxy Server）的地址及端口，以利於程序設置。具體操作如下：

單擊"局域網設置"按鈕顯示"局域網（LAN）設置"對話框如圖1 ，在此對話框中即可查看代理服務器的地址及端口。

圖1 局域網設置對話框

2.2 程序設計

（1）創建程序界面。單擊"File"菜單下的"New Project"命令，顯示"New Project"對話框如圖二，單擊"Standard.EXE"圖標，創建一個新的工程,將工程文件名設置為Webbrowser.vbp 。

圖2 Visual Basic 6.0的新建工程界面

在工程文件創建以後，系統自動地創建了一個窗體Form，默認的窗體文件文件名為Form1.frm。在窗體上添加所需的控件，適當調整它們的大小和位置。

(2) 設置窗體界面中控件的屬性。控件的屬性設置見表1。在設置過程中，一定要確認所選中的控件，然後在逐一設置該控件的屬性。

表1 控件屬性設置

控件類型

屬性和屬性值

功能描述

TextBox

Name屬性設置為CGISearchText屬性設置為空

輸入CGI命令

TextBox

Name屬性設置為webnameText屬性設置為空

顯示html文字結果

TextBox

Name屬性設置為htmlshowText屬性設置為空

輸入要前往的網頁地址

Label

Name屬性設置為Label1Caption屬性設置為Search

用來描述操作

CommandButton

Name屬性設置為SearchCaption屬性設置為Search

執行CGI命令

CommandButton

Name屬性設置為GoCaption屬性設置為Go

執行前往網頁地址的動作

CommandButton

Name屬性設置為ShowDocCaption屬性設置為ShowDoc

執行顯示html文字結果

*Inet

Name屬性設置為Inet1

Accesstype屬性設置為2-icnamedproxy

Protocol屬性設置為4-icHTTP

Proxy屬性設置為192.168.4.2:8080

實現通信和網絡操作

*Web browser

Name屬性設置為Web1

用來處理WEB頁信息

其中帶有*號的控件是在工具箱中看不到的控件，需要從部件中添加。添加的方法如下：

選擇"Project"菜單欄中的"Components" 菜單命令，顯示對話框如圖3。選中"Controls"選項卡中的兩個選項後，單擊"確定"按鈕，在工具箱中就添加了所需的控件。

圖3 選擇組件對話框

設計完成後的程序窗體界面如圖4。

圖4 Web Browser系統設計界面

（3）編寫程序代碼。在Go_Click()中加入以下程序代碼，這個動作是連接到所選擇的網頁服務器，並將屏幕顯示在web1的方塊區域內。

Private Sub Go_Click()
　web1.Navigate webname.Text
End Sub

程序中運用web1的Navigate方法，該方法將屏幕連接到webname 文本框控件中所指定的網絡站點。

在htmlshow _Click()加入以下的程序代碼：

Private Sub htmlshow _Click()
　a$ = web1.LocationURL
　ShowDoc.Text = Inet1.OpenURL(a$)
End Sub

該程序先將web1所連接到的URL 地址，通過LocationURL屬性讀出，並將它暫存於字符串a。接著使用OpenURL()命令將所接收到的HTML程序代碼顯示在ShowDoc 文本框控件中。

在CGIserch _Click()中加入以下程序代碼：

Private Sub CGIserch _Click()
　Web1.Navigate "http://search.sina.com/bin/Search ? p=" + CGI.Text
End Sub

該程序用CGI命令來查詢文件，將查詢命令指定傳送到sina這個網絡搜尋站，這樣就完成了一個小型的Web Browser。

2.3測試程序

遠行設計完的Web Browser程序，在web name文本框中輸入所要的網址，如輸入http://www.baidu.com。單擊"Go Button"按鈕，將會在web1 控件的方塊區域內顯示了baidu的主頁。單擊"ShowDoc"按鈕，baidu的主頁的HTML程序代碼則顯示在htmlshow文本框中。

接下來試試CGI搜尋功能。如在CGIserch 文本框中輸入"圖書"，然後單擊"Serch"按鈕，則查詢的結果被顯示在web1方形區域中。同樣的也可以單擊"ShowDoc"按鈕，則將查詢結果所傳回的HTML程序代碼顯示在htmlshow文本框中顯示。這樣一個簡單的WEB浏覽器的基本功能就實現了。　　

3、FTP程序設計

前面提到Internet Transfer control可以提供FTP 協議，下面介紹用 Internet Transfer control來設計一個可以連接FTP Server的客戶端程序，並將FTP Server上的bbb.txt文件下載到本地端的程序。

(1) 使用同樣的方法建立一個新的工程，將工程文件名設置FTPclient.vbp ，默認的窗體文件名為FORM1.FRM。部分控件的屬性設置見表2：

表2 控件屬性設置

控件類型 屬性和屬性值 功能描述 TextBox Name屬性設置為FTPgetfileText屬性設置為空 輸入傳輸的文件名 CommandButton Name屬性設置為FTPgetCaption屬性設置為FTPget 進行文件傳輸操作 CommandButton Name屬性設置為FTPLinkCaption屬性設置為FTPLink 進行文件傳輸連接操作 Inet Name屬性設置為Inet1

Accesstype屬性設置為2-icnamedproxy

Protocol屬性設置為4-icFTP

Proxy屬性設置為192.168.4.2:8080

Username屬性設置為"wnaglichen"password="2522510"

實現通信和網絡操作說明：在此將Username及password設置好，當Login進入FTP Server時，Server設計完成後的程序窗體界面如圖5。

圖5 ftp程序的設計界面

（2）編寫程序代碼。

在FTPLink _Click()中輸入以下程序代碼：

Private Sub FTPLink _Click()
　Inet1.excute "FTP 192.168.4.20"
End Sub

Execute是Internet Transfer control提供的一個用來執行FTP公用程序的方法，可以在它的後面加入FTP的命令，這樣就可以使用任何熟悉的FTP公用程序來完成工作。筆者的FTP Server地址是192.168.4.20，所以在FTP命令後面填入這個地址。

在FTPget _Click()中輸入以下程序代碼：

Private Sub FTPLink _Click()
　Inet1.excute "GET aaa.txt c:\bbb.txt"
End Sub

該程序可實現將FTP Server上的aaa.txt文件傳送到客戶端。

執行FTPclient程序，單擊"FTPLink"按鈕，連結到 FTP Server；單擊"FTPget"按鈕，取回文件。此時，可以發現在本地硬盤C:\目錄下面看到多了一個bbb.txt的文件，這個文件就是從遠程服務器中下載到本地的文件。這也就說明，一個簡單的文件傳輸程序設計成功了。

結論

通過上面的闡述，大家可以了解在VB中開發Web程序的具體流程。隨著網絡的普及和計算機的發展、文件傳輸速度的提高，一些高質量的Web程序也將隨之產生。本文所介紹的程序是筆者在此方面做的一點嘗試，已經調試成功。