【導(dǎo)讀】便、更實(shí)用的網(wǎng)絡(luò)通信軟件?，F(xiàn)在，網(wǎng)絡(luò)上的在線服務(wù)系統(tǒng)多種多樣，它們已經(jīng)深深的。影響并改變了人們的聯(lián)系和交流方式，使得人們可以在千里之遙進(jìn)行即時(shí)性的通訊。去的種種陳舊的通訊方式，已經(jīng)不能滿足現(xiàn)代生活的需要。程度的提高了學(xué)習(xí)和工作效率。由于即時(shí)通訊軟件的外觀友好、使用非常方便，而且使?，F(xiàn)如今，很多的企業(yè)、機(jī)關(guān)、學(xué)校都紛紛建立起自己的局域網(wǎng)。于是我就想到做一。間即時(shí)性的聯(lián)絡(luò)，這樣，不用上Inter，可以節(jié)省資源。在學(xué)校這個(gè)大環(huán)境里，這個(gè)。學(xué)，與教師討論問題，并能最大限度地利用現(xiàn)有的網(wǎng)絡(luò)資源，極大地提高工作效率。庫備份還原及數(shù)據(jù)庫的初始化等功能?？蛻舳司哂械顷懀?cè)，修改個(gè)人信息，聊天等

　　

