對(duì)于局域網(wǎng)用戶中的編程愛好者來說，如果能自己編一個(gè)局域網(wǎng)通信程序，那么這一切將是多么美妙！可是，如果要從頭開始完全由自己來編寫一段用于通信的程序，必須對(duì)相關(guān)的網(wǎng)絡(luò)協(xié)議及其他的一些較底層的技術(shù)有較深入的了解，這可不是一件容易的事。而現(xiàn)在有了Winsock控件，一切就不同了，它已經(jīng)替你封裝了所有煩瑣的技術(shù)細(xì)節(jié)，并提供了訪問TCP和UDP網(wǎng)絡(luò)服務(wù)的方便途徑。你只需通過設(shè)置控件的屬性并調(diào)用其方法就可輕易連接到一臺(tái)遠(yuǎn)程計(jì)算機(jī)中，并且還可以雙向交換數(shù)據(jù)，而這一切都不需你了解TCP的細(xì)節(jié)或調(diào)用低級(jí)的Winsock APIs。
    Winsock控件可以供Microsoft Acess、Visual Basic，Visual C++或Visual Foxpro的開發(fā)人員使用。本文以Visual Basic 6企業(yè)版為開發(fā)環(huán)境來向大家介紹一下Winsock控件的初步應(yīng)用。
    Winsock控件可以使用兩種協(xié)議：TCP協(xié)議和UDP協(xié)議，下面來分別介紹。
    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)行偵聽的端口(存于RemotePort屬性），然后調(diào)用Connect方法。
    創(chuàng)建服務(wù)器應(yīng)用程序時(shí)，就應(yīng)相應(yīng)設(shè)置一個(gè)偵聽端口(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ù)。
    說了這么多，大家可能還是不太了解，讓我用程序來詳細(xì)說明。
    如果只有兩臺(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ī)偵聽端口）；再在乙機(jī)服務(wù)器程序中假如一個(gè)名為sckserver(0)的Winsock控件，其LocalPort=1200，在乙機(jī)服務(wù)器程序中Form_Load()加入
    sckserver(0).bind sckserver(0).LocalPort '與本地端口綁定
    sckserver(0).listern ' 偵聽
    如果要傳輸數(shù)據(jù)，兩機(jī)必須先建立連接。建立連接的程序如下：
    甲機(jī)客戶機(jī)要先請(qǐng)求連接
    sckconnect.connect sckconnect.RemoteHost, sckconnect.RemotePort
    此句執(zhí)行時(shí)會(huì)觸發(fā)服務(wù)器程序中的ConnectRequest事件，在此過程中決定是否建立連接，其代碼如下：
    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