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