1/14dSockServer.Listen′開始偵聽SubPrivateSubForm_Unload(CancelAsInteger)CloseSubPrivateSubSockServer_Close()CloseSubPrivateSubSockServer_ConnectionRequest(ByValrequestIDAsLong)CloseSubPrivateSubSockServerDataArrival(ByValbytesTotalAsLong)DimsAsStringSockServer.GetDatasText1.Text=sSubPrivateSubCommand1_Click()ServerSendDataTextTextSub2/14gerLongTextTextste-------------------------------------------------------------------------LocalHostName名3/14ost----------------------------------------------------------------------------------------------------------------------------------------------------Accepta----------------------------------------------------------------------------Close機器關閉連接時觸發Connect可以進行通信時觸發(客戶端)ConnectRequest達時產生(服務器端)DataArrival有數據到達時觸發Error錯誤時發生ndProgress-----------------------------------------------------------------------------(1)服務器程序必須設置好LocalPort屬性，作為偵聽端口，該值為一個整數(只要(2)使用Listen方法進入偵聽狀態，等待客戶機程序的連接請求。 (3)客戶機程序發出連接請求，使服務器程序產生ConnectionRequest事件，該事件4/14(3)使用Connect方法，向服務器提出連接請求。epenningnectionPendingolvingHoststResolvednectingctedSckClosing在關閉連接rror擊“連接”按鈕。如果連接成功，則服務器和客戶機程序窗口都會出現兩個文本框。這時，兩端都可以在上面的文本框中輸入文字，這些文字會立即在下面的文本框中出現。服務器程序使用的控件如下：(1)Command1：退出按鈕；(2)textsend：發送數據文本框；k(4)textget：接收數據文本框。圖所示。服務器程序的源代碼如下：PrivateSubCommand1_Click()5/14ongLongg(1)Command1：退出按鈕；(2)Command2：連接按鈕；(3)Winsockclient：客戶Winsock；(4)Text1：主機名文本框；(5)Textsend：發送數據文本框；(6)Textget：接收數據文本框；6/14tLongg1引言TCP、面向會話連接的數據流服務，它可以7/14P重要的特點地面設計能力，而且在網絡通信方面的功能也很強。采用VB開發網絡通信應用軟件十使編程人員開發客戶/服務器應用程序時，不必了解TCP的細節或調用低級的scVisualC++或VisualFoxPro都可用其編寫客戶服務器程序。8/14sckListen.務器程序開始偵聽網絡前，需要為偵聽用(sckListen)控件的LocalPort屬性設置通nLocalPortsckListenListenIPsckClient.RemoteHost="127.0.0.1""129.200.0.1"置遠程主機服務器程序的接口號一致lientRemotePortect序的偵聽控件(sckListen)觸發ConnectionRequest事件，并傳遞連接請求句柄。9/14AcceptrequestIDkiCurNumber=CurNumber+1sckServer(i).AcceptrequestIDb/14DataSendStrdexClosesckserver.LocalPort=44774.2客戶程序發送數據taSendStrvb映射已知服務器的方法VB設定/取消網絡磁盤FunctionAddConnection(ByValRemoteLocationAsString,_AsString,_ingString)AsBooleanByValLocalDriverByValPasswdAsByValUserNameAsUserName:存取網絡磁盤的使用者代號CallAddConnection("\\Shih\cmias","x:",vbNullString,/14AsBoolean)AsBooleanAsString,_ByValForceCloseverloseCallCancelConnection("x:",True)nExplicitETRESOURCEsLongongayTypeAsLongsLongTypeDeclareFunctionWNetAddConnection2Lib"mpr.dll"Alias"WNetAddConnection2A"(lpNetResourceAsNETRESOURCE,ByVallpPasswordAsString,ByVallpUserNameAsString,ByValDeclareFunctionWNetCancelConnection2Lib"mpr.dll"Alias"WNetCancelConnection2A"(ByVallpNameAsString,ByValdwFlagsAsLong,ByValfForceAsLong)AsLongDeclareFunctionWNetGetLastErrorLib"mpr.dll"Alias"WNetGetLastErrorA"(lpErrorAsLong,ByVallpErrorBufAs/14nErrorBufSizeAsLong,ByVallpNameBufAsnNameBufSizeAsLong)AsLongPublicConstRESOURCE_PUBLICNET=&H2RESOURCETYPE_ANY=&H0RESOURCEDISPLAYTYPE_GENERIC=&H0RESOURCEUSAGE_CONNECTABLE=&H1CONNECT_UPDATE_PROFILE=&H1FunctionAddConnection(ByValRemoteLocationAsString,ByValLocalDriverAsString,_ByValPasswdAsString,ByValUserNameAsString)AsBooleanDimneAsNETRESOURCE,iAsLongDimerrstrAsString,errprivAsString,ernoAsLongne.dwDisplayType=RESOURCEDISPLAYTYPE_GENERICne.dwScope=RESOURCE_PUBLICNETne.dwType=RESOURCETYPE_ANYne.dwUsage=RESOURCEUSAGE_CONNECTABLEne.lpComment=vbNullStringne.lpLocalName=LocalDriverne.lpProvider=vbNullStringne.lpRemoteName=RemoteLocationi=WNetAddConnection2(ne,Passwd,UserName,0)Ifi=0ThenAddConnection=TrueElseAddConnection=Falseerrstr=String(256,0)errpriv=String(256,0)i=WNetGetLastError(erno,errstr,256,errpriv,256)errstr=Left(errstr,InStr(1,errstr,Chr(0))-1)MsgBoxerrstr,vbCriticalEndIf/14PublicFunctionCancelConnection(ByValLocalDriverAsString,ByValForceCloseAsBoolean)AsBooleanDimiAsLongDimerrstrAsString,errprivAsString,ernoAsLongi=WNetCancelConnection2(LocalDriver,0,IIf(ForceClose,1,0))Ifi=0ThenCancelConnection=TrueElseCancelConnection=