通信工程畢業設計_基于socket的即時通訊軟-資料下載頁

【導讀】便、更實用的網絡通信軟件。現在，網絡上的在線服務系統多種多樣，它們已經深深的。影響并改變了人們的聯系和交流方式，使得人們可以在千里之遙進行即時性的通訊。去的種種陳舊的通訊方式，已經不能滿足現代生活的需要。程度的提高了學習和工作效率。由于即時通訊軟件的外觀友好、使用非常方便，而且使。現如今，很多的企業、機關、學校都紛紛建立起自己的局域網。于是我就想到做一。間即時性的聯絡，這樣，不用上Inter，可以節省資源。在學校這個大環境里，這個。學，與教師討論問題，并能最大限度地利用現有的網絡資源，極大地提高工作效率。庫備份還原及數據庫的初始化等功能。客戶端具有登陸，注冊，修改個人信息，聊天等

　　

【正文】 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 長沙學院 畢業設計 (論文 ) 22 Open amp。 \data\ amp。 amp。 amp。 .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 在選擇日期的界面點擊任意的一天，會在 顯示選中的日期。 相關代碼如下： Public Sub ProcMsg(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long, Result As Long) Dim hdrX As NMHDR On Error Resume Next Select Case uMsg Case WM_NOTIFY CopyMemory hdrX, ByVal lParam, Len(hdrX) If = Or = DTN_DATETIMECHANGE Then Label1 = Format(, yyyymmdd) End If End Select End Sub 查看記錄的界面如圖 ： 長沙學院 畢業設計 (論文 ) 23 圖 查看記錄的界面圖 更改管理員密碼 服務器端登陸需要身份確認才能登陸，帳號和密碼可以自定義，以免其他人盜用管理員身份。 密碼驗證時用到的部分代碼： na = GetSetting(即時通訊軟件服務器 , server, name) pw = GetSetting(即時通訊軟件服務器 , server, password) 改新密碼時用到的部分代碼： SaveSetting 即時通訊軟件服務器 , server, name, Text3 長沙學院 畢業設計 (論文 ) 24 SaveSetting 即時通訊軟件服務器 , server, password, Text4 管理員帳號和密碼都存在本機注冊表，初始賬戶和密碼都為空。 鍵值位置： HKEY_CURRENT_USER\Software\VB and VBA Program Settings\即時通訊軟件服務器\server 更改密碼的界面見圖 ： 圖 更改密碼的界面圖 發布通知 發布通告是在菜單欄的工具里，點擊即可發布你所輸入的信息。通知的內容存放在tongz = GetSetting(即時通訊軟件服務器 , tongz, tongz)，其中 tongz 鍵值位置在 HKEY_CURRENT_USER\Software\VB and VBA Program Settings\即時通訊軟件服務器 \server。 關鍵核心代碼介紹： Dim I As Integer tongz = InputBox(vbCrLf amp。 vbCrLf amp。 你要通知什么事情 ?, 通知 , tongz) If Trim(tongz) = Then tongz = 歡迎你 使用本軟件。 SaveSetting 即時通訊軟件服務器 , tongz, tongz, tongz For I = 1 To maxconnext If Winsock1(I).State = sckConnected Then Winsock1(I).SendData 12| amp。 tongz 長沙學院 畢業設計 (論文 ) 25 End If DoEvents Next = Len(Text2) = Date amp。 amp。 Time amp。 通知大家 : amp。 tongz amp。 vbCrLf 發布通知的 界面圖如圖 ： 圖 發放通知界面圖 客戶界面 客戶機用 Winsock 控件發出信息，服務器端通過信息頭的標識分辨客戶端的要求，比如登陸、注冊、注銷、發送信息，另外客戶端還有標簽欄接收服務器發來的系統通告。 標簽欄接收并顯示服務器發來的通告信息。右邊列表顯示在線名單，雙擊列表可以顯示個人資料，由群聊轉為私聊后，可以選擇選定的目標進行一對一的悄悄話。 關鍵代碼如下： Private Sub List1_DblClick() If sckConnected Then MsgBox 你還沒有登陸 !, vbOKOnly + 64, 提示 ein_Click Exit Sub Else formactive = False = Left(Right(, 7), 6) 04| amp。 Left(Right(, 7), 6) = True (1) = False (2) = False 長沙學院 畢業設計 (論文 ) 26 = False End If End Sub Private Sub Option1_Click() 39。ql If = True Then = False = 0 End If End Sub Private Sub Option2_Click() 39。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。 Text2 Text2 = Else If = 無 Or Left(Right(, 7), 6) = id Or = Then = 0: MsgBox 私聊對象錯誤 , vbOKOnly + 64, 提示 : Exit Sub 07| amp。 Mid(( 1), 1, 3) amp。 | 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。 id = True End If End Sub 客戶端主界面見圖 615： 圖 長沙學院 畢業設計 (論文 ) 28 其中菜單中的文件里，分別有登陸、注冊和注銷功能，這些功能的相關 代碼如下： Private Sub ein_Click() formactive = False End Sub Private Sub zhuche_Click() = 1 formactive = False End Sub Private Sub zhuxiao_Click() = True = False = True closeflag = False = Len(Text1) = 【系統消息】你已經注銷了 amp。 vbCrLf Form_Load End Sub 點擊登陸后會顯示以下登陸窗口，用戶 ID 六位數后自動轉到密碼欄，回車即完成登陸操作。 登陸窗口如圖 ： 長沙學院 畢業設計 (論文 ) 29 圖 注冊窗口和個人信息窗口也顯示在下面了，通過注冊界面可以自定義個人信息，完成注冊并且用自己隨機獲取的 ID 號進行登陸，登陸后可以通過雙擊在線名單的某一行，查看對應的人員信息。 注冊窗口和個人信息窗口的界面如圖 617 和圖 618： 圖 注冊窗口 長沙學院 畢業設計 (論文 ) 30 圖 底層通訊設計 服務器端： 為了使能及時響應多個用戶 的請求，我對 winsock 控件添加了數組，也就是說，在連接上一個用戶后，自動增加一個 winsock 控件進行偵聽。發送數據使用的是多個端口，設置數組控件會使程序具有很大的靈活性，發送端口會自動定義，而且不重復使用同一端口，所以端口是多少都無所謂，這不是我們需要關心的，在某用戶斷開連接時候，空閑的 winsock 還可以接收新的用戶。 Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) On Error Resume Next Dim I As Long If Index = 0 Then 39。主 Winsock—— Winsock(0)發生消息 I = 1 While I = maxconnext And nowconnext(I) 39。在以前的 Winsock 中找到空閑的Winsock I = I + 1 DoEvents Wend If I = maxconnext Then 39。在當前裝載的 Socket 中發現有用戶已經離開 Winsock1(I).LocalPort = 0 39。使用現成的 Socket Winsock1(I).Accept requestID 39。接收 長沙學院 畢業設計 (論文 ) 31 nowconnext(I) = True 39。Winsock（ i）被占用 Else 39。在當前裝載的 Socket 中沒發現有用戶離開 maxconnext = maxconnext + 1 39。當前接收端口增加 Load Winsock1(maxconnext) 39。生成新的 Winsock Winsock1(maxconnext).LocalPort = 0 Winsock1(maxconnext).Accept requestID 39。接收 ReDim Preserve nowconnext(maxconnext + 1) nowconnext(maxconnext) = True End If End If End Sub 因為客戶端發送的每一個請求，都有個頭命令，服務器端根據這個頭命令來分辨客戶端的請求類型。對于每一個信息都要有對應的 信息反饋回去。 客戶端： 發送連接，是靠服務器回復的標志變量，來判別連接狀態的。發送一個數據，等待響應信息的回來，客戶端是通過服務器回復信息的頭命令，判定消息類型。 服務器可以把系統管理員發的消息及其它客戶登錄、退出、對話的信息分別傳遞給傳給客戶端。為了能正確接收并區分這些信息 ,系統采用了信息前加不同的首字符的方法 ，也就是前文所說的頭命令， 從而有效地解決了客戶端的接收問題。 代碼結構如下 : Private Sub WskclientDataArrival(ByVal bytesTotal AsLong) ’消息到達時接收 Dim ClientData As String Dim tou As Integer 39。頭命令 ClientData, vbString tou = Val(Left(ClientData, 2)) Select Case tou Case 1 ’代碼省略 Case 2 ’代碼省略 ?? End Select 長沙學院 畢業設計 (論文 ) 32 End Sub 服務器和客戶端之間的連接： 其中 winsock 控件需要正確設置服務器的 IP 地址 (這里仍假設為本機 ) ,設置服務器端口為客戶端中所 要求的遠程端口號 , 這樣才能保證通訊。 服務器代碼如下 : Winsock1(0).LocalPort