【正文】 MidWord(ServerCommand, 2, Words(ServerCommand)) End IfEnd IfExit SubDoNothing: If = cdlCancel Then Exit Sub Else MsgBox End IfEnd Sub 39 。 Word(ServerCommand, 2) amp。 SplitString(ServerCommand, .pushbuddy) amp。MsgBox ServerCommand BuddyStatus = Word(ServerCommand, 2) BuddyUserID = Word(ServerCommand, 3) BuddyUserTitle = SplitString(ServerCommand, Word(ServerCommand, 3)) 39。 Trim(Word(ServerCommand, 2) amp。 Trim(Replace(Word(ServerCommand, 3), , )) = Trim(Replace(Word(ServerCommand, 3), , )) amp。 這個用戶名已經(jīng)存在! ElseIf Word(ServerCommand, 2) = 7 Then = amp。 而被凍結(jié). ElseIf Word(ServerCommand, 2) = 5 Then = amp。 您的數(shù)據(jù)因 amp。 reason amp。 天的時(shí)間. ElseIf Word(ServerCommand, 2) = 3 Then = amp。 .而臨時(shí)受禁止!還剩下 amp。 您的輸入因 amp。 您的數(shù)據(jù)找不到！請重新輸入您的用戶名！ ElseIf Word(ServerCommand, 2) = 1 Then = amp。 RemoteNick = Word(ServerCommand, 2) = Word(ServerCommand, 3) = Word(ServerCommand, 4) = Word(ServerCommand, 5) = Word(ServerCommand, 6) = MidWord(Replace(ServerCommand, //crlf\\, vbCrLf), 7, Val(Words(ServerCommand)) 7) = Word(ServerCommand, Words(ServerCommand)) End If If Word(ServerCommand, 1) = .SendFile Then FileSendRemoteIP = Word(ServerCommand, 2) On Error Resume Next = True If = Then Exit Sub .RecieveFile amp。 amp。 amp。ServerCommand If Word(ServerCommand, 1) = .FillOutForm Then End If If Word(ServerCommand, 1) = .ClearIgnoreList Then If Word(ServerCommand, 1) = .AddIgnore Then Word(ServerCommand, 2) If Word(ServerCommand, 1) = .Connected Then = 改變用戶名和密碼... Dim Temp2 As String If = 1 Then Temp2 = Yes Else Temp2 = No End If .login amp。*************Winsock1接收數(shù)據(jù)時(shí)進(jìn)行的操作************Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)If = 7 Then 39。 = Close 39。// Always close the file handle Close hIn 39。 Int(sizeOfFileSent / sizeOfFile * 100) amp。 sizeOfFile amp。// = sizeOfFileSent = sizeOfFileSent amp。update progress bar sizeOfFileSent = sizeOfFileSent + blockSize 39。// Check for cancel button event etc. If quitNow Then GoTo endIt Temp 39。// Allocate the read buffer Get hIn, , Temp 39。t read too much data If fileLength Loc(hIn) = blockSize Then blockSize = fileLength Loc(hIn) 39。On Error GoTo ErrorHandler hIn = FreeFile Open pathToFile For Binary Access Read As hIn fileLength = LOF(hIn) 39。 Int(sizeOfFileSent / sizeOfFile * 100) amp。 sizeOfFile amp。更新進(jìn)度條 sizeOfFileSent = sizeOfFileSent + blockSize On Error Resume Next = sizeOfFileSent = sizeOfFileSent amp。核查取消按鈕事件等 If quitNow Then GoTo endIt Temp 39。分配讀取緩存 Get hIn, , Temp 39。On Error GoTo ErrorHandler 39。MsgBox CommandIf Command = CANCEL_TRANSFER Then stopSendingEnd IfIf Command = ENABLE_START Then = TrueEnd IfIf Command = ACCEPT_TRANSFER Then DoEvents Do Until = sckConnected 39。[M]. :機(jī)械工業(yè)出版社,2000:101～163[13] JAMES , KEITH . Computer Networks [M]. 第三版. 北京:清華大學(xué)出版社,1998: 340～390附錄1 程序運(yùn)行實(shí)例附圖11 用戶登錄界面附圖12 程序主界面附圖13 查看好友信息界面附圖14 密碼修改界面附圖15 文件發(fā)送界面附圖16 發(fā)送報(bào)表界面附圖17 好友添加界面附圖18 用戶信息修改界面附圖19 消息發(fā)送界面附錄2 部分程序清單39。還要感謝的是鄭文靜和其他同學(xué)，在整個設(shè)計(jì)的過程中，大家都給了我各方面的幫助。致謝在此首先要感謝我的導(dǎo)師郭招娣老師，在程序的準(zhǔn)備和設(shè)計(jì)階段，她給我提供了很多相關(guān)實(shí)用的資料；在論文的格式和內(nèi)容方面給我了很多有用的意見?？缙脚_將是即時(shí)通信業(yè)務(wù)發(fā)展的必由之路 跨平臺也是IM軟件發(fā)展演變的一大趨勢，這不僅表現(xiàn)在IM軟件通常可以在不同類型的操作系統(tǒng)平臺上運(yùn)營并且互通，而且更多地表現(xiàn)在，IM軟件的網(wǎng)絡(luò)承載平臺已經(jīng)由最初的互聯(lián)網(wǎng)拓展到了電信網(wǎng)甚至廣電網(wǎng)，并且它們之間能夠?qū)崿F(xiàn)互通。多功能化將成為即時(shí)通信工具差異化競爭的主要手段 從某種意義上講，現(xiàn)在的IM不能再被稱為即時(shí)通信軟件，它幾乎能捆綁互聯(lián)網(wǎng)上各種流行的應(yīng)用，它既可以是RSS信息聚合器，也可以是瀏覽器、搜索引擎，也可以是網(wǎng)絡(luò)硬盤等，而即時(shí)通信只是其眾多功能中的一項(xiàng)。尤其是隨著基干TCP / IP協(xié)議簇的因特網(wǎng)的高速發(fā)展，IP網(wǎng)絡(luò)己經(jīng)在全世界構(gòu)筑了一個可以實(shí)現(xiàn)信息互通的統(tǒng)一平臺，以IP技術(shù)為核心的分組化和以移動通信為核心的無線化己經(jīng)取代電路交換技術(shù)而成為電信網(wǎng)絡(luò)發(fā)展的主流方向。 未來的展望本人由于時(shí)間能力有限，所以實(shí)現(xiàn)的軟件功能還是很少，不過也認(rèn)識到一些即時(shí)通信未來的動向，再根據(jù)相關(guān)研究的報(bào)道，歸納出即時(shí)通信未來將會呈現(xiàn)的幾大趨勢：添加語音/視頻 從目前流行的即時(shí)通訊軟件基本都集成了語音和/或視頻通訊的功能，應(yīng)該講這是即時(shí)通訊系統(tǒng)軟件的一個發(fā)展的必然趨勢和階段。只能傳較小的文本文件VB也是剛接觸不久，對一些控件也只是初步地了解了功能，所以只能做一些最基礎(chǔ)的文本文件傳輸，以后還有待于提高。 存在的問題和未來的展望 存在的問題由于時(shí)間倉促，能力有限，本系統(tǒng)還存在著一些問題需進(jìn)一步完善，比如對于視頻、音頻文件等的傳輸都沒有實(shí)現(xiàn)，還有系統(tǒng)安全之類的問題本系統(tǒng)都沒有進(jìn)行討論，這些都是以后需要完善和改進(jìn)的地方。在參考了書上的即時(shí)通信軟件的基礎(chǔ)上增加和修改了一些功能：如密碼窗體的修改，原來的密碼修改就是輸入新密碼，而且界面上直接顯示出來，經(jīng)過修改，增添了輸入舊密碼和輸入確認(rèn)密碼，同時(shí)把密碼全部顯示成星號；還添加了用戶名的顯示，修改界面使更個性化等。 = End Sub客戶端：圖312 客戶端發(fā)送報(bào)表給服務(wù)器服務(wù)器端：圖313 服務(wù)器顯示客戶端發(fā)送的報(bào)表 本章小結(jié) 首先介紹了軟件設(shè)計(jì)的需求分析，然后再根據(jù)需求來設(shè)計(jì)軟件界面及要實(shí)現(xiàn)哪些功能，再對這些功能進(jìn)行分析，總結(jié)出實(shí)現(xiàn)這些功能的流程，及如何編寫代碼才能實(shí)現(xiàn)功能，最后簡單介紹了客戶端與服務(wù)器之間如何進(jìn)行通信。服務(wù)器顯示客戶端發(fā)送的報(bào)表如圖313所示。 Port to monitor DoEvents = nameOfFile 與服務(wù)器之間的通信客戶端和服務(wù)器之間的通信包括客戶端發(fā)送報(bào)表給服務(wù)器及服務(wù)器發(fā)送私聊、系統(tǒng)消息給客戶端，主要是通過相互發(fā)送指令來實(shí)現(xiàn)的。 nameOfFile amp。 比特) amp。 文件 ( amp。 的 amp。 userName發(fā)送方通過網(wǎng)絡(luò)協(xié)議傳送給接收方，接收方接收發(fā)送方的請求，找到對應(yīng)的端口同時(shí)進(jìn)行監(jiān)聽，獲得文件信息，保存文件，具體實(shí)現(xiàn)的代碼如下所示：Temp = MsgBox(接受來自 amp。 nameOfFile FILE_SIZE amp。 Int(sizeOfFileSent / sizeOfFile * 100) amp。 sizeOfFile amp。進(jìn)度條初始值為0，當(dāng)文件開始傳輸時(shí)，進(jìn)度條根據(jù)發(fā)送的文件字節(jié)數(shù)，調(diào)整進(jìn)度條，同時(shí)顯示文件發(fā)送的程度（如100%），代碼如下： = sizeOfFile = 0 = = TruesizeOfFileSent = sizeOfFileSent + blockSize On Error Resume Next = sizeOfF