<p>利用Winsock控件實(shí)現(xiàn)局域網(wǎng)通信   </p>
<p>       </p>
<p>    對于局域網(wǎng)用戶中的編程愛好者來說，如果能自己編一個局域網(wǎng)通信程序，那么這一切將是多么美妙！可是，如果要從頭開始完全由自己來編寫一段用于通信的程序，必須對相關(guān)的網(wǎng)絡(luò)協(xié)議及其他的一些較底層的技術(shù)有較深入的了解，這可不是一件容易的事。而現(xiàn)在有了Winsock控件，一切就不同了，它已經(jīng)替你封裝了所有煩瑣的技術(shù)細(xì)節(jié)，并提供了訪問TCP和UDP網(wǎng)絡(luò)服務(wù)的方便途徑。你只需通過設(shè)置控件的屬性并調(diào)用其方法就可輕易連接到一臺遠(yuǎn)程計(jì)算機(jī)中，并且還可以雙向交換數(shù)據(jù)，而這一切都不需你了解TCP的細(xì)節(jié)或調(diào)用低級的Winsock APIs。 </p>
<p>　　Winsock控件可以供Microsoft Acess、Visual Basic，Visual C++或Visual Foxpro的開發(fā)人員使用。本文以Visual Basic 6企業(yè)版為開發(fā)環(huán)境來向大家介紹一下Winsock控件的初步應(yīng)用。 </p>
<p></p>
<p>　　Winsock控件可以使用兩種協(xié)議：TCP協(xié)議和UDP協(xié)議，下面來分別介紹。 </p>
<p></p>
<p>　　TCP協(xié)議即數(shù)據(jù)傳輸協(xié)議，它允許創(chuàng)建和維護(hù)與遠(yuǎn)程計(jì)算機(jī)的連接，使其彼此可以進(jìn)行數(shù)據(jù)傳輸。利用TCP協(xié)議通訊必須分別建立客戶應(yīng)用程序和服務(wù)器應(yīng)用程序。 </p>
<p></p>
<p>　　在創(chuàng)建客戶應(yīng)用程序時，必須知道服務(wù)器計(jì)算機(jī)名或其IP地址(存于RemoteHost屬性)、及服務(wù)器計(jì)算機(jī)進(jìn)行偵聽的端口(存于RemotePort屬性），然后調(diào)用Connect方法。 </p>
<p></p>
<p>　　創(chuàng)建服務(wù)器應(yīng)用程序時，就應(yīng)相應(yīng)設(shè)置一個偵聽端口(LocalPort屬性)并調(diào)用listen方法。當(dāng)客戶機(jī)需要連接時(connect)，就會發(fā)生ConnectionRequest事件。為了完成連接，你可以在ConnectionRequest事件中調(diào)用Accept方法。建立連接后，任何一方計(jì)算機(jī)都可以發(fā)送、接收對方數(shù)據(jù)。如果你要發(fā)送數(shù)據(jù)，需調(diào)用SendData方法。當(dāng)接收到數(shù)據(jù)時，會發(fā)生DataArrival事件，調(diào)用DataArrival事件中的GetData方法就可以獲得對方傳送的數(shù)據(jù)。 </p>
<p></p>
<p>　　說了這么多，大家可能還是不太了解，讓我用程序來詳細(xì)說明。 </p>
<p></p>
<p>　　如果只有兩臺計(jì)算機(jī)，那十分容易。假設(shè)甲機(jī)為客戶機(jī)，乙機(jī)為服務(wù)器，且其IP為192.192.192.1，接收端口為1200(任意選一個未被使用的端口即可)。首先在甲機(jī)客戶端程序中加入一個Winsock控件，起名為sckconnect，并設(shè)置其屬性：RemoteHost=“192.192.192.1”，（即甲機(jī)IP地址）， RemotePort=1200（即甲機(jī)偵聽端口）；再在乙機(jī)服務(wù)器程序中假如一個名為sckserver(0)的Winsock控件，其LocalPort=1200， </p>
<p></p>
<p>　　在乙機(jī)服務(wù)器程序中Form_Load()加入 </p>
<p></p>
<p>　　sckserver(0).bind sckserver(0).LocalPort '與本地端口綁定 </p>
<p></p>
<p>　　sckserver(0).listern ' 偵聽 </p>
<p></p>
<p>　　如果要傳輸數(shù)據(jù)，兩機(jī)必須先建立連接。建立連接的程序如下： </p>
<p></p>
<p>　　甲機(jī)客戶機(jī)要先請求連接 </p>
<p></p>
<p>　　sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort </p>
<p></p>
<p>　　此句執(zhí)行時會觸發(fā)服務(wù)器程序中的ConnectRequest事件，在此過程中決定是否建立連接，其代碼如下： </p>
<p></p>
<p>　　Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long) </p>
<p></p>
<p>　　if sckserver.count=1 then </p>
<p></p>
<p>　　load sckserver(1) </p>
<p></p>
<p>　　sckserver(1).accept requestId </p>
<p></p>
<p>　　end if </p>
<p></p>
<p>　　end sub </p>
<p></p>
<p>　　連接建立好以后，甲機(jī)或乙機(jī)都可以應(yīng)用SendData方法來傳送數(shù)據(jù)。例如，如果是甲機(jī)要傳送一個叫string的字符串，只需在代碼中加入： </p>
<p></p>
<p>　　sckconnect.SendData string </p>
<p></p>
<p>　　甲機(jī)傳送數(shù)據(jù)后，會觸發(fā)乙機(jī)的DataArrival事件，在其過程中用GetData方法可以收到傳送的數(shù)據(jù)： </p>
<p></p>
<p>　　Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long) </p>
<p></p>
<p>　　dim sdata as string </p>
<p></p>
<p>　　sckserver(1).GetData sdata,vbstring </p>
<p></p>
<p>　　end sub </p>
<p></p>
<p>　　最后別忘了在關(guān)閉程序前要先關(guān)閉Winsock控件 </p>
<p></p>
<p>　　privat sub form_unload(cancel as integer) </p>
<p></p>
<p>　　if sckconnect.state <>sckclosed then </p>
<p></p>
<p>　　sckconnect.close </p>
<p></p>
<p>　　end if </p>
<p></p>
<p>　　end sub </p>
<p></p>
<p>　 </p>
<p></p>
<p>　　這只是最簡單的情況，如果有多臺計(jì)算機(jī)，那就稍微復(fù)雜一些，客戶端程序可以不做改動，而服務(wù)器端程序需要略做改動： </p>
<p></p>
<p>　　Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long) </p>
<p></p>
<p>　　dim sip as string </p>
<p></p>
<p>　　dim I as integer </p>
<p></p>
<p>　　sip=sckserver(0).RemoteHostIP '獲得登錄者的IP地址 </p>
<p></p>
<p>　　I=1 </p>
<p></p>
<p>　　Do while I<=sckserver.ubound '檢查是否已經(jīng)有該地址的記錄 </p>
<p></p>
<p>　　If sckserver(I).RemoteHostIP=sip then '如有，不必加載新的控件 </p>
<p></p>
<p>　　Sckserver(I).Accept requestid </p>
<p></p>
<p>　　Exit sub </p>
<p></p>
<p>　　End if </p>
<p></p>
<p>　　I=I+1 </p>
<p></p>
<p>　　Loop </p>
<p></p>
<p>　　Load sckserver(I) '否則，加載新的控件 </p>
<p></p>
<p>　　Scksrver(I).accept requestID </p>
<p></p>
<p>　　End sub </p>
<p></p>
<p>　　注意到：以上的信息交談實(shí)際上都發(fā)生在客戶機(jī)與服務(wù)器之間，如果要做成聊天室那樣，每個人的話都可以被別人“聽到”，那就要在服務(wù)器端的DataArrival事件中，把接收到的客戶機(jī)傳來的數(shù)據(jù)，轉(zhuǎn)發(fā)給所有客戶機(jī)即可。 </p>
<p></p>
<p>　　其循環(huán)轉(zhuǎn)發(fā)信息的代碼如下： </p>
<p></p>
<p>　　For I=1 to sckserver.count </p>
<p></p>
<p>　　if sckserver(I).state<>sckclosed then </p>
<p></p>
<p>　　sckserver(I).SendData sdata </p>
<p></p>
<p>　　end if </p>
<p></p>
<p>　　next I </p>
<p></p>
<p>　 </p>
<p></p>
<p>　　怎么樣，這樣我們就作好了自己的通信軟件！ </p>
<p></p>
<p>　 </p>
<p></p>
<p>　　不過，不知大家注意到?jīng)]有，上述程序都需要有一臺計(jì)算機(jī)做為服務(wù)器，但如果我們的局域網(wǎng)中沒有哪臺計(jì)算機(jī)是可以常開的，也就是說，如果服務(wù)器端程序沒有運(yùn)行的話，其他客戶端程序也沒有辦法通信。而這種情況卻可能是經(jīng)常出現(xiàn)的!至少，我所用的局域網(wǎng)那就是這樣的。難道這樣我們就無法享受局域網(wǎng)通信的樂趣了嗎？ </p>
<p></p>
<p>　　不要急，記得嗎，我們的Winsock控件還有另一個主角：UDP協(xié)議。 </p>
<p></p>
<p>　　UDP協(xié)議也稱為用戶數(shù)據(jù)報(bào)文協(xié)議，是一個無連接協(xié)議。何謂無連接協(xié)議？就是說利用此協(xié)議連接時，不必象TCP協(xié)議那樣：需要服務(wù)器端偵聽，客戶機(jī)端請求連接，服務(wù)器端建立連接后雙方才能通信。另外，UDP應(yīng)用程序可以是客戶機(jī)，也可以是服務(wù)器程序，而不必向TCP應(yīng)用程序那樣必須分別建立客戶機(jī)程序和服務(wù)器程序。 </p>
<p></p>
<p>　　下面，來簡述一下UDP協(xié)議通信的過程：UDP協(xié)議中，為了在甲乙兩機(jī)中傳輸數(shù)據(jù)，必須先分別設(shè)置兩機(jī)的LocalPort屬性；再將甲機(jī)的RemoteHost屬性設(shè)置為乙機(jī)的IP地址，RemotePort屬性設(shè)置為乙機(jī)的LocalPort屬性值，此時甲機(jī)調(diào)用SendData方法就可以傳送數(shù)據(jù)了，乙機(jī)同樣使用DataArrival事件中的GetData方法來獲取甲機(jī)發(fā)送給乙機(jī)的信息。如想乙機(jī)向甲機(jī)傳送數(shù)據(jù)，只需仿照上面的過程設(shè)置即可。 </p>
<p></p>
<p>　　用UDP協(xié)議來傳輸信息較TCP協(xié)議來說簡單的多，它無須偵聽（LISTEN），也無須請求連接（CONNECT），就象我們平時發(fā)信一樣，只要寫好地址及收信人姓名并發(fā)送出去即可。我們可以借此來編寫一個局域網(wǎng)中的信息傳送程序，下面來簡單介紹以下程序中想實(shí)現(xiàn)的功能及其基本思想： </p>
<p></p>
<p>　　首先，我們一定想讓程序的圖標(biāo)顯示在system tray中而不顯示在任務(wù)欄中吧！這要是自己編程實(shí)現(xiàn)可不是太容易，幸好VB光盤中在common\tools\vb\unsupport\systemTray 中有一個現(xiàn)成的程序，我們只要把它編譯成systray.ocx 控件，然后在編寫自己的程序時添加此控件即可。其使用方法十分簡單，它已經(jīng)定義好了鼠標(biāo)單擊、雙擊等事件，你只需編寫相應(yīng)的鼠標(biāo)事件即可，這里不再多說。 </p>
<p></p>
<p>　　程序的關(guān)鍵是：UDP協(xié)議在通訊時要知道對方的IP和Port，這要如何實(shí)現(xiàn)呢？最簡單的方法是建立一個配置文件，里面放置了局域網(wǎng)上每臺計(jì)算機(jī)的名字、IP和Port，在程序初始化時讀出所有信息，在程序中只要知道向誰通信，讀出其對應(yīng)的IP和Port即可。 </p>
<p></p>
<p>　　我們知道了每臺計(jì)算機(jī)的IP和Port，但我們怎樣才能知道其它計(jì)算機(jī)是否在線呢，否則發(fā)出信息別人收不到怎么辦？我們可以把此程序放在啟動菜單中，讓其一開機(jī)就自動啟動，并最小化，放于窗口右下角的system tray中。在程序剛開始運(yùn)行時，它會自動向它從配置文件中所知道的所有IP發(fā)一條信息：“我來了！”，如果有計(jì)算機(jī)在線，它會自動返回一條信息：“歡迎！”，如此則兩機(jī)通信成功，它們會分別把對方的名字加入到自己的可通信人名單中去；如果有計(jì)算機(jī)關(guān)機(jī)，程序在退出之前會自動向所有人告別：“再見！”，接收到此信息的計(jì)算機(jī)會自動把發(fā)送信息的計(jì)算機(jī)的名稱從自己的可通信人名單中去除。這樣，如果某人不在線，你將無法發(fā)送信息給它；如果除了你以外，其他人都沒有開機(jī)，那你的可發(fā)送人名單中將沒有任何人。而其它人只要一上線，會自動去你那里“登記”，其他人只要一離線，會自動去你那里“告別”，你可以據(jù)此知道他人是否正在使用計(jì)算機(jī)，你甚至可以以此程序來統(tǒng)計(jì)他人的每天上機(jī)時間，不錯吧！ </p>
<p></p>
<p>　　好了，一個局域網(wǎng)通信的程序的基本模型已經(jīng)有了，并不復(fù)雜吧！大家趕快動手吧，來享受用自己的程序來聊天的樂趣！ </p>
<p></p>
<p>　　不過，要想編寫一個出色的程序，不光是要有良好的創(chuàng)意與功能，更重要的是程序的兼容性與容錯性。本例中，對錯誤處理沒有做詳細(xì)的解釋，關(guān)于這一點(diǎn)，大家可以在Winsock控件的error事件及其幫助中找到滿意的答案。 </p>
<p></p>
<p>　　另外，還可以從以下幾方面來考慮功能的擴(kuò)充：如傳送圖形、聲音等多媒體信息、局域網(wǎng)互傳文件（主動傳送）、歷史通話記錄、系統(tǒng)日志、個人上機(jī)時間統(tǒng)計(jì)等等，而所有的這一切僅僅取決于你的想象力與你的聰明才智！下面，筆者以傳送文件為例來講一講其功能實(shí)現(xiàn)的代碼。 </p>
<p></p>
<p>　　你可以把本地的文件（圖形、聲音等可以先存成臨時文件）以二進(jìn)制文件的方式來打開它，將其內(nèi)容全部讀入一個byte類型的數(shù)組中，本地機(jī)代碼如下： </p>
<p></p>
<p>　　dim myfile () as byte </p>
<p></p>
<p>　　dim position as long </p>
<p></p>
<p>　　open "filename" for binary as #1 </p>
<p></p>
<p>　　position=0 </p>
<p></p>
<p>　　do while not eof(1) </p>
<p></p>
<p>　　position=positon+1 </p>
<p></p>
<p>　　redim preserve myfile (1 to position) </p>
<p></p>
<p>　　get #1,,myfile(position) </p>
<p></p>
<p>　　loop </p>
<p></p>
<p>　　close #1 </p>
<p></p>
<p>　　再向遠(yuǎn)程機(jī)傳送這個字節(jié)數(shù)組 </p>
<p></p>
<p>　　sckserver.SendData myfile </p>
<p></p>
<p>　　遠(yuǎn)程機(jī)收到這個數(shù)組之后，再以二進(jìn)制文件的方式打開一個新目標(biāo)文件，將數(shù)組內(nèi)容寫入這個新打開的文件，如果是bmp圖片就將其放入picture圖片框中，如果是wav文件，就播放。這樣，局域網(wǎng)中的兩個人就可以通過語言、圖片、文字來交流了。 </p>
<p></p>
<p>　　遠(yuǎn)程機(jī)代碼如下： </p>
<p></p>
<p>　　Private sub sckconnect_DataArrival(byval bytestotal as long) </p>
<p></p>
<p>　　dim receivefile(1 to bytestotal)as byte </p>
<p></p>
<p>　　sckconnect.GetData receivefile,vbarray+vbbyte </p>
<p></p>
<p>　　'告訴Winsock控件收到的是字節(jié)數(shù)組類型的數(shù)據(jù) </p>
<p></p>
<p>　　open "c:\temp\文件名" for binary as #1 </p>
<p></p>
<p>　　for I=1 to bytestotal </p>
<p></p>
<p>　　put #1,,remotearray(I) </p>
<p></p>
<p>　　next I </p>
<p></p>
<p>　　clost #1 </p>
<p></p>
<p>　　end sub</p>