|
Internet有強大的通信功能，如文件傳送、遠程登錄、E-mail、Internet Phone和Internet Fax等，它使傳統的電信產業發生了巨大變化。同時，它是一個大型信息資源庫，所含信息不僅包羅萬象，而且日新月異。尤其是WWW(World Wide Web)的出現使全球信息聯成一體，并使千家萬戶可以隨時共享這一人類偉大的資源。WWW的大規模興起源于商業應用的普及和用戶界面友好，越來越多的公司企業利用WWW網頁作為商品促銷或對客戶服務的手段。不難想像，對于任何一位軟件開發愛好者來說，學習開發Internet應用程序已經是一件刻不容緩的事情了。眾所周知，使用Microsoft Visual Basic 5.0增強的Internet功能使我們能夠在很短的時間內開發出實用的Internet網絡應用程序，本文擬向讀者介紹的就是有關這方面的內容。
Visual Basic是Microsoft公司面向Windows程序員的RAD(Rapid Application Development)工具，它的一大特點就是隱藏了很多紛繁而令人厭倦的Windows編程細節，而使開發人員將重點放在應用程序的功能上。當人們談及Internet 應用程序的時候，由于類型太多，很難明確它們具體指的是什么，因此選擇工具之前先了解所需要的應用程序類型是很重要的。Visual Basic為Internet的各種開發工作都提供了專門的技術，下表對Internet的各種用途進行了分類，并列舉了完成各類任務所需的相應的Visual Basic工具。
表1．
Internet任務 Visual Basic工具
計算機間的直接通信 WinSock控件(MSWINSCK.OCX)
文件傳輸 Internet Transfer控件（MSINET.OCX）
Web瀏覽 WebBrowser控件（SHDOCVW.DLL）
在Microsoft Internet Explorer中運行的應用程序的開發 ActiveX文檔
使用 Internet安裝程序發布應用程序 Setup Wizard
用于超文本標記語言頁面的組件開發 ActiveX控件
數據庫應用程序 ActiveX文檔
具有數據控件或使用ADODB對象的ASP
從服務器到客戶機的事務/數據傳輸ASP
另一方面，隨著WWW技術日新月異的發展，利用WWW技術構造企業內部網即Intranet，已經成為人們的一種共識，甚至Intranet應用程序的數量很可能已經超出了Internet應用程序，而本文描述的每項Internet任務同樣也都適用于Intranet應用程序。
以下將通過實例分別講述使用Visual Basic 5.0完成以下任務：①TCP(UDP)/IP編程；②創建Internet Explorer中運行的應用程序；③創建FTP瀏覽器。
二．TCP(UDP)/IP編程技術
TCP/IP協議是一種標準的企業網絡協議，它也是Internet網最重要的網絡互聯協議，Microsoft Visual Basic 5.0的WinSock控件提供用于Internet的傳輸控制協議（TCP）和用戶數據包網絡協議（UDP）的底層訪問，因而可以方便地用于創建通話應用程序，實現兩臺或多臺聯網計算機間的直接數據傳輸。下面介紹利用WinSock控件進行TCP/IP編程的主要步驟。
2.1 確定應用程序類型
使用TCP協議的應用程序，首先必須確定它是服務器端的還是客戶端的。如果要創建一個服務器端的，就必須知道服務器計算機名或者IP地址（RemoteHost屬性），還要知道進行“偵聽”的端口（RemotePort屬性），然后調用Connect方法。如果創建客戶端應用程序，就應設置一個收聽端口（LocalPort屬性）并調用Listen方法。當客戶計算機需要連接時就會發生ConnectionRequest事件。為了完成連接，可調用ConnectionRequest事件內的Accept方法。建立連接后，任何一方計算機都可以收發數據。為了發送數據，需調用SendData方法。當接收數據時會發生DataArrival事件。調用DataArrival事件內的GetData方法就可獲取數據。
2.2 創建一個TCP服務器（Socket服務器）
1）創建新項目。
在File菜單中單擊New Project，打開New Project對話框，然后雙擊Standard EXE圖標，即建立一個新項目，并進入開發環境。
2）將缺省窗體的名稱改為frmServer。
將一個Winsock控件拖到窗體上，并將該控件的名字改為tcpServer。請注意其中的Protocol屬性應為sckTCPProtocol。在窗體上添加兩個TextBox控件。將第一個命名為txtSendData，第二個命名為txtOutput（如圖2.1所示）。
(圖2.1)
3）為窗體添加如下的代碼。
Private Sub Form_Load()
'將LocalPort屬性設置為整數后調用Listen方法。
tcpServer.LocalPort = 2000
tcpServer.Listen
End Sub
要創建服務器，首先設定一個服務器端口號，并開始偵聽是否有客戶請求連接。程序中，LocalPort屬性為服務器端口號，最好大于1000，以避免沖突。另外，對于眾所周知的端口號，我們稱之為周知口，例如：端口80專用于Web服務。用Listen方法開始偵聽。
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
'檢查控件的State屬性是否為關閉的。
'如果不是，在接受新的連接之前先關閉此連接。
If tcpServer.State <> sckClosed Then tcpServer.Close
'接受具有requestID參數的連接。
tcpServer.Accept requestID
End Sub
當客戶連接到本服務器時，產生ConnectRequest事件，在事件中接收客戶的請求。
程序中的requestID參數表示客戶請求連接的ID號，Accept方法接收一個請求連接。
Private Sub txtSendData_Change()
'名為 txtSendData 的 TextBox 控件中包含要發送的數據。用戶往文本框中
'鍵入數據時，使用 SendData 方法發送輸入的字符串。
tcpServer.SendData txtSendData.Text
End Sub
當我們需要向客戶發送數據時，只需要調用SendData方法。
程序中使用SendData方法發送數據。
Private Sub tcpServer_DataArrival (ByVal bytesTotal As Long)
'為進入的數據聲明一個變量。
'調用GetData方法，并將數據賦予名為txtOutput的TextBox的Text屬性。
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
當客戶向本服務器發送的數據到達后，產生DataArrival事件，在事件中接收數據。
程序中的bytesTotal參數表示收到數據的總數，GetData方法接收數據。
Private Sub tcpServer_close(Index as Integer)
tcpServer.Close
tcpServer.Listen
End Sub
當客戶關閉連接時，服務器會產生Close事件。在事件中關閉當前連接，重新開始偵聽。其中使用Close方法關閉連接。當然服務器也可以主動調用Close方法關閉連接，例如在窗體關閉時關閉連接。
Sub frmServer_UnLoad(Cancel As Integer)
tcpServer.Close
End Sub
通過上面的步驟我們創建了一個簡單的服務器端應用程序。為了使它能夠工作，還必須為它創建一個客戶端的應用程序。
2.3 創建一個 TCP客戶端（Socket客戶）
1）在項目中添加一個新的窗體，將其命名為frmClient。在窗體中添加一個Winsock控件，并將其命名為tcpClient。在frmClient中添加兩個TextBox控件，將第一個命名為txtSend，第二個命名為txtOutput。在窗體上放一個CommandButton控件，并將其命名為cmdConnect。
2）將CommandButton控件的標題改為“連接”。
3）在窗體中添加如下的代碼。
Private Sub Form_Load()
'Winsock控件名字為tcpClient。
'注意：要指定遠程主機，可以使用IP地址（例如：“121.111.1.1”），
'也可以使用計算機的別名，如下所示：
tcpClient.RemoteHost = "HostServer1"
tcpClient.RemotePort = 2000
End Sub
要創建客戶連接服務器，首先要設置服務器主機名，如IP地址、域名或計算機名等，然后設定服務端口號，最后連接到服務器上。在程序中：
RemoteHost屬性表示服務器主機名；
RemotePort屬性表示服務器端口號。
Private Sub cmdConnect_Click()
'調用Connect方法，初始化連接。
tcpClient.Connect
End Sub
Connect方法連接到服務器；
Private Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End Sub
Private Sub tcpClient_DataArrival (ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub
Private Sub tcpClient_Close(Index As Integer)
tcpClient.Close
End Sub
至此，我們創建了一個簡單的客戶/服務器模式的應用程序。我們可以將兩者都運行起來：運行項目，然后單擊“連接”。在兩個窗體之一的txtSendData文本框中鍵入文本，可以看到同樣的文字將出現在另一個窗體的txtOutput文本框中（如圖2.2所示）。
圖2.2
2.4 創建多客戶服務器，接受多個連接請求
上面設計的基本服務器只能接受一個連接請求。通過創建控件數組，使用一個控件也可以同時接受多個連接請求。利用這種方法，不再需要關閉連接，而只需創建新的控件實例（通過設置其索引屬性），然后，在新的實例上調用Accept方法。
下面的代碼假定名字為sckServer的窗體上有一個Winsock控件，它的Index屬性被設置為0；控件是控件數組的一部分。在聲明部分，聲明了一個模塊級的變量intMax。在窗體的Load事件中，intMax被設置為0，數組中第一個控件的LocalPort屬性被設置為2000。然后調用控件的Listen方法，使之成為“偵聽”控件。在連接請求到達時，代碼將檢測Index是否為0（“偵聽”控件的值）。如果為0，偵聽控件將增加intMax的值，并使用該號碼來創建新的控件實例。然后使用新的控件實例接受連接請求。
Private intMax As Long
Private Sub Form_Load()
intMax = 0
sckServer(0).LocalPort = 2000
sckServer(0).Listen
End Sub
設定端口號后開始偵聽。
Private Sub sckServer_ConnectionRequest (Index As Integer， ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub
在ConnectionRequest事件中，首先加載一個Socket控件，然后再用它來接收連接。
2.5 測試開發中應該注意的問題
1）協議的設置。
當WinSock控件與遠程計算機建立連接時，亦可通過用戶數據包協議（UDP）進行數據交換。在使用WinSock控件時，首先需要考慮使用什么協議。TCP應用程序應注意選擇TCP協議。可按如下方式設置應用程序使用的協議：在“屬性”窗口中單擊“協議”，然后選擇sckTCPProtocol或者sckUDPProtocol。也可以使用程序代碼來設置Protocol屬性，如下所示：
Winsock1.Protocol = sckTCPProtocol開發TCP應用程序應注意選擇TCP協議。
2）注意確定“計算機的名字”。
計算機的名字用如下方式查找：
①在計算機的“任務欄”上，單擊“開始”。
②在“設置”項中，單擊“控制面板”。
③ 雙擊“網絡”圖標。
④ 單擊“標識”選項卡。
⑤ 在“計算機名稱”框中可以找到計算機的名稱。
上面找到的計算機名稱可以作為RemoteHost屬性的值。應用這一技術，我方便地完成了某企業信息管理系統，成功地實現了企業內部信息流的處理。雖然目前已有WWW瀏覽器、FTP等Internet互聯網的應用工具，可以下載網上的信息，或實現網上工作站間的數據與文件的傳輸，但是用Windows Sockets則可方便地在用戶自己設計的Windwos應用程序中通過Internet互聯網傳輸數據，由于互聯網的傳輸速度可以高達數十兆到數百兆比特每秒，因此，除了可以傳遞一般的文字、圖形、聲音等數據文件外，還可以用來傳遞實時的圖像數據。
三．創建Internet Explorer中運行的應用程序
3.1 概述
Visual Basic 5.0版本是直接針對Internet的（也有人稱是針對ActiveX的），Microsoft目前正在加緊開發用于WWW的Visual Basic(估計Visual Basic 6.0必將具有這一功能)。Visual Basic包括一個稱為用戶文檔的新容器類型。用戶文檔構成了Visual Basic Document（也稱ActiveX Document）文檔的基礎，并且生成的文檔能夠使用Microsoft Internet Explorer 3.0以上版本在Internet上瀏覽（見圖3.1）。利用這一功能我們可以方便地創建動態Web頁面。必須指出的是：使用Visual Basic創建的AcitveX Document與其他ActiveX Document略有不同。Visul Basic AcitveX Document與Visual Basic窗體大致相同，能在ActiveX Document容器中使用，但我們不能像運行獨立應用程序那樣運行它們。用戶文檔與窗體非常相似，可以包括控件、顯示消息框、處理數據以及調用其他組件。用戶文檔與窗體的區別主要表現在：⑴應用程序中的其他部分無法得到用戶文檔中的數據，不能從文檔外部引用用戶文檔中的屬性值。⑵給予用戶文檔的應用程序需要Internet Explorer來運行，無法直接從Visual Basic中調試它們。⑶編譯過的應用程序必須從HTM文件啟動，它在顯示VBD文件之前裝入應用程序的代碼組件。如果沒有這個HTM文件，就不能啟動編譯過的EXE文件或從Internet Explorer中查看VBD文件。
3.2 ActiveX 文檔對象的重要屬性
在講述創建ActiveX 文檔的具體方法之前，我們先研究一下ActiveX 文檔對象的重要屬性。每個用戶文檔包含一個內置的Hyperlink對象，可用它來進入URLs和訪問Internet Explorer的文檔高速緩存。NavigateTo方法大致等價于窗體的Show方法。
事件 Show：當瀏覽器顯示文檔時發生；
Hide：當瀏覽器離開文檔時發生；
屬性 HyperLink：用于導航對象；
HyperLink對象有三個重要方法：
GoBack：前一頁面；
GoFoward：后一頁面；
Navigateto：導航；
例如HyperLink.Navigateto "http:/www.pccomputing.com"可以導航至《電子與電腦》雜志的主頁。
3.3 用Visual Basic創建ActiveX Document的具體步驟
我們將開發具有如下功能的應用程序：創建兩個ActiveX文檔頁面，第一個要求訪問者輸入密碼，按動按鈕后，若密碼正確則進入第二頁面；第二頁面可以導航至中國教育與科研計算機網的主服務器。
1）在File菜單中單擊New Project來打開一個New Project對話框，然后雙擊ActiveX Document exe圖標，即可建立一個新項目并進入開發環境。
2）在“用戶文檔”的第一個UserDocument上添加兩個Label控件、一個TextBox和一個CommandButton（如圖3.1所示）。
（圖3.1）。
添加如下代碼：
Private Sub Command1_Click()
'核對Text1的文本，如果正確，則轉至第二個文檔頁面。
If Text1.Text = "690909" Then
Hyperlink.NavigateTo "d:\ActiveX文檔\UserDocument2.vbd"
End If
End Sub
3）從菜單“項目”中選擇“添加用戶文檔”，在工程項目中添加第二個UserDocument，然后在UserDocument2上添加一個CommandButton（如圖3.2所示）。
(圖3.2)
添加如下的代碼：
Private Sub Command1_Click()
'按動按鈕，導航至《電子與電腦》雜志主頁。
Hyperlink.NavigateTo "http:///www.pccomputing.com"
End Sub
4）編譯文檔。
5）使用Internet Explorer瀏覽器測試文檔。
四．創建FTP瀏覽器
4.1 概述
FTP是Internet網上最早使用的文件傳輸程序。FTP的具體含義是文件傳輸協議（File Transfer Protocol），它是由支持Internet文件傳輸的各種規程所組成的集合。FTP的作用是使Internet用戶能夠將文件從一臺計算機拷貝到另一臺計算機，為實現Internet資源共享提供有力的保障。它不同于NFS(Network File System)和Netbios協議，一旦你要訪問另一臺計算機中的文件，任何時刻都要運行FTP，而且你只能拷貝文件到自己的機器中時來使用它。FTP是一種客戶機/服務器結構，既需要客戶機軟件，又需要服務器軟件。FTP客戶機程序在用戶計算機上執行，服務器程序在宿主計算機上執行。用戶啟動FTP客戶機程序，通過輸入戶名和口令同遠程主機上的FTP服務器建立連接，一旦成功，在Internet上用戶計算機和宿主計算機之間就建立起一條命令鏈路(控制鏈路)。
4.2 用Visual Basic 5.0創建FTP瀏覽器的步驟
1） 我們將開發具有如下功能的應用程序：使用兩個文本框和一個Internet Transfer控件。可在“地址”文本框中輸入FTP服務器的URL（Uniform Resource Locator），然后從內容文本框中選擇一個文件或目錄。如果選擇目錄，則應用程序就會顯示該目錄。如果選擇文件，則瀏覽器會將文件存于Windows Temp目錄中。當用戶按回車鍵時，“地址”文本框會通過設置Internet Transfer控件的URL屬性并調用Execute方法來執行請求。當請求一個特定文件時，OpenURL方法實現相同的動作。然而，當你使用OpenURL方法返回目錄的內容時，會返回指明目錄內容的HTML源代碼。
2）在File菜單中單擊New Project，以便打開New Project對話框，然后雙擊“普通exe”圖標，即建立一個新項目，并進入開發環境。
3）在窗體上添加一個Label控件、一個TextBox和一個ListBox（如圖4.1所示）。
圖4.1
4）添加如下代碼：
Private Sub Text1_Click(KeyAscii As Integer)
If KeyAscii=Asc(vbCr) Then
KeyAscii=0
Text1.SelStart=0
Text1.SelLength=Len(Text1)
On Error goTo errOpenURL
InetBrowse.URL=Text1.Text
InetBrowse.Execute, "Dir"
Caption=inetBrowse.URL
End If
Exit Sub
ErrOpenURL:
Select Case Err.Number
Case icBadUrl
MsgBox"地址錯誤，請重新出入！"
Case icConnectFailed,icConnectionAborted,icCannotConnect
MsgBox"無法連入網絡！"
Case icInetTimeout
MsgBox"連接超時！"
Case icExecuting
InetBrowse.Cancel
If inetBrowse.StillExecuting Then
Caption="不能取消請求！"
Else
Resume
End If
End Select
End Sub
當你提交一個請求時，設置錯誤陷阱很重要，尤其是icExecuting錯誤。Internet Transfer控件采用異步方式處理所有請求。然而，在同一時間僅能處理一個請求。如果你取消正在進行的請求，那么在重新開始前一定要檢查StillExecuting屬性。有些請求不能被取消，并且簡單地使用Resume語句會導致死循環。
Private Sub List1_DblClick)
If List1.SelLength Then
If Right(List1.SelText1,1)="/" Then
Text1=Text1 & "/" Left(Text1.SelText,Text1.SelLength-1)
On Error goTo errBRowse
MsDir=Right(Text1.Len(Text1)-Len(inetBrowse.URL)
InetBrowse.Execute,"Dir"&msDir&"/*"
Else
MsDir=Right(Text1.Len(Text1)-Len(inetBrowse.URL))&"/"&""&msTempDir&List1.SelText
End If
End If
Exit Sub
ErrBrowse:
If Err=icExecuting Then
inetBrowse.Cancel
If inetBrowse.StillExecuting Then
MsgBox"不能取消請求!"
Else
Resume
End If
Else
Debug.Print Err&""&Err.Description
End If
End Sub
FTP命令用于在本地主機和遠程主機間或兩遠程主機間傳送文件。為了確保所傳送的文件具有唯一的文件名，可使用一些選項來管理文件名，以便于適應接收主機的需要。用戶能通過使用“anonymous”登錄進行公共文件訪問。
Internet Transfer控件的Books Online文檔展示用于創建FTP瀏覽器的程序片段，這里就不再詳細敘述了。
|
