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

　　

【正文】 想 ......................................................... 11 關鍵通信技術－ Winsock ............................................ 11 第 6 章 詳細設計 ....................................................... 13 數據庫設計 ....................................................... 13 系統數據流程圖 ............................................. 13 數據庫邏輯結構 設計 ......................................... 13 各主要窗體及核心代碼介紹 ......................................... 14 密碼模塊 ................................................... 14 數據初始化模塊 ............................................. 15 數據備份和還原模塊 ......................................... 17 查看服務器信息 ............................................. 20 保存記錄以及查看記錄 ....................................... 20 更改管理員密碼 ............................................. 23 長沙學院 畢業設計 (論文 ) IV 發布通知 ................................................... 24 客戶界面 ................................................... 25 底層通訊設計 ............................................... 30 結 論 ................................................................. 33 參考文獻 ............................................................... 35 附 錄 ................................................................. 36 致 謝 ................................................................. 37 長沙學院 畢業設計 (論文 ) 1 第 1 章 緒論 課題的來源及意義 在網絡無所不在的今天，在 Inter 上，有 、 MSN 等網上尋呼軟件，極大程度上方便了處于世界各地的友人之間的相互聯系，也使世界好像一下子縮小了，不管你在哪里，只要你上了網，打開這些軟件，就可以給你的朋友發信息，不管對方是否也同時在線，只要知道他的號碼。但是有服務器的通訊軟件，可以保存用戶的個人信息或介紹，供人查看。它之所以受到人們的青睞的主要原因有： Windows 是當今主流操作系統，而 Visual Basic 是開發 Windows 應用程序最簡單易學的語言之一； Visual Basic 引入了面向對象和事件驅動的程序設計思想，大大縮短了應用軟件的開發周期； Microsoft（微軟）公司十分重視 Visual Basic 的功能擴充，不斷地把最新技術運用到 Visual Basic 中，使之可以完成幾乎所有 Windows 應用程序的開發任務；已有越來越多的優秀軟件支持用 Visual Basic進行二次開發 [2]。在一般的面向對象程序設計語言中，對象由程序代碼和數據組成，是抽象的概念；而 Visual Basic 則是應用面向對象的程序設計方法（ OOP），把程序和數據封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。例如，命令按鈕是一個對象，當用戶單擊該按鈕時，將產生一個 “單擊 ”（ CLICK）事件，而在產生該事件時將執行一段程序，用來實現指定的操作。當原始數據變化時，可以自動更新鏈接的數據。 Access 簡介 Access 是 Office 辦 公套件中一個極為重要的組成部分。利用熟悉的 Access 用戶界面，您可以方便地利用 Jet 或 SQL Server 結構和數據創建 XML 數據或架構文檔。 IP 互連協議（ Inter Protocol），負責主機之間的傳輸數據。 TCP/IP 網絡環境下的應用程序設計是通過網絡系統編程界面 Socket 實現的， Socket 提供應用程序與系統內核之間的網絡編程接口。接收計算機重新計算校驗和，與收到的校驗和進行比較。即使發送地址是正確的，也不能保證郵遞系統不丟失你的信件 [8]。傳輸控制協議是字節流協議。同樣，如果連續兩天給兩個人郵信，你也不能知道哪封信先收到。 例如， PC 機的并行打印端口稱為 LPTl 和 LPT2，串行端口稱為 COM1 和 COM2。像 PC 程序員使用打印端口 LPT1 用于打印， Inter 程序員也對具體應用程序使用許多協議端口。此時，服務程序被喚醒并且為客戶提供服務，對客戶的請求做出適當的反應。 當建立服務器程序時，應該將服務器程序設計成等候客戶的請求。 Socket API 中的bind()函數讓程序將一個本地地址（包括主機地址和協議端口）和一個 Socket 聯系起來。 長沙學院 畢業設計 (論文 ) 8 第 4 章 需求分析及開發方法 需求分析 一個即時通訊軟件應提供基于 TCP/IP 網絡的即時消息傳送、消息廣播、實時聊天等功能。 （ 8） 用戶下線更新 （ 9） 有權限的人可以發系統廣播通知 （ 10） 查看用戶信息 （ 11） 更改個人信息 （ 12） 開機啟動設置 （ 13） 主窗口總是浮在最上端 （ 14） 速度快，占用資源少 系統功能模塊 根據上述的需求分析，并針對個人所掌握的知識和自己畢業設計時間的限制，要做到面面俱到是不可能的，并考慮到作為局域網（校園網）聊天工具，終端用戶數量較少，我設計的通訊軟件借鑒了 、聊天室 等即時聊天工具，聊天信息采用服務器轉發方式，只要當前在線的用戶都可以接收到，當然，也實現了兩人之間私聊的功能。 原型法： 是系統開發者在初步了解用戶需求的基礎上，開發出能實現系統基本功能的一個原型，再根據用戶對原型使用與評價的意見，提出修改方案，修改完善原型，如此反復多次，直到得到用戶滿意的最終系統為止。 使用原型法開發大體有以下幾個步驟： （ 1） 確定系統需求。 原型法的生命周期提供了一種完整的、靈活的、近于動態的需求定義技術。在整個系統設計過程中，對客戶端和服務器端的消息到達這一事件的設計和編碼是系統的關鍵。在創建客戶應用程序時，必須知道服務器名或其 IP 地址（ RemoteHost 屬性）及服務器進行偵聽的端口（ RemotePort 屬性） ,然后調用 Connect 方法。決定采用 ACCESS 數據庫保存用戶的基本信息。列表的詳細內容如下： 長沙學院 畢業設計 (論文 ) 14 表 注冊信息表 列名 數據類型 說明 ID TEXT 序號 用戶名 TEXT 聊天人員的用戶名 密碼 TEXT 密碼 性別 TEXT 聊天人員性別 年齡 TEXT 年齡 個人說明 TEXT 個人說明 表 登陸信息表 列名 數據類型 說明 ID TEXT 序號 用戶名 TEXT 用戶名 密碼 TEXT 密碼 上線時間 TEXT 上線時間 IP TEXT IP 遠程端口 TEXT 遠程端口 計算機名稱 TEXT 計算機名稱 各主要窗體及核心代碼介紹 密碼模塊 為了提高軟件操作安全性，進入系統前，需要進行身份驗證，通過此窗口輸入個人信息以驗證身份。實現方法是把現有的數據庫文件放入備份的文件夾里，還原的時候再將其覆蓋替換當前的數據庫文件。 Nian amp。 Fen amp。 formtime amp。 人 amp。 amp。 str DoEvents Loop Close 1 If t = Then Text1 = 這一天沒 有任何聊天信息 Else Text1 = t Exit Sub 30: Close 1 Text1 = 這一天的聊天信息不存在，或文件已丟失 End Sub 在選擇日期的界面點擊任意的一天，會在 顯示選中的日期。 SaveSetting 即時通訊軟件服務器 , tongz, tongz, tongz For I = 1 To maxconnext If Winsock1(I).State = sckConnected Then Winsock1(I).SendData 12| amp。右邊列表顯示在線名單，雙擊列表可以顯示個人資料，由群聊轉為私聊后，可以選擇選定的目標進行一對一的悄悄話。 Text2 Text2 = End If 長沙學院 畢業設計 (論文 ) 27 End Sub Private Sub geren_Click() formactive = False = id If sckConnected Then (0) = False (2) = False = 1 Else 04| amp。在以前的 Winsock 中找到空閑的Winsock I = I + 1 DoEvents Wend If I = maxconnext Then 39。接收 ReDim Preserve nowconnext(maxconnext + 1) nowconnext(maxconnext) = True End If End If End Sub 因為客戶端發送的每一個請求，都有個頭命令，服務器端根據這個頭命令來分辨客戶端的請求類型。 服務器代碼如下 : Winsock1(0).LocalPort = 19。 客戶端： 發送連接，是靠服務器回復的標志變量，來判別連接狀態的。使用現成的 Socket Winsock1(I).Accept requestID 39。 vbCrLf Form_Load End Sub 點擊登陸后會顯示以下登陸窗口，用戶 ID 六位數后自動轉到密碼欄，回車即完成登陸操作。 Left(Right(, 7), 6) = True (1) = False (2) = False 長沙學院 畢業設計 (論文 ) 26 = False End If End Sub Private Sub Option1_Click() 39。 amp。 密碼驗證時用到的部分代碼： na = GetSetting(即時通訊軟件服務器 , server, name) pw = GetSetting(即時通訊軟件服務器 , server, password) 改新密碼時用到的部分代碼： SaveSetting 即時通訊軟件服務器 , server, name, Text3 長沙學院 畢業設計 (論文 ) 24 SaveSetting 即時通訊軟件服務器 , server, password, Text4 管理員帳號和密碼都存在本機注冊表，初始賬戶和密碼都為空。 .txt For Input As 1 Do Until EOF(1) Input 1, str t = t amp。 CStr(maxconnext) amp。 vbCrLf = (3).Text amp。 備份數據庫嗎？ , vbExclamation + vbYesNo, 警告 ) If I vbYes Then Exit Sub Else strSource = amp。 Yue amp。 \ I = MsgBox(您確定要備份本地數據庫嗎？ , vbExclamation + vbYesNo, 警告 ) If I vbYes Then 39。登陸界面和登陸流程圖如下： 圖 長沙學院 畢業設計 (論文 ) 15 圖 登陸流程圖 數據初始化模塊 數據庫 需要初始化的功能，實現清空數據庫的功能，實現的方法就是用原始的數據庫文件覆蓋替換現有的數據庫文件。作為一種功能強大的 MIS 系統開發工具，它具有界面友好，易學易用