VBWinSockUDP〔用戶數(shù)據(jù)報協(xié)議〕或TCPUDPTCP網(wǎng)絡(luò)談天程序的運行過程及原理第一步：建立連接主要過程是：由客戶端程序向效勞端程序發(fā)出連接懇求，效勞通道。其次步：開頭談天主要過程是：在客戶機的“發(fā)送的信息”文本框中輸入文字時，效勞器端的“收到的信息”文本框中就會實時地顯示一樣的文字，反之亦然。效勞器的界面設(shè)計件中找到MicrosoftWinsockControlForm1的名稱改為Form_Load，并在其中添加兩個命令按鈕〔Command1CaptionCommand2Caption為“發(fā)送”。在窗體是添加三個TextBox控件，其名稱分別為txtServerIP，txtSendtxtReceive。WinsockProtocol〔協(xié)議〕屬性設(shè)置為0〔即sckTCPProtoco。效勞器端的源代碼：PrivateSubForm_Load”設(shè)置偵聽端口WinsockServer.LocalPort=10001”IP地址txtServerIP.Text=WinsockServer.LocalIP”開頭偵聽WinsockServer.ListenEndSubPrivateSubCommand1_Click”點擊“退出”按鈕后關(guān)閉應(yīng)用程序UnloadMeEndSubPrivateSubCommand2_Click”只要txtSend文本框的內(nèi)容寫好以后就由WinsockServer控件發(fā)送WinsockServer.SendDatatxtSend.TextEndSubPrivate Sub WinsockServer_ConnectionRequest(ByValrequestID AsLong)”當收到連接懇求時，Winsock處于偵聽狀態(tài)CloseWinsockAccept方法承受連接懇求WinsockServer.CloseWinsockServer.AcceptrequestIDEndSubPrivateSubWinsockServer_DataArrival(ByValBytesTotalAsLong)”當客戶端有信息發(fā)送來時，利用WinsockServer控件的GatData方法讀取數(shù)據(jù)”txtReceive文本框中DimMyStrAsStringWinsockServer.GetDataMyStrtxtReceive.Text=MyStrEndSub運行界面如以以下圖：客戶端的界面設(shè)計創(chuàng)立一個的“標準EXE”工程，并添加Winsock控件。將Form1的名稱改為Form_Load，并在其中添加兩個命令按鈕〔Command1Caption屬性為“退出”，Command2Caption屬性連接效勞器”，Command3的Caption發(fā)送”。在窗體是添加四個TextBox控件，其名稱分別為txtClientIP，txtServerIP，txtSend和txtReceive。WinsockProtocol〔協(xié)議〕屬性設(shè)置為0〔即sckTCPProtoco?？蛻舳说脑创a：PrivateSubForm_Load”設(shè)置談天效勞器的偵聽端口WinsockClient.RemotePort=10001”讀取本機的IP地址txtClientIP.Text=WinsockClient.LocalIPEndSubPrivateSubCommand1_Click”點擊“退出”按鈕后關(guān)閉應(yīng)用程序UnloadMeEndSubPrivateSubCommand2_Click”依據(jù)txtServerIP文本框中輸入的效勞器IP，連接談天效勞器WinsockClient.RemoteHost=txtServerIP.TextWinsockClient.ConnectEndSubPrivateSubCommand3_Click”輸入txtSend文本框的內(nèi)容后由WinsockServer控件發(fā)送WinsockClient.SendDatatxtSend.TextEndSubPrivateSubWinsockClient_Connect”假設(shè)與效勞器連接成功，則向用戶供給以下信息MsgBox你成功地與談天效勞器進展了連接“,vbInformationEndSubPrivateSubWinsockClient_DataArrival(ByValBytesTotalAsLong)”WinsockClient控件的GatData方法讀取數(shù)據(jù)”txtReceive文本框中DimMyStrAsStringWinsockClient.GetDataMyStrtxtReceive.Text=MyStrEndSub運行界面如以以下圖：通訊實現(xiàn)過程通過以上的預(yù)備工作后，分別把效勞器和客戶端生成exe(可執(zhí).exe。今后我們只需要用這兩個軟件就行，就算我們計算機上沒有安裝VisualBasic6.0首先翻開這兩個軟件效勞器.exe和客戶端.exe，在效勞器中軟IP端軟件也能檢測出本臺計算機的IP自發(fā)自接型我們先在客戶端軟件中的“txtServerIP”中輸入要連接的效勞IP后，則會彈出連接成功對話框，如以以下圖之后在客戶端的txtSend戶端發(fā)來的消息。同時，效勞器也可以向客戶端發(fā)送消息，這時客戶面如以以下圖兩臺計算機間通訊型把效勞器.exe.exe跟上面的方法類似，區(qū)分在于不是寫自己的IP，而是寫另外一臺計算機的IP,另外一臺計算機寫你的IP。這里我的IP10.1.214.28，另一臺計算機IP10.1.214.121。這樣兩臺計算機就可以連接并進展通訊了。通訊界面如以以下圖12UDPUDP(UserDatagramProtocol)TCP操UDP應(yīng)用可同時作為應(yīng)用的客戶或效勞器方。APrivateSubCommand1_ClickWinsock1.SendDataText1.TextEndSubPrivateSubForm_LoadWithWinsock1.RemoteHost=“user-PC“”要連接到的計算機名.RemotePort=1010”要連接到的端口號.LocalPort=1011”該Winsock把握將要使用的本地端口號，便于其它端與該Winsock.Bind1011”將該WinsockEndWithEndSubPrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)DimstrDataAsStringWinsock1.GetDatastrData,vbStringText2.Text=strDataEndSubBPrivateSubForm_LoadWithWinsock1.RemoteHost=“user-PC“”要連接到計算機的IP.RemotePort=1011”要連接到的端口號.LocalPort=1010Winsock便于其它方與之通訊.Bind1010”將該WinsockEndWithEndSubPrivateSubtxtSend_ChangeWinsock1.SendDatatxtSend.TextEndSubPrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)DimstrDataAsStringWinsock1.GetDatastrData,vbStringText2.Text=strDataEndSubPrivateSubCommand1_ClickWinsock1.SendDataText1.TextEndSub通訊實現(xiàn)過程自發(fā)自接型B.exe。然后在同一臺計算機上翻開它們〔計算機上沒有安裝VisualBasic6.0也可以翻開，這樣談天A.exe和談天B.exe兩臺計算機間發(fā)送信息型假設(shè)要在不同的計算機上發(fā)送信息，則需要在源代碼中把RemoteHostIPIP,雙方都需要改動。比方，一方是10.1.214.28，而另一方是10.1.214.121。然后再生成可執(zhí)行文件，方法過程同上。通訊過程如以以下圖12心得體會總結(jié)：TCP和UDPVBWinsock機自己與自己