【正文】 功能隨時中斷傳送，并在下次啟動時能顯示重傳狀態(tài)；*（7）數(shù)據(jù)包加密；*（8）實時語音雙向傳送功能；*（9）多方通話功能；（10）界面設(shè)計要求布局合理，信息清晰。代碼如下：Private Sub Command1_Click() 39。連接服務(wù)器 DoEvents If = 7 Then 39。 *** amp。 | 39。 *** amp。 amp。協(xié)議是：當收到*時，代表登錄成功。代碼如下：If InStr(sData, *) 0 Then login = True ElseIf InStr(sData, *ERROR) 0 Then MsgBox 沒有這賬號 ElseIf InStr(sData, ERROR) 0 Then MsgBox 密碼錯誤 ElseIf InStr(sData, *ONLINE) 0 Then MsgBox 賬號已經(jīng)登錄End If（1）群聊天。 + $$$ 39。 39。 Chr(10) + CStr(Now()) + Chr(10) + + : + + Chr(10) = = Len()End Sub（2）發(fā)送私聊信息。 str = Len() 39。 str = Len() 39。假如是離線用戶的話，利用協(xié)議將封裝好的離線信息發(fā)送給服務(wù)器，在通過服務(wù)器發(fā)送給離線的用戶。 Chr(13) amp。 Chr(10) amp。離線信息設(shè)置 % + **1 + + **1 + **2 + + **2 + **$$ + str + **$$ + % DoEvents End If = amp。 outmessage Private_Chat(n). = Len(Private_Chat(n).) (n).ForeColor = vbRed (n).(1).ForeColor = vbRed (n).(2).ForeColor = vbRed End If Next Loop Until InStr(sender_where2 + 1, message, **1) = 0 End IfEnd Function（1）讀取數(shù)據(jù)庫中的聊天信息。 amp。============================================插入聊天記錄 a = CStr(Now()) + Chr(10) + ssData + Chr(10) Set rs = (insert into data (tcp_data) values (39。)) 39。.代碼如下：Public Sub check_useronline(gData As String) account_where1 = 0 IP_where1 = 0 account_where2 = 0 IP_where2 = 0 If InStr(gData, ***) = 1 Then 39。與此同時，當接收方接收到文件名和文件長度之后，就為其創(chuàng)建新的文件和數(shù)據(jù)緩沖區(qū)；然后，接收傳輸?shù)奈募?shù)據(jù)，并將其放在數(shù)據(jù)緩沖區(qū)中；最后，依次將數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)寫入新創(chuàng)建的文件中。 vbCrLf amp。首先，設(shè)置數(shù)據(jù)包的大?。ㄈ?4K），根據(jù)文件的基本信息（主要文件的長度），計算出總共需要的數(shù)據(jù)包數(shù)；然后，依次讀取同數(shù)據(jù)包一樣大小的數(shù)據(jù)到數(shù)據(jù)緩沖區(qū)中；接著，將數(shù)據(jù)緩沖區(qū)中的數(shù)據(jù)，發(fā)送到指定的計算機上；同時在另一端，建立一個數(shù)據(jù)緩沖區(qū)，緩沖區(qū)的大小要根據(jù)接收到的數(shù)據(jù)來確定，依次接收客戶端傳輸過來的數(shù)據(jù)包，并將數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)寫入相應(yīng)的文件中，這樣就很容易實現(xiàn)大文件的傳輸了，這是一種較為常用的方法（較為容易實現(xiàn)斷點續(xù)傳），不過本次采用的是一種“迭代遞歸”的思想，使用自己編寫的函數(shù)SplitFile()來稍微簡單實現(xiàn)傳輸大文件，但斷點重傳功能將受到限制，相關(guān)代碼如下：Private Function SplitFile() As Long Dim GetCount As Long If LenFile = 8192 Then GetCount = 8192 LenFile = LenFile GetCount Else GetCount = LenFile LenFile = LenFile GetCount End If VarPlus = VarPlus + GetCount = (VarPlus / ProBarLen) * 100 SplitFile = GetCountEnd FunctionPrivate Sub TCPSendFile(objWinSock As Winsock, FileNumber As Integer, SendLen As Long) Dim FileByte() As Byte, i As Long ReDim FileByte(SendLen 1) Get FileNumber, , FileByte FileByteEnd Sub至于顯示進度，在私聊和傳送文件窗體里，我們添加了VB自帶的控件progressbar，進度也根據(jù)以傳送文件的大小和總大小作簡單除法： = (VarPlus / ProBarLen) * 100來顯示，圖示效果如下:、注冊驗證功能，進入初始界面，這里winsock將初始化，得到IP地址并且設(shè)置端口等，并對客戶端管理界面進行初始化（此時該界面不顯示但卻已執(zhí)行相關(guān)操作，點擊“客戶端”界面時顯現(xiàn)）：當有客戶端請求連接服務(wù)器時，同意的話，發(fā)生”事件到達”，服務(wù)器采取機制：判斷數(shù)據(jù)種類，并采取相關(guān)操作。在客服端管理中刪除已退出客戶端的IP地址和上線記錄 tcpServer(Index).Close NumOnline = NumOnline 1 End If 39。***用戶名*** password_where1 = InStr(sData, ) password_where2 = InStr(password_where1 + 1, sData, ) user(0).uPWD = Mid(sData, password_where1 + 3, password_where2 password_where1 3) 39。具體的功能圖詳見與實現(xiàn)板塊和軟件的具體成品?？偠灾?，此次課程設(shè)計的收獲還是蠻大的，讓我們體會到一種喜悅——作品從無到有