農(nóng)業(yè)大學(xué)計(jì)算機(jī)網(wǎng)絡(luò)課程設(shè)計(jì)報(bào)告-預(yù)覽頁(yè)
【正文】 功能隨時(shí)中斷傳送，并在下次啟動(dòng)時(shí)能顯示重傳狀態(tài)；*（7）數(shù)據(jù)包加密；*（8）實(shí)時(shí)語(yǔ)音雙向傳送功能；*（9）多方通話功能；（10）界面設(shè)計(jì)要求布局合理，信息清晰。代碼如下：Private Sub Command1_Click() 39。連接服務(wù)器 DoEvents If = 7 Then 39。 *** amp。 | 39。 *** amp。 amp。協(xié)議是：當(dāng)收到*時(shí)，代表登錄成功。代碼如下：If InStr(sData, *) 0 Then login = True ElseIf InStr(sData, *ERROR) 0 Then MsgBox 沒(méi)有這賬號(hào) ElseIf InStr(sData, ERROR) 0 Then MsgBox 密碼錯(cuò)誤 ElseIf InStr(sData, *ONLINE) 0 Then MsgBox 賬號(hào)已經(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ù)器，在通過(guò)服務(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ù)庫(kù)中的聊天信息。 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。與此同時(shí)，當(dāng)接收方接收到文件名和文件長(zhǎng)度之后，就為其創(chuàng)建新的文件和數(shù)據(jù)緩沖區(qū)；然后，接收傳輸?shù)奈募?shù)據(jù)，并將其放在數(shù)據(jù)緩沖區(qū)中；最后，依次將數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)寫(xiě)入新創(chuàng)建的文件中。 vbCrLf amp。首先，設(shè)置數(shù)據(jù)包的大?。ㄈ?4K），根據(jù)文件的基本信息（主要文件的長(zhǎng)度），計(jì)算出總共需要的數(shù)據(jù)包數(shù)；然后，依次讀取同數(shù)據(jù)包一樣大小的數(shù)據(jù)到數(shù)據(jù)緩沖區(qū)中；接著，將數(shù)據(jù)緩沖區(qū)中的數(shù)據(jù)，發(fā)送到指定的計(jì)算機(jī)上；同時(shí)在另一端，建立一個(gè)數(shù)據(jù)緩沖區(qū)，緩沖區(qū)的大小要根據(jù)接收到的數(shù)據(jù)來(lái)確定，依次接收客戶端傳輸過(guò)來(lái)的數(shù)據(jù)包，并將數(shù)據(jù)緩沖區(qū)的數(shù)據(jù)寫(xiě)入相應(yīng)的文件中，這樣就很容易實(shí)現(xiàn)大文件的傳輸了，這是一種較為常用的方法（較為容易實(shí)現(xiàn)斷點(diǎn)續(xù)傳），不過(guò)本次采用的是一種“迭代遞歸”的思想，使用自己編寫(xiě)的函數(shù)SplitFile()來(lái)稍微簡(jiǎn)單實(shí)現(xiàn)傳輸大文件，但斷點(diǎ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至于顯示進(jìn)度，在私聊和傳送文件窗體里，我們添加了VB自帶的控件progressbar，進(jìn)度也根據(jù)以傳送文件的大小和總大小作簡(jiǎn)單除法： = (VarPlus / ProBarLen) * 100來(lái)顯示，圖示效果如下:、注冊(cè)驗(yàn)證功能，進(jìn)入初始界面，這里winsock將初始化，得到IP地址并且設(shè)置端口等，并對(duì)客戶端管理界面進(jìn)行初始化（此時(shí)該界面不顯示但卻已執(zhí)行相關(guān)操作，點(diǎn)擊“客戶端”界面時(shí)顯現(xiàn)）：當(dāng)有客戶端請(qǐng)求連接服務(wù)器時(shí)，同意的話，發(fā)生”事件到達(dá)”，服務(wù)器采取機(jī)制：判斷數(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。具體的功能圖詳見(jiàn)與實(shí)現(xiàn)板塊和軟件的具體成品。總而言之，此次課程設(shè)計(jì)的收獲還是蠻大的，讓我們體會(huì)到一種喜悅——作品從無(wú)到有
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1