通信工程畢業設計_基于socket的即時通訊軟(存儲版)

　　

【正文】 CrLf 發布通知的 界面圖如圖 ： 圖 發放通知界面圖 客戶界面 客戶機用 Winsock 控件發出信息，服務器端通過信息頭的標識分辨客戶端的要求，比如登陸、注冊、注銷、發送信息，另外客戶端還有標簽欄接收服務器發來的系統通告。 Mid(( 1), 1, 3) amp。 Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) On Error Resume Next Dim I As Long If Index = 0 Then 39。當前接收端口增加 Load Winsock1(maxconnext) 39。 代碼結構如下 : Private Sub WskclientDataArrival(ByVal bytesTotal AsLong) ’消息到達時接收 Dim ClientData As String Dim tou As Integer 39。 服務器可以把系統管理員發的消息及其它客戶登錄、退出、對話的信息分別傳遞給傳給客戶端。Winsock（ i）被占用 Else 39。 注冊窗口和個人信息窗口的界面如圖 617 和圖 618： 圖 注冊窗口 長沙學院 畢業設計 (論文 ) 30 圖 底層通訊設計 服務器端： 為了使能及時響應多個用戶 的請求，我對 winsock 控件添加了數組，也就是說，在連接上一個用戶后，自動增加一個 winsock 控件進行偵聽。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。 通知大家 : amp。通知的內容存放在tongz = GetSetting(即時通訊軟件服務器 , tongz, tongz)，其中 tongz 鍵值位置在 HKEY_CURRENT_USER\Software\VB and VBA Program Settings\即時通訊軟件服務器 \server。 \data\ amp。 vbCrLf 保存記錄以及查看記錄 對于保存的聊天和日志信息，服務器必須能夠很方便的顯示出任意一天的信息，實現快速查看。 (1).Text amp。 \ CopyFile strSource, strDestination, False MsgBox 本地數據庫已被成功恢復！ , vbInformation + vbOKOnly, 系統提示 End If End Sub 對話框如圖 69 和 610： 圖 圖 長沙學院 畢業設計 (論文 ) 20 查看服務器信息 作為服務器需要對服務器本身運行的信息有準確的掌握，而且還記錄用戶注冊和登陸的信息。 Ri amp。 \ strDestination = amp。 \qk\*.mdb, vbNormal + vbDirectory) 39。在一個工作組級別的網絡環境中，使用 Access開發的多用戶數據庫管理系統具有傳統的 XBASE 數據庫系統所無法比擬的客戶服（ Client/Server）結構和相應的數據庫安全機制。建立連接后 ,任何一方計算機都可以發送、接收對方數據。使用 TCP 協議來實現服務器 N 客戶模式。 圖 原型法工作流程圖 長沙學院 畢業設計 (論文 ) 11 第 5 章 總體設計 設計思想 服務器端和客戶端需要分別設計，除了主聊天界面外，還加上了登錄界面，以便管理。 長沙學院 畢業設計 (論文 ) 10 （ 3） 對初始原型進行需求迭代，不斷進行修正或改進，直至得到一個用戶滿意的原型，從而終止原型迭代過程。為管理信息系統的開發提供了全新的思路，面向對象方法以對象為中心。 生命周期法： 把一個信息系統從其提出、分析、設計和使用，直到停止使用的整個生存期視為一個生命周期。 （ 4） 即使用戶不在線，也能通過服務器發送離線消息。因此無連 接客戶程序必須在一個協議端口，對應答數據報進行偵聽。 Socket 執行體接著告訴傳輸層某個特定協議端口已被使用，并將其收到的所有數據傳送給 Socket API。這方面的一個典型例子就是提供 Inter 從域名到 IP 地址映射服務的 DNS 服務器。 客戶機 /服務器模型將網絡應用程序分為客戶和服務器兩部分。多年來，程序員編寫 PC 程序時都假定 LPT1 表示并行打印端口 1。如果端口這個概念對你來說很陌生，請考慮計算機上的硬件端口。如果接收方應用程序要求數據順序一致，應用程序必須在數據到達后，校對這些數據。使用數據報的協議將信息視作一個獨立長沙學院 畢業設計 (論文 ) 6 單元進行傳輸。協議試圖傳輸數據，但不保證成功。首先，為了確保數據正確傳送，協議在通信應用程序之間互相交換確認信息。 ICMP 互連網控制報文協議（ Inter Control Message Protocol），處理主機間的差錯和傳送控制。 通過簡化架構和樣式表的創建和應用， Access 還提供了便于控制數據的方法。 后來微軟公司通過大量地改進，將 Access 的新版本功能變得更加強大。利用 OLE 技術，可以方便地建立復合式文檔（ pound document），這種文檔由來自多個不同應用程序的對象組成，文檔中的每個對象都與原來的應用程序相聯系，并可執行與原來應用程序完全相同的操作 [5]。同時， Visual Basic 還能直接編輯和訪問其他外部數據庫，如 DBase， FoxPro， Paradox等，這些數據庫格式都可以用 Visual Basic 編輯和處理。 Visual Basic 是解釋型語言，在輸入代碼的同時，解釋系統將高級語言分解翻譯成計算機可以識別的機器指令 ，并判斷每個語句的語法錯誤。 Visual Basic 提供了可視化設計工具，把 Windows 界面設計的復雜性 “封裝 ”起來，開發人員不必為界面設計而編寫大量程序代碼。軟件的通訊協議是 TCP/IP 協議，并且采用 socket 套接字和客戶端 /服務器端（ Client/Server） 網絡模型。于是，就想到做一個適用于局域網 (校園網 )的聊天工具，在局域網里，我們可以通過它實現局域網內方便的聯絡、進行消息的發布。客戶端具有登陸，注冊，修改個人信息，聊天等功能。過去的種種陳舊的通訊方式，已經不能滿足現代生活的需要。 現如今，很多的企業 、機關、 學校都紛紛建立起自己的局域網。t meet the need of modern life. Instant messenger software as a convenient contact between the practical tools brought great convenience to our study and work, greatly improving the efficiency of work and study. Because of its friendly outward appearance, the formidable function, the use convenience, the relation prompt and so on the characteristic wins modern people39。 課題的目的 現在也有很多在局域網上不使用服務器的通訊軟件，比如飛鴿傳書，這種軟件小巧且方便，也能解決一部分問題。 長沙學院 畢業設計 (論文 ) 2 第 2 章 開發工具介紹 VB 簡介 Visual Basic 是一個功能強大的應用程序開發工具，在世界范圍內得到了廣泛的 應用。 版以后的 Visual Basic 支持面向對象的程序設計，但它與一般的面向對象的程序設計語言（ C++）不完全相同。一個對象可能會產生多個事件，每個事件都可以通過一段程序來響應。 利用動態數據交換（ Dynamic Data Exchange）技術，可以把一種應用程序中的數據動態地鏈接到另一種應用程序中，使兩種完全不同的應用程序建立起一條動態數據鏈路。此外，通過動態鏈接庫，還可以調用 Windows 應用程序接口（ API）函數，實現 SDK 所具有的功能 [6]。 Microsoft Access 2021 提供有功能強大而直觀的 XML 數據共享功能，而無須考慮平臺、數據格式、協議、架構或商務規則之間的差異。 長沙學院 畢業設計 (論文 ) 5 第 3 章 網絡通訊程序的設計原理 TCP/IP 協議 TCP/IP 是國際互聯網所采用進行網際互連的通信協議。 TCP/IP 協議的核心是傳輸層協議（ TCP、 UDP）、網絡層協議（ IP）和物理接口層，這三層通常在操作系統的內核中實現。其次，為了確保傳輸的數據有效，可靠協議在每次傳輸時，都包含一個或更多的校驗和（ CRC）。如果發送地址是錯誤的，由于郵遞系統不能將信退回給你，所以你就不知道信件有沒有送到。連接的接收方可以按每次 20 字節讀數據 (要讀 5 次 )。如果你在同一天給同一個人郵寄兩封信，你無 法知道那個人先收到那封信。 PC 機給它的端口命名和編號。通用口分配是特定應用程序廣泛使用的一個協議端口。服務程序通常在一個眾所周知的地址監聽對服務的請求，也就是說，服務進程一直處于休眠狀態，直到一個客戶程序提出了請求長沙學院 畢業設計 (論文 ) 7 信息。這些術語進一步描述了與網絡連接、協議可靠性以及數據服務有關的協議特性。同樣，由于無連接客戶程序沒有和遠地主機建立直接連接，所以它也必須對協議端口進行偵 聽，以便接收以對它服務請求產生的數據報應答。 Socket執行體處理傳輸層內 UDP 軟件模塊和客戶程序之間的接口 [9]。 （ 7） 用戶上線通知。適用于開發需求較 明確固定的信息系統。本 即時通訊 軟件采用的是原型法?？疾煊脩粜录尤氲男枨笮畔⒑徒M成成分的嚴格說明信息，看其對原型 效果的影響，是否影響到原型的有效性，如果導致原型失敗，應加以修正和改進。客戶端只需一個 Winsock 控件，應具有隨時連接、斷開服務器的功能，也應具有對接收到的信息做出正確分析、處理的能力。 利用 TCP 協議通訊必須分別建立客戶應用程序和服務器應用程序。 Winsock 控件屬性： Protocol∥ 值為 sckTCPProtocol 時使用 TCP/ IP 協議 ,sckUDPProtocol 使用 UDP 協議 長沙學院 畢業設計 (論文 ) 12 RemoteHost ∥ 準備連接遠程機的 IP 地址 RemotePort ∥ 連接遠程機的 IP 端口號 LocalPort ∥ 本地機 IP 端口號 Winsock 控件方法 : Connect ∥ 申請連接遠程機 Listen ∥ 設置監聽 Accept ∥ 建立實際連接 Senddata ∥ 發送數據 Getdata ∥ 接收數據 (用文本框接收時應加上參數 Vbstring) Close ∥ 關閉連接 Winsock 控件事件 : Connectionrequest ∥ 一方請求連接時另一方產生 Connect ∥ 一方接受連接時另一方產生 Close ∥ 一方關閉連接時另一方產生 DataArrival ∥ 一方發送數據另一方產生 Error ∥ 請求連接失敗時產生 長沙學院 畢業設計 (論文 ) 13 第 6 章 詳細設計 數據庫設計 本系統采用的 Access 數據庫是 Microsoft公司始于 1994年發表的微機數據庫管理系統。 圖 數據庫邏輯結構設計 根據系統的需要，設計 2 個數據表來存放用戶信息，數據庫中這兩個表的名稱分別為 BACK 和 DATA。 \ CopyFile strSource, strDestination, False MsgBox 數據初始化完畢，請按 “確定 ”返回 , vbInformation End If 界面圖如下： 圖 長沙學院 畢業設計 (論文 ) 17 圖 圖 數據備份和還原模塊 數據需要定期備份，并且具有還原的功能，以保證數據的穩定性，所以數據備份還原的模塊是必須有的。 \) If a = 0 Then MsgBox 數據庫文件出錯，請查看 配置是否正確 : End ServerName = Left$(str_tem, Len(Trim$(str_tem)) 1) Nian