【正文】 頭命令 ClientData, vbString tou = Val(Left(ClientData, 2)) Select Case tou Case 1 ’代碼省略 Case 2 ’代碼省略 ?? End Select 長沙學院 畢業(yè)設(shè)計 (論文 ) 32 End Sub 服務器和客戶端之間的連接： 其中 winsock 控件需要正確設(shè)置服務器的 IP 地址 (這里仍假設(shè)為本機 ) ,設(shè)置服務器端口為客戶端中所 要求的遠程端口號 , 這樣才能保證通訊。發(fā)送一個數(shù)據(jù)，等待響應信息的回來，客戶端是通過服務器回復信息的頭命令，判定消息類型。生成新的 Winsock Winsock1(maxconnext).LocalPort = 0 Winsock1(maxconnext).Accept requestID 39。接收 長沙學院 畢業(yè)設(shè)計 (論文 ) 31 nowconnext(I) = True 39。主 Winsock—— Winsock(0)發(fā)生消息 I = 1 While I = maxconnext And nowconnext(I) 39。 登陸窗口如圖 ： 長沙學院 畢業(yè)設(shè)計 (論文 ) 29 圖 注冊窗口和個人信息窗口也顯示在下面了，通過注冊界面可以自定義個人信息，完成注冊并且用自己隨機獲取的 ID 號進行登陸，登陸后可以通過雙擊在線名單的某一行，查看對應的人員信息。 | amp。ql If = True Then = False = 0 End If End Sub Private Sub Option2_Click() 39。 標簽欄接收并顯示服務器發(fā)來的通告信息。 Time amp。 你要通知什么事情 ?, 通知 , tongz) If Trim(tongz) = Then tongz = 歡迎你 使用本軟件。 鍵值位置： HKEY_CURRENT_USER\Software\VB and VBA Program Settings\即時通訊軟件服務器\server 更改密碼的界面見圖 ： 圖 更改密碼的界面圖 發(fā)布通知 發(fā)布通告是在菜單欄的工具里，點擊即可發(fā)布你所輸入的信息。 .txt For Input As 1 Do Until EOF(1) Input 1, str t = t amp。 str DoEvents Loop Close 1 If t = Then Text1 = 這一天沒有任何日志信息 Else Text1 = t Exit Sub 30: Close 1 Text1 = 這一天的日志信息不存在，或文件已丟失 End Sub Private Sub Command3_Click() On Error GoTo 30 Dim t, str As String c1 = False 長沙學院 畢業(yè)設(shè)計 (論文 ) 22 Open amp。 \data\ amp。 人 amp。 (2).Text amp。 vbCrLf = 當前 amp。 vbCrLf = 程序是 amp。 \bat\ strDestination = amp。 時 amp。 月 amp。 \) If a = 0 Then MsgBox 數(shù)據(jù)庫文件出錯，請查看 配置是否正確 : End ServerName = Left$(str_tem, Len(Trim$(str_tem)) 1) Nian = Mid(ServerName, 1, 4) Yue = Mid(ServerName, 5, 2) Ri = Mid(ServerName, 7, 2) Shi = Mid(ServerName, 9, 2) Fen = Mid(ServerName, 11, 2) I = MsgBox(數(shù)據(jù)庫恢復將會覆蓋當前數(shù)據(jù)庫，你恢復到 amp。這里點擊的是 “no Exit Sub Else strSource = amp。 \ CopyFile strSource, strDestination, False MsgBox 數(shù)據(jù)初始化完畢，請按 “確定 ”返回 , vbInformation End If 界面圖如下： 圖 長沙學院 畢業(yè)設(shè)計 (論文 ) 17 圖 圖 數(shù)據(jù)備份和還原模塊 數(shù)據(jù)需要定期備份，并且具有還原的功能，以保證數(shù)據(jù)的穩(wěn)定性，所以數(shù)據(jù)備份還原的模塊是必須有的。 關(guān)鍵程序代碼所示： FileNames = Dir( amp。 圖 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 根據(jù)系統(tǒng)的需要，設(shè)計 2 個數(shù)據(jù)表來存放用戶信息，數(shù)據(jù)庫中這兩個表的名稱分別為 BACK 和 DATA。 Access 具有較獨特的優(yōu)勢 提供了更強大的數(shù)據(jù)組織 ,用戶管理 ,查詢檢索、數(shù)據(jù)排序及數(shù)據(jù)打印等功能。 Winsock 控件屬性： Protocol∥ 值為 sckTCPProtocol 時使用 TCP/ IP 協(xié)議 ,sckUDPProtocol 使用 UDP 協(xié)議 長沙學院 畢業(yè)設(shè)計 (論文 ) 12 RemoteHost ∥ 準備連接遠程機的 IP 地址 RemotePort ∥ 連接遠程機的 IP 端口號 LocalPort ∥ 本地機 IP 端口號 Winsock 控件方法 : Connect ∥ 申請連接遠程機 Listen ∥ 設(shè)置監(jiān)聽 Accept ∥ 建立實際連接 Senddata ∥ 發(fā)送數(shù)據(jù) Getdata ∥ 接收數(shù)據(jù) (用文本框接收時應加上參數(shù) Vbstring) Close ∥ 關(guān)閉連接 Winsock 控件事件 : Connectionrequest ∥ 一方請求連接時另一方產(chǎn)生 Connect ∥ 一方接受連接時另一方產(chǎn)生 Close ∥ 一方關(guān)閉連接時另一方產(chǎn)生 DataArrival ∥ 一方發(fā)送數(shù)據(jù)另一方產(chǎn)生 Error ∥ 請求連接失敗時產(chǎn)生 長沙學院 畢業(yè)設(shè)計 (論文 ) 13 第 6 章 詳細設(shè)計 數(shù)據(jù)庫設(shè)計 本系統(tǒng)采用的 Access 數(shù)據(jù)庫是 Microsoft公司始于 1994年發(fā)表的微機數(shù)據(jù)庫管理系統(tǒng)。為了完成連接，可以在 ConnectionRequest 事件中調(diào)用Accept 方法。 利用 TCP 協(xié)議通訊必須分別建立客戶應用程序和服務器應用程序。 Winsock 控件可以使用兩種協(xié)議： TCP 協(xié)議和 UDP 協(xié)議。客戶端只需一個 Winsock 控件，應具有隨時連接、斷開服務器的功能，也應具有對接收到的信息做出正確分析、處理的能力。它可以綜合用戶、領(lǐng)導和原型開發(fā)人員的各方需求 [10]?？疾煊脩粜录尤氲男枨笮畔⒑徒M成成分的嚴格說明信息，看其對原型 效果的影響，是否影響到原型的有效性，如果導致原型失敗，應加以修正和改進。包括確定需求和開發(fā)工作模型，例如屏幕格式、功能菜單、報表格式以及對關(guān)鍵數(shù)據(jù)和功能的說明等。本 即時通訊 軟件采用的是原型法。 面向?qū)ο蠓ǎ?以類，類的繼承，聚集等概念描述客觀事物以及聯(lián)系。適用于開發(fā)需求較 明確固定的信息系統(tǒng)。 系統(tǒng)功能需求圖 這個即時通訊軟件系統(tǒng)包括服務器端和客戶端，服務器端有聊天記錄、系統(tǒng)設(shè)置、發(fā)布通告、數(shù)據(jù)庫備份還原初始化、置頂?shù)墓δ?，客戶端要求有登陸、注冊、聊天和修改查看個人信息的功能，系統(tǒng)功能的需求圖如下： 長沙學院 畢業(yè)設(shè)計 (論文 ) 9 圖 系統(tǒng) 功能需求圖 開發(fā)方法介紹 目前比較成熟的信息系統(tǒng)開發(fā)方法有：生命周期法、原型法、面向?qū)ο蠓ǖ取? （ 7） 用戶上線通知。 （ 3） 可以同時發(fā)送一個消息給所有人。 Socket執(zhí)行體處理傳輸層內(nèi) UDP 軟件模塊和客戶程序之間的接口 [9]。無連接客戶程序使用數(shù)據(jù)報發(fā)送網(wǎng)絡(luò)服務請求，它不建立點到點連接。同樣，由于無連接客戶程序沒有和遠地主機建立直接連接，所以它也必須對協(xié)議端口進行偵 聽，以便接收以對它服務請求產(chǎn)生的數(shù)據(jù)報應答。也就是說，程序告訴 Socket 執(zhí)行體使用哪一個協(xié)議端口進行數(shù)據(jù)傳送。這些術(shù)語進一步描述了與網(wǎng)絡(luò)連接、協(xié)議可靠性以及數(shù)據(jù)服務有關(guān)的協(xié)議特性。但是，也可以設(shè)計同時完成這兩種功能的程序，例如，一些服務器程序如果不能完成一個服務請求時，它將轉(zhuǎn)而充當客戶程序，向其它服務器程序請求信息 。服務程序通常在一個眾所周知的地址監(jiān)聽對服務的請求，也就是說，服務進程一直處于休眠狀態(tài)，直到一個客戶程序提出了請求長沙學院 畢業(yè)設(shè)計 (論文 ) 7 信息。 客戶機 /服務器模型 客戶機 /服務器（ C/S）模型是一種網(wǎng)絡(luò)模型，它并不是定義了網(wǎng)絡(luò)的層次結(jié)構(gòu)，而是描述了一種網(wǎng)絡(luò)程序運行的方式。通用口分配是特定應用程序廣泛使用的一個協(xié)議端口。成千的 PC 機應用程序使用此方案。 PC 機給它的端口命名和編號。 IP 數(shù)據(jù)報保存目的和源 IP 地址，同樣傳輸協(xié)議也保存源和目的端口號。如果你在同一天給同一個人郵寄兩封信，你無 法知道那個人先收到那封信。相比之下，傳輸?shù)酵荒康牡氐亩鄠€數(shù)據(jù)報可能不會按發(fā)送順序到達。連接的接收方可以按每次 20 字節(jié)讀數(shù)據(jù) (要讀 5 次 )。協(xié)議不管要求發(fā)送或接收數(shù)據(jù)的長度和傳送數(shù)目，只是將數(shù)據(jù)看作一個簡單的字節(jié)串流。如果發(fā)送地址是錯誤的，由于郵遞系統(tǒng)不能將信退回給你，所以你就不知道信件有沒有送到。相比之下，不可靠協(xié)議不能確保數(shù)據(jù)正確傳輸。其次，為了確保傳輸?shù)臄?shù)據(jù)有效，可靠協(xié)議在每次傳輸時，都包含一個或更多的校驗和（ CRC）?？煽總鬏敯◣讉€特征。 TCP/IP 協(xié)議的核心是傳輸層協(xié)議（ TCP、 UDP）、網(wǎng)絡(luò)層協(xié)議（ IP）和物理接口層，這三層通常在操作系統(tǒng)的內(nèi)核中實現(xiàn)。這個協(xié)議組包括幾種工作在不同層次上的網(wǎng) 絡(luò)協(xié)議， UDP 用戶數(shù)據(jù)報協(xié)議（ User Datagram Protocol），提供給用戶進程的無連接協(xié)議，也負責在應用程序之間無連接傳遞數(shù)據(jù)，但不執(zhí)行正確性檢查。 長沙學院 畢業(yè)設(shè)計 (論文 ) 5 第 3 章 網(wǎng)絡(luò)通訊程序的設(shè)計原理 TCP/IP 協(xié)議 TCP/IP 是國際互聯(lián)網(wǎng)所采用進行網(wǎng)際互連的通信協(xié)議。由于這些源將 XML 用作自己的數(shù)據(jù)交換格式，因此可以在 Access 中創(chuàng)建一系列聚合查詢，以將該數(shù)據(jù)拉入視圖中，然后利用這些視圖設(shè)計窗體和報表。 Microsoft Access 2021 提供有功能強大而直觀的 XML 數(shù)據(jù)共享功能，而無須考慮平臺、數(shù)據(jù)格式、協(xié)議、架構(gòu)或商務規(guī)則之間的差異。自從 1992年開始銷售以來， Access 已經(jīng)賣出了超過 6000 萬份，現(xiàn)在它已經(jīng)成為世界上最流行的桌面數(shù)據(jù)庫管理系統(tǒng)。此外，通過動態(tài)鏈接庫，還可以調(diào)用 Windows 應用程序接口（ API）函數(shù)，實現(xiàn) SDK 所具有的功能 [6]。 OLE 技術(shù)是 Microsoft 公司對象技術(shù)的戰(zhàn)略，它把多個應用程序合為一體，將每個應用程序看作是一個對象進行鏈接和嵌入，是一種應用程序一體化的技術(shù)。 利用動態(tài)數(shù)據(jù)交換（ Dynamic Data Exchange）技術(shù)，可以把一種應用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應用程序中，使兩種完全不同的應用程序建立起一條動態(tài)數(shù)據(jù)鏈路。 Visual Basic 具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應。 Visual Basic 語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調(diào)試器和編譯器。 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言（ C++）不完全相同。有時候，這種編程 編譯 修改的操作需要反復多次，大大影響了軟件開發(fā)效率。 長沙學院 畢業(yè)設(shè)計 (論文 ) 2 第 2 章 開發(fā)工具介紹 VB 簡介 Visual Basic 是一個功能強大的應用程序開發(fā)工具，在世界范圍內(nèi)得到了廣泛的 應用。 課題的內(nèi)容 這個基于 socket 技術(shù) 的即時通訊軟件是基于 Visual Basic 平臺和 Access 數(shù)據(jù)庫設(shè)計的 。 課題的目的 現(xiàn)在也有很多在局域網(wǎng)上不使用服務器的通訊軟件，比如飛鴿傳書，這種軟件小巧且方便，也能解決一部分問題。首先，在局域網(wǎng)里的網(wǎng)上鄰居里，只能看到機器名，不清楚對方是誰，也不知道對方機器里有什么資源可以共享，而且當局域網(wǎng)內(nèi)的機器很多時，這種方式更加麻煩。t meet the need of modern life. Instant messenger software as a convenient contact between the practic