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