Winsock控件可以供Microsoft Acess、Visual Basic，Visual C++或Visual Foxpro的開(kāi)發(fā)人員使用。本文以Visual Basic 6企業(yè)版為開(kāi)發(fā)環(huán)境來(lái)向大家介紹一下Winsock控件的初步應(yīng)用。

　　Winsock控件可以使用兩種協(xié)議：TCP協(xié)議和UDP協(xié)議，下面來(lái)分別介紹。

　　TCP協(xié)議即數(shù)據(jù)傳輸協(xié)議，它允許創(chuàng)建和維護(hù)與遠(yuǎn)程計(jì)算機(jī)的連接，使其彼此可以進(jìn)行數(shù)據(jù)傳輸。利用TCP協(xié)議通訊必須分別建立客戶應(yīng)用程序和服務(wù)器應(yīng)用程序。

　　在創(chuàng)建客戶應(yīng)用程序時(shí)，必須知道服務(wù)器計(jì)算機(jī)名或其IP地址(存于RemoteHost屬性)、及服務(wù)器計(jì)算機(jī)進(jìn)行偵聽(tīng)的端口(存于RemotePort屬性)，然后調(diào)用Connect方法。

　　創(chuàng)建服務(wù)器應(yīng)用程序時(shí)，就應(yīng)相應(yīng)設(shè)置一個(gè)偵聽(tīng)端口(LocalPort屬性)并調(diào)用listen方法。當(dāng)客戶機(jī)需要連接時(shí)(connect)，就會(huì)發(fā)生ConnectionRequest事件。為了完成連接，你可以在ConnectionRequest事件中調(diào)用Accept方法。建立連接后，任何一方計(jì)算機(jī)都可以發(fā)送、接收對(duì)方數(shù)據(jù)。如果你要發(fā)送數(shù)據(jù)，需調(diào)用SendData方法。當(dāng)接收到數(shù)據(jù)時(shí)，會(huì)發(fā)生DataArrival事件，調(diào)用DataArrival事件中的GetData方法就可以獲得對(duì)方傳送的數(shù)據(jù)。

　　如果只有兩臺(tái)計(jì)算機(jī)，那十分容易。假設(shè)甲機(jī)為客戶機(jī)，乙機(jī)為服務(wù)器，且其IP為192.192.192.1，接收端口為1200(任意選一個(gè)未被使用的端口即可)。首先在甲機(jī)客戶端程序中加入一個(gè)Winsock控件，起名為sckconnect，并設(shè)置其屬性：RemoteHost=“192.192.192.1”，(即甲機(jī)IP地址)，RemotePort=1200(即甲機(jī)偵聽(tīng)端口)；再在乙機(jī)服務(wù)器程序中假如一個(gè)名為sckserver(0)的Winsock控件，其LocalPort=1200，
　　在乙機(jī)服務(wù)器程序中Form_Load()加入

　　sckserver(0).bind sckserver(0).LocalPort '與本地端口綁定

　　sckserver(0).listern ' 偵聽(tīng)

　　如果要傳輸數(shù)據(jù)，兩機(jī)必須先建立連接。建立連接的程序如下：

　　甲機(jī)客戶機(jī)要先請(qǐng)求連接

　　sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort

　　此句執(zhí)行時(shí)會(huì)觸發(fā)服務(wù)器程序中的ConnectRequest事件，在此過(guò)程中決定是否建立連接，其代碼如下：

　　Private sub sckserver_connectionrequest(index as Integer,Byval requestid as long)

　　if sckserver.count=1 then

　　load sckserver(1)

　　sckserver(1).accept requestId

　　end if

　　end sub

　　連接建立好以后，甲機(jī)或乙機(jī)都可以應(yīng)用SendData方法來(lái)傳送數(shù)據(jù)。例如，如果是甲機(jī)要傳送一個(gè)叫string的
字符串，只需在代碼中加入：

　　sckconnect.SendData string

　　甲機(jī)傳送數(shù)據(jù)后，會(huì)觸發(fā)乙機(jī)的DataArrival事件，在其過(guò)程中用GetData方法可以收到傳送的數(shù)據(jù)：

　　Private sub sckserver_DataArrival(Index as integer,Byval BytesTotal as long)

　　dim sdata as string

　　sckserver(1).GetData sdata,vbstring

　　end sub

　　最后別忘了在關(guān)閉程序前要先關(guān)閉Winsock控件

　　privat sub form_unload(cancel as integer)

　　if sckconnect.state <>sckclosed then

　　sckconnect.close

　　end if 

　　end sub
　　這只是最簡(jiǎn)單的情況，如果有多臺(tái)計(jì)算機(jī)，那就稍微復(fù)雜一些，客戶端程序可以不做改動(dòng)，而服務(wù)器端程序需要略做改動(dòng)：
　　Private sub sckserver_connectrequest(Index as Integer,Byval requestid as long)

　　dim sip as string

　　dim I as integer

　　sip=sckserver(0).RemoteHostIP '獲得登錄者的IP地址

　　I=1

　　Do while I<=sckserver.ubound '檢查是否已經(jīng)有該地址的記錄

　　If sckserver(I).RemoteHostIP=sip then '如有，不必加載新的控件

　　Sckserver(I).Accept requestid 

　　Exit sub

　　End if

　　I=I+1

　　Loop

　　Load sckserver(I) '否則，加載新的控件

　　Scksrver(I).accept requestID

　　End sub
　　注意到：以上的信息交談實(shí)際上都發(fā)生在客戶機(jī)與服務(wù)器之間，如果要做成聊天室那樣，每個(gè)人的話都可以被別人“聽(tīng)到”，那就要在服務(wù)器端的DataArrival事件中，把接收到的客戶機(jī)傳來(lái)的數(shù)據(jù)，轉(zhuǎn)發(fā)給所有客戶機(jī)即可。

　　其循環(huán)轉(zhuǎn)發(fā)信息的代碼如下：
　　For I=1 to sckserver.count

　　if sckserver(I).state<>sckclosed then

　　sckserver(I).SendData sdata

　　end if

　　next I 
　　怎么樣，這樣我們就作好了自己的通信軟件!

　　不過(guò)，不知大家注意到?jīng)]有，上述程序都需要有一臺(tái)計(jì)算機(jī)做為服務(wù)器，但如果我們的局域網(wǎng)中沒(méi)有哪臺(tái)計(jì)算機(jī)是可以常開(kāi)的，也就是說(shuō)，如果服務(wù)器端程序沒(méi)有運(yùn)行的話，其他客戶端程序也沒(méi)有辦法通信。而這種情況卻可能是經(jīng)常出現(xiàn)的!至少，我所用的局域網(wǎng)那就是這樣的。難道這樣我們就無(wú)法享受局域網(wǎng)通信的樂(lè)趣了嗎?