通信工程畢業(yè)設計_基于socket的即時通訊軟(文件)

　

【正文】 傳輸控制協議是字節(jié)流協議。如果接收方應用程序要求數據順序一致，應用程序必須在數據到達后，校對這些數據。同樣，如果連續(xù)兩天給兩個人郵信，你也不能知道哪封信先收到。如果端口這個概念對你來說很陌生，請考慮計算機上的硬件端口。 例如， PC 機的并行打印端口稱為 LPTl 和 LPT2，串行端口稱為 COM1 和 COM2。多年來，程序員編寫 PC 程序時都假定 LPT1 表示并行打印端口 1。像 PC 程序員使用打印端口 LPT1 用于打印， Inter 程序員也對具體應用程序使用許多協議端口。 客戶機 /服務器模型將網絡應用程序分為客戶和服務器兩部分。此時，服務程序被喚醒并且為客戶提供服務，對客戶的請求做出適當的反應。這方面的一個典型例子就是提供 Inter 從域名到 IP 地址映射服務的 DNS 服務器。 當建立服務器程序時，應該將服務器程序設計成等候客戶的請求。 Socket 執(zhí)行體接著告訴傳輸層某個特定協議端口已被使用，并將其收到的所有數據傳送給 Socket API。 Socket API 中的bind()函數讓程序將一個本地地址（包括主機地址和協議端口）和一個 Socket 聯系起來。因此無連 接客戶程序必須在一個協議端口，對應答數據報進行偵聽。 長沙學院 畢業(yè)設計 (論文 ) 8 第 4 章 需求分析及開發(fā)方法 需求分析 一個即時通訊軟件應提供基于 TCP/IP 網絡的即時消息傳送、消息廣播、實時聊天等功能。 （ 4） 即使用戶不在線，也能通過服務器發(fā)送離線消息。 （ 8） 用戶下線更新 （ 9） 有權限的人可以發(fā)系統廣播通知 （ 10） 查看用戶信息 （ 11） 更改個人信息 （ 12） 開機啟動設置 （ 13） 主窗口總是浮在最上端 （ 14） 速度快，占用資源少 系統功能模塊 根據上述的需求分析，并針對個人所掌握的知識和自己畢業(yè)設計時間的限制，要做到面面俱到是不可能的，并考慮到作為局域網（校園網）聊天工具，終端用戶數量較少，我設計的通訊軟件借鑒了 、聊天室 等即時聊天工具，聊天信息采用服務器轉發(fā)方式，只要當前在線的用戶都可以接收到，當然，也實現了兩人之間私聊的功能。 生命周期法： 把一個信息系統從其提出、分析、設計和使用，直到停止使用的整個生存期視為一個生命周期。 原型法： 是系統開發(fā)者在初步了解用戶需求的基礎上，開發(fā)出能實現系統基本功能的一個原型，再根據用戶對原型使用與評價的意見，提出修改方案，修改完善原型，如此反復多次，直到得到用戶滿意的最終系統為止。為管理信息系統的開發(fā)提供了全新的思路，面向對象方法以對象為中心。 使用原型法開發(fā)大體有以下幾個步驟： （ 1） 確定系統需求。 長沙學院 畢業(yè)設計 (論文 ) 10 （ 3） 對初始原型進行需求迭代，不斷進行修正或改進，直至得到一個用戶滿意的原型，從而終止原型迭代過程。 原型法的生命周期提供了一種完整的、靈活的、近于動態(tài)的需求定義技術。 圖 原型法工作流程圖 長沙學院 畢業(yè)設計 (論文 ) 11 第 5 章 總體設計 設計思想 服務器端和客戶端需要分別設計，除了主聊天界面外，還加上了登錄界面，以便管理。在整個系統設計過程中，對客戶端和服務器端的消息到達這一事件的設計和編碼是系統的關鍵。使用 TCP 協議來實現服務器 N 客戶模式。在創(chuàng)建客戶應用程序時，必須知道服務器名或其 IP 地址（ RemoteHost 屬性）及服務器進行偵聽的端口（ RemotePort 屬性） ,然后調用 Connect 方法。建立連接后 ,任何一方計算機都可以發(fā)送、接收對方數據。決定采用 ACCESS 數據庫保存用戶的基本信息。在一個工作組級別的網絡環(huán)境中，使用 Access開發(fā)的多用戶數據庫管理系統具有傳統的 XBASE 數據庫系統所無法比擬的客戶服（ Client/Server）結構和相應的數據庫安全機制。列表的詳細內容如下： 長沙學院 畢業(yè)設計 (論文 ) 14 表 注冊信息表 列名 數據類型 說明 ID TEXT 序號 用戶名 TEXT 聊天人員的用戶名 密碼 TEXT 密碼 性別 TEXT 聊天人員性別 年齡 TEXT 年齡 個人說明 TEXT 個人說明 表 登陸信息表 列名 數據類型 說明 ID TEXT 序號 用戶名 TEXT 用戶名 密碼 TEXT 密碼 上線時間 TEXT 上線時間 IP TEXT IP 遠程端口 TEXT 遠程端口 計算機名稱 TEXT 計算機名稱 各主要窗體及核心代碼介紹 密碼模塊 為了提高軟件操作安全性，進入系統前，需要進行身份驗證，通過此窗口輸入個人信息以驗證身份。 \qk\*.mdb, vbNormal + vbDirectory) 39。實現方法是把現有的數據庫文件放入備份的文件夾里，還原的時候再將其覆蓋替換當前的數據庫文件。 \ strDestination = amp。 Nian amp。 Ri amp。 Fen amp。 \ CopyFile strSource, strDestination, False MsgBox 本地數據庫已被成功恢復！ , vbInformation + vbOKOnly, 系統提示 End If End Sub 對話框如圖 69 和 610： 圖 圖 長沙學院 畢業(yè)設計 (論文 ) 20 查看服務器信息 作為服務器需要對服務器本身運行的信息有準確的掌握，而且還記錄用戶注冊和登陸的信息。 formtime amp。 (1).Text amp。 人 amp。 vbCrLf 保存記錄以及查看記錄 對于保存的聊天和日志信息，服務器必須能夠很方便的顯示出任意一天的信息，實現快速查看。 amp。 \data\ amp。 str DoEvents Loop Close 1 If t = Then Text1 = 這一天沒 有任何聊天信息 Else Text1 = t Exit Sub 30: Close 1 Text1 = 這一天的聊天信息不存在，或文件已丟失 End Sub 在選擇日期的界面點擊任意的一天，會在 顯示選中的日期。通知的內容存放在tongz = GetSetting(即時通訊軟件服務器 , tongz, tongz)，其中 tongz 鍵值位置在 HKEY_CURRENT_USER\Software\VB and VBA Program Settings\即時通訊軟件服務器 \server。 SaveSetting 即時通訊軟件服務器 , tongz, tongz, tongz For I = 1 To maxconnext If Winsock1(I).State = sckConnected Then Winsock1(I).SendData 12| amp。 通知大家 : amp。右邊列表顯示在線名單，雙擊列表可以顯示個人資料，由群聊轉為私聊后，可以選擇選定的目標進行一對一的悄悄話。sl If = True Then = True End If End Sub Private Sub sendmsg_click() If sckConnected Then MsgBox 你還沒登陸 !, vbOKOnly + 64, 提示 ein_Click Exit Sub End If If Then 03| amp。 Text2 Text2 = End If 長沙學院 畢業(yè)設計 (論文 ) 27 End Sub Private Sub geren_Click() formactive = False = id If sckConnected Then (0) = False (2) = False = 1 Else 04| amp。 注冊窗口和個人信息窗口的界面如圖 617 和圖 618： 圖 注冊窗口 長沙學院 畢業(yè)設計 (論文 ) 30 圖 底層通訊設計 服務器端： 為了使能及時響應多個用戶 的請求，我對 winsock 控件添加了數組，也就是說，在連接上一個用戶后，自動增加一個 winsock 控件進行偵聽。在以前的 Winsock 中找到空閑的Winsock I = I + 1 DoEvents Wend If I = maxconnext Then 39。Winsock（ i）被占用 Else 39。接收 ReDim Preserve nowconnext(maxconnext + 1) nowconnext(maxconnext) = True End If End If End Sub 因為客戶端發(fā)送的每一個請求，都有個頭命令，服務器端根據這個頭命令來分辨客戶端的請求類型。 服務器可以把系統管理員發(fā)的消息及其它客戶登錄、退出、對話的信息分別傳遞給傳給客戶端。 服務器代碼如下 : Winsock1(0).LocalPort = 19。 代碼結構如下 : Private Sub WskclientDataArrival(ByVal bytesTotal AsLong) ’消息到達時接收 Dim ClientData As String Dim tou As Integer 39。 客戶端： 發(fā)送連接，是靠服務器回復的標志變量，來判別連接狀態(tài)的。當前接收端口增加 Load Winsock1(maxconnext) 39。使用現成的 Socket Winsock1(I).Accept requestID 39。 Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) On Error Resume Next Dim I As Long If Index = 0 Then 39。 vbCrLf Form_Load End Sub 點擊登陸后會顯示以下登陸窗口，用戶 ID 六位數后自動轉到密碼欄，回車即完成登陸操作。 Mid(( 1), 1, 3) amp。 Left(Right(, 7), 6) = True (1) = False (2) = False 長沙學院 畢業(yè)設計 (論文 ) 26 = False End If End Sub Private Sub Option1_Click() 39。 vbCrLf 發(fā)布通知的 界面圖如圖 ： 圖 發(fā)放通知界面圖 客戶界面 客戶機用 Winsock 控件發(fā)出信息，服務器端通過信息頭的標識分辨客戶端的要求，比如登陸、注冊、注銷、發(fā)送信息，另外客戶端還有標簽欄接收服務器發(fā)來的系統通告。 amp。 vbCrLf amp。 密碼驗證時用到的部分代碼： na = GetSetting(即時通訊軟件服務器 , server, name) pw = GetSetting(即時通訊軟件服務器 , server, password) 改新密碼時用到的部分代碼： SaveSetting 即時通訊軟件服務器 , server, name, Text3 長沙學院 畢業(yè)設計 (論文 ) 24 SaveSetting 即時通訊軟件服務器 , server, password, Text4 管理員帳號和密碼都存在本機注冊表，初始賬戶和密碼都為空。 amp。 .txt For Input As 1 Do Until EOF(1) Input 1, str t = t amp。 選擇日期的界面在類模塊已經定義了 Dim Calendar As Class1 長沙學院 畢業(yè)設計 (論文 ) 21 關鍵代碼如下： Private Sub Command1_Click() c1 = Not c1 If c1 Then Else End If End Sub Private Sub Command2_Click() On Error GoTo 30 Dim t, str As String c1 = False Open amp。 CStr(maxconnext) amp。 vbCrLf = 當前 amp。 vbCrLf = (3).Text amp。 (0).LocalIP amp。 備份數據庫嗎？ , vbExclamation + vbYesNo, 警告 ) If I vbYes T