【正文】 p。 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 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 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 在選擇日期的界面點(diǎn)擊任意的一天，會(huì)在 顯示選中的日期 。 相關(guān)代碼如下： 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 查看 記錄的 界面如圖 ： 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 23 圖 查看 記錄的界面圖 更改管理員密碼 服務(wù)器端登陸需要身份確認(rèn)才能登陸，帳號(hào)和密碼可以自定義，以免其他人盜用管理員身份。 密碼驗(yàn)證時(shí)用到的部分代碼： na = GetSetting(即時(shí)通訊軟件 服務(wù)器 , server, name) pw = GetSetting(即時(shí)通訊軟件 服務(wù)器 , server, password) 改新密碼時(shí)用到的部分代碼： SaveSetting 即時(shí)通訊軟件 服務(wù)器 , server, name, Text3 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 24 SaveSetting 即時(shí)通訊軟件 服務(wù)器 , server, password, Text4 管理員帳 號(hào) 和密碼都存在本機(jī)注冊(cè)表，初始賬戶和密碼都為空。 鍵值位置 ： HKEY_CURRENT_USER\Software\VB and VBA Program Settings\即時(shí)通訊軟件服務(wù)器\server 更改密碼的界面見圖 ： 圖 更改密碼的界面圖 發(fā) 布 通知 發(fā)布通告是在菜單欄的工具里，點(diǎn)擊即可發(fā)布你所輸入的信息。通知的內(nèi)容存放在tongz = GetSetting(即時(shí)通訊軟件服務(wù)器 , tongz, tongz)，其中 tongz 鍵值位置 在 HKEY_CURRENT_USER\Software\VB and VBA Program Settings\即時(shí)通訊軟件服務(wù)器 \server。 關(guān)鍵核心代碼介紹： Dim I As Integer tongz = InputBox(vbCrLf amp。 vbCrLf amp。 你要通知什么事情 ?, 通知 , tongz) If Trim(tongz) = Then tongz = 歡迎你使用本軟件。 SaveSetting 即時(shí)通訊軟件服務(wù)器 , tongz, tongz, tongz For I = 1 To maxconnext If Winsock1(I).State = sckConnected Then Winsock1(I).SendData 12| amp。 tongz 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 25 End If DoEvents Next = Len(Text2) = Date amp。 amp。 Time amp。 通知大家 : amp。 tongz amp。 vbCrLf 發(fā)布通知的 界面圖如圖 ： 圖 發(fā)放通知界面圖 客戶 界面 客戶機(jī)用 Winsock 控件發(fā)出信息，服務(wù)器端通過信息頭的標(biāo)識(shí)分辨客戶端的要求，比如登陸、注冊(cè)、注銷、發(fā)送信息， 另外客戶端還有標(biāo)簽欄接收服務(wù)器發(fā)來 的系統(tǒng)通告 。 標(biāo)簽欄接收并顯示服務(wù)器發(fā)來的通告信息。右邊列表顯示在線名單 ，雙擊列表可以顯示個(gè)人資料 ，由群聊轉(zhuǎn)為私聊后，可以選擇 選定的 目標(biāo)進(jìn)行 一對(duì)一的悄悄話。 關(guān)鍵代碼如下： 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 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 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 私聊對(duì)象錯(cuò)誤 , vbOKOnly + 64, 提示 : Exit Sub 07| amp。 Mid(( 1), 1, 3) amp。 | amp。 Text2 Text2 = End If 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 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： 圖 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 28 其中 菜單中的 文件 里，分別有登陸、注冊(cè)和注銷功能，這些功能的相關(guān) 代碼如下： 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) = 【系統(tǒng)消息】你已經(jīng)注銷了 amp。 vbCrLf Form_Load End Sub 點(diǎn)擊登陸后會(huì)顯示以下 登陸窗口 ， 用戶 ID 六位數(shù)后自動(dòng)轉(zhuǎn)到密碼欄，回車即 完成登陸 操作 。 登陸窗口如圖 ： 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 29 圖 注冊(cè)窗口和個(gè)人信息窗口也顯示在下面了，通過注冊(cè)界面可以自定義個(gè)人信息，完成注冊(cè)并且用自己隨機(jī)獲取的 ID 號(hào)進(jìn)行登陸，登陸后可以通過雙擊在線名單的某一 行，查看 對(duì)應(yīng)的人員信息。 注冊(cè)窗口和個(gè)人信息窗口的 界面如圖 617 和圖 618： 圖 注冊(cè)窗口 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 30 圖 的界面 底層通訊 設(shè)計(jì) 服務(wù)器端： 為了使能及時(shí)響應(yīng) 多個(gè) 用戶的請(qǐng)求， 我對(duì) winsock 控件添加了數(shù)組 ，也就是說， 在連接上一個(gè)用戶后，自動(dòng)增加一個(gè) winsock 控件進(jìn)行偵聽。 發(fā)送數(shù)據(jù)使用的是多個(gè)端口，設(shè)置數(shù)組控件會(huì)使程序具有很大的靈活性， 發(fā)送端口 會(huì)自動(dòng)定義，而且不重復(fù)使用同一端口，所以端口 是多少都無所謂 ，這不是我們需要關(guān)心的 ，在某用戶斷開連接時(shí)候 ，空閑的 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)發(fā)生消息 I = 1 While I = maxconnext And nowconnext(I) 39。在以前的 Winsock 中找到空閑的Winsock I = I + 1 DoEvents Wend If I = maxconnext Then 39。在當(dāng)前裝載的 Socket 中發(fā)現(xiàn)有用戶已經(jīng)離開 Winsock1(I).LocalPort = 0 39。使用現(xiàn)成的 Socket Winsock1(I).Accept requestID 39。接收 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 31 nowconnext(I) = True 39。Winsock（ i）被占用 Else 39。在當(dāng)前裝載的 Socket 中沒發(fā)現(xiàn)有用戶離開 maxconnext = maxconnext + 1 39。當(dāng)前接收端口增加 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 因?yàn)榭蛻舳?發(fā)送的每一個(gè)請(qǐng)求，都有個(gè)頭命令，服務(wù)器端根據(jù)這個(gè)頭命令來分辨客戶端的請(qǐng)求類型 。 對(duì)于每一個(gè)信息都要有對(duì)應(yīng)的信息反饋回去。 客戶端： 發(fā)送連接，是靠服務(wù)器回復(fù)的標(biāo)志變量，來判別連接狀態(tài)的。發(fā)送一個(gè)數(shù)據(jù)， 等待響應(yīng)信息的回來， 客戶端是通過服務(wù)器回復(fù)信息的頭命令，判定消息類型 。 服務(wù)器可以 把 系統(tǒng)管理員發(fā)的消息及其它客戶登錄、退出、對(duì)話的信息 分別傳遞給傳給 客戶端 。為了能正確接收并區(qū)分這些信息 ,系統(tǒng) 采用了信息前加不同的首字符的方法 ，也就是前文所說的頭命令， 從而有效地解決了客戶端的接收問題。 代碼 結(jié)構(gòu) 如下 : Private Sub WskclientDataArrival(ByVal bytesTotal AsLong) ’消息到達(dá)時(shí)接收 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 長沙學(xué)院 畢業(yè)設(shè)計(jì) (論文 ) 32 End Sub 服務(wù)器和客戶端之間的連接 ： 其中 w