【正文】 收到數(shù)據(jù)時(shí),產(chǎn)生DataArrival事件,可以用GetData方法接收數(shù)據(jù).WinSock控件還有兩個(gè)重要的屬性,：取值sckTCPProtocol表示TCP ,[7].需求分析通過(guò)對(duì)企業(yè)終端用戶調(diào)研,網(wǎng)上尋呼系統(tǒng)的需求已經(jīng)被較為完整地了解. 理解需求⒈ 實(shí)現(xiàn)聊天功能,應(yīng)能夠明確消息接受者；消息接收時(shí),用戶已經(jīng)發(fā)送的消息,應(yīng)迅速轉(zhuǎn)達(dá)接收者.⒉ 新用戶可以進(jìn)行注冊(cè),沒(méi)有注冊(cè)過(guò)的用戶只有經(jīng)過(guò)注冊(cè)才能進(jìn)入系統(tǒng),系統(tǒng)可以對(duì)注冊(cè)后的用戶進(jìn)行管理.⒊ 已經(jīng)注冊(cè)的用戶可以通過(guò)登錄來(lái)進(jìn)入程序,系統(tǒng)可以監(jiān)控每位用戶的狀態(tài),但為了不涉及隱私,應(yīng)該不能查看聊天的內(nèi)容.⒋ 用戶應(yīng)該能夠添加和刪除好友,把不友好的用戶建成黑名單,列入黑名單的用戶發(fā)送的消息,用戶不能收到.⒌ 當(dāng)好友不在線時(shí),如果消息接收者不在線,系統(tǒng)應(yīng)該暫存數(shù)據(jù),直到消息接收者登錄后再轉(zhuǎn)發(fā)給他.⒍ 系統(tǒng)應(yīng)該提供數(shù)據(jù)庫(kù)維護(hù)功能.⒎ 系統(tǒng)運(yùn)行在Windows平臺(tái)上,應(yīng)該有一個(gè)較好的圖形用戶界面.將機(jī)械自動(dòng)化應(yīng)用到社會(huì)生產(chǎn)中，可提高產(chǎn)品的質(zhì)量和產(chǎn)品生產(chǎn)率，縮短產(chǎn)品的生產(chǎn)周期，同時(shí)可降低產(chǎn)品的生產(chǎn)成本，減輕工人的勞動(dòng)強(qiáng)度，提高企業(yè)的經(jīng)濟(jì)效益。 = adCmdTable = Messages/使adoUsers指向UserInfo表 = Provider=。 CStr( 1)End Sub5. 當(dāng)客戶端向服務(wù)器發(fā)送消息時(shí),首先在事件中通過(guò)GetData方法得到客戶端所傳送過(guò)來(lái)的字符串,.Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)wskServer(Index).GetData strReceivedSelect Case intCommandIDCase AddNewUser1:Dim strNickName As String intPos = InStr(1, strCommandContent, :, vbBinaryCompare) strNickName = Left(strCommandContent, intPos 1) strCommandContent = Mid(strCommandContent, intPos + 1) intUserID = 1000 + (UserID).Value = intUserID wskServer(Index).SendData AddNewUser2。 : amp。 2 amp。 amp。 2 amp。 has to successfully get Host Name. Exit Function End If sHostName = Trim$(sHostName) lpHost = gethostbyname(sHostName) If lpHost = 0 Then GetIPAddress = MsgBox Windows Sockets are not responding. amp。 Friends_Item amp。 。 End Sub其他代碼和服務(wù)器端類似,在此略. 發(fā)送消息窗體發(fā)送消息窗體功能較為簡(jiǎn)單,主要是對(duì)發(fā)送的消息進(jìn)行編輯,并發(fā)送該消息.1 界面設(shè)計(jì)發(fā)送消息窗體界面如圖85所示,主要包含三個(gè)按鈕控件；一個(gè)ImageList和ImageCombo控件相結(jié)合顯示消息的表情,一個(gè)CommonDialog控件,一個(gè)RichTextBox :其中ilsChatFaces 控件和imgcboChatFaces控件屬性設(shè)置與客戶端主窗體中的類似,這里不再贅述了. 圖85 發(fā)送消息窗體界表83 發(fā)送消息窗體主要控件屬性控件屬性屬性取值frmChat(Form)NamefrmChatCaption發(fā)送消息cmdColorNamecmdColorCaption顏色cmdFontNamecmdFontCaption字體cmdSendNamecmdSendCaption發(fā)送dlgFontAndColorNamedlgFontAndColorilsChatFacesNameilsChatFacesimgcboChatFacesNameimgcboChatFacesrtfContentNamertfContentimgFaceNameimgFace⒉ 代碼略. 接受最新消息窗體接受最新消息窗體功能較為簡(jiǎn)單,包括完成最新信息的瀏覽,以及把瀏覽過(guò)的消息添加到老消息表中.1. 界面設(shè)計(jì)接收消息界面如圖86所示,一共只有三個(gè)控件,分別是DataGrid控件、RichTextBox控件、Adodc控件,它們的屬性如表84所示.圖86 接受最新消息窗體界面表84 接受最新消息窗體控件屬性控件屬性屬性取值frmNewMsg(Form)NamefrmNewMsgCaption最新消息rtfContentNamertfContentdgdMessagesNamedgdMessagesadoMessagesNameadoMessagesCaption信息⒉代碼略. 查看歷史消息窗體查看歷史消息窗體功能也較為簡(jiǎn)單,包括完成歷史信息的瀏覽,以及消息刪除.查看歷史消息窗體界面和接收最新消息窗體類似,如圖76所示,這里不再贅述.“清空”按鈕,程序?qū)h除OldMsg表中當(dāng)前用戶的所有消息.“刪除”按鈕,程序?qū)h除當(dāng)前查看的那條歷史信息.以上代碼均略.系統(tǒng)運(yùn)行下面測(cè)試系統(tǒng)實(shí)際運(yùn)行的效果.首先運(yùn)行服務(wù)器程序,由于這時(shí)沒(méi)有用戶登錄,所以在線用戶為0,也沒(méi)有用戶留言,如圖91所示:圖91 服務(wù)器主程序運(yùn)行客戶端程序,出現(xiàn)的是登錄界面,以用戶號(hào)碼1001登錄,密碼為111,如圖92所示:圖92 登錄窗口單擊“登錄”按鈕,進(jìn)入聊天界面.雙擊“我的好友”中好友圖標(biāo),彈出發(fā)送消息窗口,輸入消息.單擊“菜單”按鈕,彈出的菜單中,單擊“顯示新消息”命令,彈出新消息窗體,如圖93所示:圖93 最新消息窗體總結(jié)致謝 經(jīng)過(guò)近一個(gè)月的努力,并在老師耐心細(xì)致的指導(dǎo)下,通過(guò)翻閱大量的資料,系統(tǒng)用Visual Basic作為開(kāi)發(fā)環(huán)境,、短小精煉,具有很強(qiáng)的實(shí)用性和示范意義,可為開(kāi)發(fā)網(wǎng)絡(luò)數(shù)據(jù)通信系統(tǒng)所借鑒.通過(guò)這次畢業(yè)設(shè)計(jì)可以體會(huì)到VB最大的優(yōu)點(diǎn)就是簡(jiǎn)單易學(xué),編寫代碼方便,可視化程度高,需要龐大的運(yùn)行時(shí)間庫(kù)支持,軟件發(fā)行比較困難(編譯后的EXE程序如果在沒(méi)有安裝過(guò)VB的機(jī)器上運(yùn)行需要拷貝數(shù)M的文件,并且做一些設(shè)置工作)；底層調(diào)用手段較少,不太適合開(kāi)發(fā)硬件操作多、速度要求高的場(chǎng)合,比如編寫硬件驅(qū)動(dòng)程序就不能使用VB.系統(tǒng)在設(shè)計(jì)過(guò)程中不可避免地遇到了各種各樣的問(wèn)題,由于整個(gè)系統(tǒng)完全都是由個(gè)人設(shè)計(jì)的,許多細(xì)節(jié)問(wèn)題都要靠自己去摸索,加上水平有限,因此還存在著許多不足之處,在這次畢業(yè)設(shè)計(jì)過(guò)程中,XX老師極大的幫助,他認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)風(fēng)格,使本人深受啟發(fā),這樣畢業(yè)設(shè)計(jì)才順利完成,在此表示感謝！ 參考文獻(xiàn)[1] Basic 6從入門到精通.[M]北京：電子工業(yè)出版社,1999年6月:145[2]陳學(xué)東, Basic . [M]北京：清華大學(xué)出版社,2005年4月:85100[3]四維科技,趙斯思. Visual Basic數(shù)據(jù)庫(kù)編程技術(shù)與實(shí)例. [M]北京：人民郵電出版社,2004年3月:4060[4]張路平,喻波,邵謙謙. Visual Basic . [M]北京：電子工業(yè)出版社,2005年3月:100115[5] Basic實(shí)用編程百例. [M]北京：清華大學(xué)出版社,2000年5月:98110[6]汪曉平. Visual Basic網(wǎng)絡(luò)高級(jí)編程. [M]北京：人民郵電出版社,2001年4月:2450[7]陳峰棋,柴明建. Visual Basic網(wǎng)絡(luò)編程從入門到精通. [M]北京：中國(guó)鐵道出版社,2002年7月:3035[8]Microsoft Basic 高級(jí)編程.[M]北京：北京大學(xué)出版社,2000年9月:96135[9]周峰, Basic 程序設(shè)計(jì).[M]西安：西安電子科技大學(xué)出版社, 2004年2月:47[10] by Step (Microsoft Visual Basic ).[M] Microsoft Press: Redmond, WA, 1998年6月:59[11].[M]AddisionWesley: Reading, MA, 2002年1月:5058[12] Prof. Dr. Wolfgang H168。 Friends, Count, intFriend, fileName) For i = 0 To UBound(Friends) Call WritePrivateProfileString(CStr() amp。 tmpIPAddr(i) amp。 3 Else (ReceivedID).Value = strUserID wskServer(GetSocketIndexFromUserID(wskServer(Index).Tag)).SendData ToServer3。 。 3 mark = ReceivedID = amp。 : amp。 CStr(intUserID)Case AddNewFriend1: /代碼同“AddNewUser1”類