【正文】 outmessage = Mid(message, outmessage_where1 + 4, outmessage_where2 outmessage_where1 4) For n = 1 To If (n).Text = sender Then Private_Chat(n). = Private_Chat(n). amp。 str = Len() = End Sub接收離線私聊信息。MsgBox 已連接上對方 ElseIf = 7 Then str End If If 7 And 7 Then 39。 Chr(13) amp。 Chr(13) amp。 Chr(10) amp。 Time amp。離線信息協(xié)議：%**1發(fā)送者賬號**1**2接收者賬號**2**$$離線的信息**$$%代碼如下：Private Sub Command1_Click() Dim str As String If Len() = 0 Then MsgBox (發(fā)送內(nèi)容不能為空！) Exit Sub End If str = amp。End IfEnd Sub在輸入框中輸入私聊信息時，先判斷是否在線，假如是在線的話直接利用已經(jīng)和對方連接的TCP控件進行發(fā)送信息。If = 1 Then 39。End IfEnd SubPrivate Sub ClientSer_DataArrival(ByVal bytesTotal As Long) str, vbString = amp。If = 1 Then 39。Private Sub ClientCli_DataArrival(ByVal bytesTotal As Long) str, vbString = amp。在listviews中點擊相應的用戶名字就可以進行私聊，在登陸的時候已經(jīng)設置好TCP控件的端口號。============================================插入聊天記錄 = amp。)) 39。 a amp。============================================插入聊天記錄 a = CStr(Now()) + Chr(10) + + : + + Chr(10) Set rs = (insert into data (tcp_data) values (39。Private Sub cmdSend_Click() If = Then MsgBox 發(fā)送內(nèi)容不能為空 Exit Sub End If $$$ + + : amp。便可以發(fā)送信息。當收到*ONLINE時，代表賬號已經(jīng)登錄。當收到*ERROR時，代表沒有這賬號。***賬號***密碼（3）當客戶端收到的服務器的協(xié)議信息是密碼和賬號是正確的時候才能進行真正的登錄。 amp。 amp。 amp。若連接上服務器則發(fā)送賬號和密碼 | amp。***賬號***密碼 DoEvents Else MsgBox 沒有服務器 End If = True End IfEnd SubPublic Sub tcpClient_Connect() If 7 Then = = DoEvents End IfEnd Sub（2）當連接成功后，發(fā)送賬號和密碼，用相關的已經(jīng)定義好協(xié)議進行封裝發(fā)送給服務器。 amp。 amp。 amp。若連接上服務器則發(fā)送賬號和密碼 | amp。檢查賬號和密碼填寫是否有空 MsgBox 請輸入賬號和密碼 Else Call tcpClient_Connect 39。點擊登陸按鈕 = False 39。若賬號和密碼填寫上沒有錯誤，進行連接服務器。（1）登陸功能：在用戶填寫相關的賬戶和密碼時，客戶端能夠發(fā)送連接客戶端要求，當，連上客戶端的時候，客戶端能夠?qū)①~號和密碼信息發(fā)送到服務器進行核對，并返回信心（2）聊天功能：在客戶端中，用戶有權選擇群聊還是與某在線用戶私聊2實驗過程（11）自加功能。基于Windows平臺建立一個基于TCP/IP協(xié)議的網(wǎng)絡通訊小應用，實驗可采用UDP或TCP實現(xiàn)。華南農(nóng)業(yè)大學理學院課程實驗（設計）報告專業(yè)年級： 11信息與計算科學 學生學號： 201130760 學生學號： 201130760 學生姓名： 學生姓名： 實驗題目： Socket應用程序設計 指導老師： 實驗時間：2013年11月1日2013年11月29日27 / 31目 錄1實驗內(nèi)容和要求 1 1 1 12實驗過程 2 2 2 2 3 4 4 4 6 8 9 10 12 13 1注冊驗證功能 19 21 213實驗結(jié)果 234討論與總結(jié) 245參考文獻 246小組分工 251實驗內(nèi)容和要求在學習完TCP/IP協(xié)議組后，要求掌握基于此協(xié)議實現(xiàn)網(wǎng)絡通信，理解TCP與UDP的不同特征以及實現(xiàn)方式。（1）能夠進行用戶管理，所有用戶必須登錄到服務器，有服務器維護在線信息；（2）IM功能：用戶登錄后能夠進行實時多方點到點短信息通信，如聊天；（3）能夠選擇要求服務器進行轉(zhuǎn)發(fā)服務；（4）能夠保存通信記錄到數(shù)據(jù)庫（SQL Server或者其他桌面型數(shù)據(jù)庫或數(shù)據(jù)文件）；（5）能進行雙方文件傳輸，能夠顯示進度；*（6）支持斷點重傳，檢查時需有功能隨時中斷傳送，并在下次啟動時能顯示重傳狀態(tài)；*（7）數(shù)據(jù)包加密；*（8）實時語音雙向傳送功能；*（9）多方通話功能；（10）界面設計要求布局合理，信息清晰。（*為選做內(nèi)容）（1）服務器能夠進行用戶管理，所有用戶必須登錄到服務器，有服務器維護在線信息；（2）IM功能：用戶登錄后能夠進行實時多方點到點短信息通信，如聊天；（3）服務器離線轉(zhuǎn)發(fā)功能；（4）客戶端保存群聊天記錄；（5）能進行雙方文件傳輸，能夠顯示進度；（10）界面設計要求布局合理，信息清晰。（3）離線聊天功能：在線的用戶可能通過服務器將信息發(fā)給離線的用戶（4）接受離線信息共能：當用戶上線時，接收其他用戶的離線信息（5）聊天記錄功能：客戶端能自動將群聊的信息保存在相應的數(shù)據(jù)庫