通信工程畢業設計_基于socket的即時通訊軟-免費閱讀

　　

【正文】 為了能正確接收并區分這些信息 ,系統采用了信息前加不同的首字符的方法 ，也就是前文所說的頭命令， 從而有效地解決了客戶端的接收問題。在當前裝載的 Socket 中沒發現有用戶離開 maxconnext = maxconnext + 1 39。發送數據使用的是多個端口，設置數組控件會使程序具有很大的靈活性，發送端口會自動定義，而且不重復使用同一端口，所以端口是多少都無所謂，這不是我們需要關心的，在某用戶斷開連接時候，空閑的 winsock 還可以接收新的用戶。 Text2 Text2 = Else If = 無 Or Left(Right(, 7), 6) = id Or = Then = 0: MsgBox 私聊對象錯誤 , vbOKOnly + 64, 提示 : Exit Sub 07| amp。 tongz amp。 關鍵核心代碼介紹： Dim I As Integer tongz = InputBox(vbCrLf amp。 amp。 其中“選擇日期”是 mand1，“日志信息”是 mand2，“聊天信息”是 mand3。 人 amp。點擊文件菜單的查看服務器信息按鈕就可以顯示以下的窗口，如圖 ： 圖 服務器信息界面圖 關鍵代碼如下： = 本機 IP 地址是 : amp。 日 amp。 \bat\ CopyFile strSource, strDestination, False MsgBox 本地數據庫已被成功備份到當前程序所在文件夾的 bat 子文件夾中！！ , vbInformation + vbOKOnly, 系統提示 End If Exit Sub 長沙學院 畢業設計 (論文 ) 18 finish: MsgBox 本地數據庫備份失敗！ , vbOKOnly + vbInformation, 提示 圖 數據庫備份后被保存到程序鎖在文件夾的 BAT 子文件夾中，如圖所示： 圖 數據還原關鍵程序代碼： Dim strSource, strDestination As String Dim I As Integer Dim FileNames As String Dim ServerName As String Dim Nian As String Dim Yue As String Dim Ri As String Dim Shi As String Dim Fen As String FileNames = Dir( amp。 If FileNames = Then MsgBox 數據初始化失敗 , vbInformation Exit Sub End If Dim a As Long 長沙學院 畢業設計 (論文 ) 16 Dim str_tem As String Dim str As String Dim rs As Dim intAnswer As Integer intAnswer = MsgBox(真的要初始化數據嗎？請確認！ , vbOKCancel + vbQuestion, 確認框 ) If intAnswer = vbOK Then strSource = amp。 系統數據流程圖 數據流圖 (Data Flow Diagram,簡稱 DFD)是新系統邏輯模型的主要組成部分，它可以反映出系統的主要功能、系統與外部環境見的輸入輸出、系統內部的處理、數據傳送、數據存儲等的情況。如果要發送數據，需調用 SendData 方法。 UDP 可以實現點對點無服務器通訊。作為即時通訊軟件系統，客戶端信息全部來 自于服務器，服務器端能實時掌握所有客戶登錄、退出、對話情況，并能實時轉發、廣播給相應客戶。 （ 4） 如果需要，可寫出系統必要成分的嚴格、詳細的說明。其特征主要有模塊性，繼承性和類比性，動態連接性。整個生命周期劃分為五個主要工作階段：可行性分析階段、系統分析階段、系統設計階段、系統實施階段和系統運行、維護與評價階段。 （ 5） 提供消息、聊天的歷史記錄，方便對信息的查看和管理。與服務器程序一樣，無連接客戶程序也使用 bind()函數讓 Socket 執行體登記協議端口。 使用無連接協議的程序和使用面向連接協議的服務器程序之間的主要相似之處是它們都必須對一個協議端口進行偵聽。 為了充分理解 TCP/IP 協議族，必須理解幾個重要術語。客戶方對服務器方發送信息請求，服務器方對其做出相應回答，提供服務。同樣，程序員將每個 Inter 協議端口與一個特定的應用程序和功能聯系在一起。你可能編寫過往硬件端口送數據的程序。用戶數據報協議和互連網協議使用數據報傳輸數據。協議單獨發送每個數據報 ——數據報之間不相互依賴。而且，不可靠協議在傳輸失敗后，并不通知發送方應用程序 。也就是說，程序每次發送一個報文時，都期望對方發送一個相 當于說： “我得到這個報文 ”的確認信息。ARP 地址解析協議（ Address Resolution Protocol），負責將網絡層地址轉換成鏈路層地址。Access 可通過一種標準一致的方式，便捷地描述豐富的結構化 XML 數據，同時也便于與其他應用程序間實現數據傳輸。不管是處理公司的客戶訂單數據；管理自己的個人通訊錄；還是大量科研數據的記錄和處理，人們都可以利 用它來解決大量數據的管理工作。 Visual Basic 是一種高級程序設計 語言，不具備低級語言的功能，對訪問機器硬件的長沙學院 畢業設計 (論文 ) 4 操作不太容易實現。 Visual Basic 提供開放式數據連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網絡數據庫，如 SQL Server， Oracle 等。在設計 Visual Basic 程序的過長沙學院 畢業設計 (論文 ) 3 程中，隨時可以運行程序，而在整個程序設計好之后，可以編譯生成可執行文件（ EXE），脫離 Visual Basic 環境，直接在 Windows 環境下運行，直接方便了通訊軟件的獨立運行。只需要按設計要求的屏幕布局，用系統提供的工具，在屏幕上畫出各種 “部件 ”，即圖形對象，并設置這些圖形對象的屬性。采用原型法設計可以使設計過程由淺入深，方便以后在功能上拓展軟件。在學校的校園網里，這軟件可以起到方便同學之間、教師之間、師生之間相互聯絡的作用。 關鍵詞： VB， Winsock， Access， 即時 通訊軟件 長沙學院 畢業設計 (論文 ) II ABSTRACT In recent years, along with the fast development of puter technology, especially the development of puter work, the life of people get a plete change, people can use more convenient and more practical work munication software with very low price, even no money. Now, there are kinds of online service system,which have changed people39。即時通訊軟件作為一種方便人與人之間聯系的實用工具應運而生，為我們的學習和工作，帶來了極大的方便，很大程度的提高了學習和工作效率。由于即時通訊軟件的外觀友好、使用非常方便，而且使用者之間的通訊是即時互 動的特點，受到大多數人的喜歡，這一類通訊軟件的應用市場特別廣闊。s contact and munication, and make people can realtime munication over thousands of miles away. The past, old munication can39。這樣，不用上 Inter，可以節省資源，在學校這個大環境里，就可以同學之間聯 系，聯絡感情，促進同學之間的友誼，學生可以通過它來與不同寢室的同學，教師討論問題，并能最大限度地利用現有的網絡資源，極大地提高工作效率 [1]。本軟件在需求分析后，進行初步設計，再經過反復調試，實現了聊天的基本功能。 Visual Basic 自動產生界 面設計代碼，程序設計人員只需要編寫實現程序功能的那部分代碼，從而可以大大提高程序設計的效率，這就為開發通訊軟件提供了很大的便利。 Visual Basic 通過事件來執行對象的操作。在應用程序中，可以使用結構化查詢語言 SQL 數據標準，直接訪問服務器上的數據庫，并提供了簡單的面向對象的庫操作指令和多用戶數據庫訪問的加鎖機制和網絡數據庫的 SQL的編程技術，為單機上運行的數據庫提供了 SQL 網絡接口，以便在分布式環境中快速而有效地實現客戶 /服 務器（ Client/Server）方案 [4]。但它可以通過動態鏈接庫的技術將 C/C++或匯編語言編寫的程序加入到 Visual Basic 應用程序中，可以像調用內部函數一樣調用其他語言編寫的函數。 除了成為 Web 上數據交換的標準技術外，擴展標記語言（ XML）也正迅速成為商務軟件應用程序間交換數據時的首選技術方案。例如，可以使用 Access 創建描述數據結構的架構，然后將 該架構發送給自己的供應商，以便他們準確了解您所期望的發票數據格式 [7]。RARP 反向地址解析協議（ Reverse Address Resolution Protocol），負責將鏈路層 地址轉換成網絡層地址。如果發送程序沒有收到這樣一個確認信息，程序將自動重新發送此報文，直到得到應答信息為止。可將不可靠數據傳輸比作沒有返回地址的信件。例如，假設你使用字節流協議發送 5 個數據段（每個有 10 字節）和一個包含 50 字節的數據段（總共 100字節）。數據報類似于信件。例如為了打印，如果沒有其它程序的話，必須向串或并端口發送數據。 Inter 包括像 FTP、 Tel 和 Mail 這樣廣泛使用的應用程序采用的應用協議，在Inter 上，這些應用程序使用一種叫做 “通用口分配 ”的端口。在 TCP/IP 網絡應用中，多數網絡應用程序是使用客 戶機 /服務器模型設計的。這些術語指出了兩個 TCP/IP傳輸協議：用戶數據包協議（ UDP）和傳輸控制協議（ TCP）之間的區別。例如，無連接和連接服務器程序必須在協議端口偵聽客戶請求。也就是說，類似服務器程序，無連接客戶程序告訴 Socket 執行體使用哪個協議端口進行數據傳輸。 （ 6） 提供查看在線的人的功能。通常采用結構化系統分析和系統設計方法，自上而下分析、設計、強調開發過程的整體性和全局性；開發過程在時間上基本按階段進行，任務明確；結合用戶需求進行開發；開發周期長，維護不方便。 其中原型法是近幾年發展起來的一種開發方法，該方法 從一個初始信息要求的集合出發，在發展中逐步完善信息系統。 （ 5） 原型效果考察。由于服務器要和多個客戶聯系，所以在設計中采用了 Winsock 控件數組的形式，其中下標為 0 的元素作為監聽控件，當有客戶登錄、退出或者相互間發送消息時，能正確接收并作相應處理，其余控件數組元素當有客戶連接時自動裝入。 TCP 協議即數據傳輸協議，允許創建和維護與遠程計算機的連接，使彼此 可以進行數據傳輸。當接收到數據時，會發生 DataArrival 事件，調用 DataArrival 事件中的 GetData 方法就可以獲得對方傳送的數據 [11]。它的繪制依據是現行系統流程圖，數據流程圖是 管理信息系統的總體設計圖 [12]。 \qk\ strDestination = amp。 \bat\*.mdb, vbNormal + vbDirectory) If FileNames = Then MsgBox 找不到備份文件，請重新備份！！ , vbInformation + vbOKOnly, 系統提示 Exit Sub End If Dim a As Long Dim str_tem As String str_tem = Space$(20) 長沙學院 畢業設計 (論文 ) 19 a = GetPrivateProfileString(DataSet, SID, , str_tem, 20, amp。 Shi amp。 (0).LocalIP amp。 vbCrLf = 當前 amp。 選擇日期的界面在類模塊已經定義了 Dim Calendar As Class1 長沙學院 畢業設計 (論文 ) 21 關鍵代碼如下： Private Sub Command1_Click() c1 = Not c1 If c1 Then Else End If End Sub Private Sub Command2_Click() On Error GoTo 30 Dim t, str As String c1 = False Open amp。 amp。 vbCrLf amp。 vb