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