【導(dǎo)讀】近年來，隨著互聯(lián)網(wǎng)在中國的迅速發(fā)展，出現(xiàn)許多聊天軟件，這些軟件功能齊全，的聊天功能外，還要提供一個繪圖板，雙方都能在繪圖板上繪圖。從實際應(yīng)用系統(tǒng)的角。的P2P聊天繪圖工具。該聊天工具可以進行一對一聊天，以及文件傳輸?shù)墓δ堋膳_機器間互相發(fā)送消息。絡(luò)世界，拉近了人們的距離。從單一的文本聊天，到語音聊天以及到現(xiàn)在的圖像、視頻。聊天、及時短信的發(fā)送和在線游戲等功能的開發(fā)，已經(jīng)大大的拓展了聊天工具的概念，它成為了人們通過因特網(wǎng)相互聯(lián)系和娛樂的主要平臺，這也是騰訊成功的原因。VB中的WinSock通信,在此基礎(chǔ)上,實現(xiàn)一對一聊天。自定義一些消息類型,這是該聊天工具的又一大關(guān)鍵之處。第一章開發(fā)背景···························II

　　

【正文】 End Sub Private Sub Text1_Change() End Sub Private Sub Text2_Change() End Sub Private Sub WinSock1_ConnectionRequest(ByVal requestID As Long) If sckClosed Then requestID 39。在監(jiān)聽的端口有連接請求發(fā)生時，立即調(diào)用 Accept方法 39。認可連接，使之生效。 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strData As String strData, vbString 39。當(dāng)有數(shù)據(jù)到達時，調(diào)用 GetData 方法接收之 39。 = strData 39。將接收的內(nèi)容更新顯示在 Text2 中 strData Dim c() As String If Left(strData, 1) = p Then c = Split(strData, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If If Left(strData, 1) = c Then c = Split(strData, , 1) X1 = c(1) X2 = c(2) r = c(3) (Val(X1), Val(X2)), r End If End Sub 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strData As String strData, vbString 39。當(dāng)有數(shù)據(jù)到達時，調(diào)用 GetData 方法接收之 39。 = strData 39。將接收的內(nèi)容更新顯示在 Text2 中 strData Dim c() As String If Left(strData, 1) = p Then c = Split(strData, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If If Left(strData, 1) = c Then c = Split(strData, , 1) X1 = c(1) X2 = c(2) r = c(3) (Val(X1), Val(X2)), r End If End Sub 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strData As String strData, vbString 39。當(dāng)有數(shù)據(jù)到達時，調(diào)用 GetData 方法接收之 39。 = strData 39。將接收的內(nèi)容更新顯示在 Text2 中 strData Dim c() As String If Left(strData, 1) = p Then c = Split(strData, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If If Left(strData, 1) = c Then c = Split(strData, , 1) X1 = c(1) X2 = c(2) r = c(3) (Val(X1), Val(X2)), r End If End Sub 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） 客戶端各功能實現(xiàn)程序 Private Sub Form_Load() = 5000 End Sub Private Sub Label1_Click() End Sub Private Sub Winsock1_Connect() MsgBox 連接成功 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String str, vbString 39。按照字符串類型接收信息 str Dim c() As String If Left(str, 1) = p Then c = Split(str, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） If Left(str, 1) = c Then c = Split(str, , 1) X1 = c(1) X2 = c(2) r = c(3) (Val(X1), Val(X2)), r End If End Sub Private Sub Command1_Click() = Val() If sckClosed Then 39。如果套接字未關(guān)閉，先關(guān)閉之 = 39。確定服務(wù)器的主機名 39。 39。綁定套接字屬性 39。向服務(wù)器發(fā)出連接請求 = False 39。使 Command1 不可用 = True 39?，F(xiàn)在可以使其斷開 End Sub Private Sub Command2_Click() = True = False 39。關(guān)閉當(dāng)前套接字 End Sub Private Sub Command3_Click() If = sckConnected Then Time amp。 amp。 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） End Sub Private Sub Command4_Click() = Val() = Val() (Val(), Val()) If = sckConnected Then p, amp。 amp。 , amp。 amp。 , amp。 amp。 , amp。 End Sub Private Sub Command5_Click() (Val(), Val()), If = sckConnected Then c, amp。 amp。 , amp。 amp。 , amp。 End Sub Private Sub Form_Load() = 5000 End Sub Private Sub Command1_Click() = Val() If sckClosed Then 39。如果套接字未關(guān)閉，先關(guān)閉之 = 39。確定服務(wù)器的主機名 39。 39。綁定套接字屬性 39。向服務(wù)器發(fā)出連接請求 = False 39。使 Command1 不可用 = True 39?，F(xiàn)在可以使其斷開 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） End Sub Private Sub Command2_Click() = True = False 39。關(guān)閉當(dāng)前套接字 End Sub Private Sub Command3_Click() If = sckConnected Then Time amp。 amp。 End Sub Private Sub Command4_Click() = Val() = Val() (Val(), Val()) If = sckConnected Then p, amp。 amp。 , amp。 amp。 , amp。 amp。 , amp。 End Sub Private Sub Command5_Click() (Val(), Val()), If = sckConnected Then c, amp。 amp。 , amp。 amp。 , amp。 End Sub Private Sub Form_Load() = 5000 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） End Sub Private Sub Label1_Click() End Sub Private Sub Label4_Click() End Sub Private Sub Text1_Change() Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String str, vbString 39。按照字符串類型接收信息 str Dim c() As String If Left(str, 1) = p Then c = Split(str, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If If Left(str, 1) = c Then c = Split(str, , 1) X1 = c(1) 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） X2 = c(2) r = c(3) (Val(X1), Val(X2)), r End If End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String str, vbString 39。按照字符串類型接收信息 str Dim c() As String If Left(str, 1) = p Then c = Split(str, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If If Left(str, 1) = c Then c = Split(str, , 1) X1 = c(1) X2 = c(2) r = c(3) (Val(X1), Val(X2)), r End If End Sub 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String str, vbString 39。按照字符串類型接收信息 str Dim c() As String If Left(str, 1) = p Then c = Split(str, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If If Left(str, 1) = c Then c = Split(str, , 1) X1 = c(1) X2 = c(2) r = c(3) (Val(X1), Val(X2)), r End If End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String str, vbString 39。按照字符串類型接收信息 str Dim c() As String 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） If Left(str, 1) = p Then c = Split(str, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If If Left(str, 1) = c Then c = Split(str, , 1) X1 = c(1) X2 = c(2) r = c(3) (Val(X1), Val(X2)), r End If End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim str As String str, vbString 39。按照字符串類型接收信息 str Dim c() As String If Left(str, 1) = p Then c = Split(str, , 1) X1 = c(1) Y1 = c(2) X2 = c(3) Y2 = c(4) 2021 屆湖北汽車汽車工業(yè)學(xué)院畢業(yè)設(shè)計（論文） = Val(X1) = Val(Y1) (Val(X2), Val(Y2)) End If If Left(str, 1) = c Then c