【正文】 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。 vbNullChar .uFlags = NIF_TIP End With Shell_NotifyIcon NIM_MODIFY, IconDataEnd Sub Ini 文件存取模塊,:Public Sub ReadFriendsFromFile() intFriend = GetPrivateProfileInt(CStr() amp。 Friends_Item amp。 LTrim(Str(i)), UserID, LTrim(Str(Friends(i).UserID)), fileName) NextEnd Sub 窗體設(shè)計 系統(tǒng)登錄窗體系統(tǒng)登錄窗體主要功能是用戶的登錄、注冊和服務(wù)器IP地址的獲取和設(shè)置.1. 界面設(shè)計登錄窗體的界面如圖81所示,其中的控件主要包括7個文本框控件、6個按鈕控件、一個ImageCombo控件、一個ImageList控件和一些標簽控件,這些控件的屬性如表81所示:圖81 登錄界面設(shè)計其中ilsIcons控件的屬性設(shè)置為,加入該控件后, Pages屬性窗口中單擊Images頁面,通過Insert Picture按鈕加入用戶頭像.2. ,用戶的檢測與注冊以及服務(wù)器地址的獲取與設(shè)置.Private Sub Form_Load()For i = 0 To 1 , , , i + 1, i + 1表81 登錄界面主要控件屬性控件屬性屬性取值frmLoginNamefrmLoginCaption登錄cmdLoginNamecmdLoginCaption登錄cmdIPNamecmdIPCaption服務(wù)器IPcmdNewNamecmdNewCaption新用戶cmdCancelNamecmdCancelCaption取消imgcboFaceNameimgcboFaceilsIconsNameilsIconscmdRegisterNamecmdRegisterCaption注冊cmdSetIPNamecmdSetIPCaption設(shè)置圖82 ImageList屬性設(shè)置Next(1).Selected = True = ServerIPEnd SubPrivate Sub cmdLogin_Click() = UserPwd = blnNewUser = FalseEnd SubPrivate Sub cmdNew_Click()If = 新用戶 Then = 隱藏 = + 3750Else = 新用戶 = 3750End IfEnd SubPrivate Sub cmdSetIP_Click()ServerIP = Trim()End Sub 客戶端主窗體 客戶端主窗體是客戶端的核心模塊,完成客戶端的主要操作,主要功能包括顯示、添加、刪除好友和黑名單,調(diào)用發(fā)送、接收消息窗口,響應(yīng)服務(wù)器發(fā)過來的信息. 客戶端主窗體的界面如圖83所示,主要包括4個命令按鈕、WinSock控件、時鐘控件、Adodc控件、ImageList控件、listview控件等,主要控件屬性如表82所示:圖83 客戶端主窗體界面其中l(wèi)vwUsers控件的屬性設(shè)置為,右擊該控件,彈出如圖84所示窗口ProPerty Pages,選擇Image Lists頁,在 Normal和 Small中都選定ilsIcons,這里就不再贅述了.圖84 lvwUsers控件屬性窗口表82 客戶端主窗體控件屬性控件屬性屬性取值frmClient(Form)NamefrmClientCaption聊天程序ilsIconsNameilsIconsadoMessagesNameadoMessagesCaption新消息tmrMessagesNametmrMessagesInterval300cmdMenuNamecmdMenuCaption菜單cmdStatusNamecmdStatusCaption離線cmdBadboysNamecmdBadboysCaption黑名單cmdFriendsNamecmdFriendsCaption我的好友wskClientNamewskClientlvwUsersNamelvwUsers除了這些控件外,打開菜單設(shè)計器,設(shè)計菜單如圖85所示. 好友 黑名單 任務(wù)欄菜單 …添加好友 …添加黑名單 …顯示新消息 …刪除好友 …刪除黑名單 …顯示歷史消息 …發(fā)送消息 …退出圖85 客戶端主窗體菜單,新用戶的注冊,已有用戶的檢測是否上線,好友列表和黑名單列表在lvwUsers控件中的顯示,好友和黑名單的添加與刪除,發(fā)送信息,顯示新消息和歷史消息,響應(yīng)服務(wù)器發(fā)送過來的消息.Private Sub Form_Load() = ServerIP = 50400 = Provider=。 。at zu Berlin, April 2004:818。 End Sub其他代碼和服務(wù)器端類似,在此略. 發(fā)送消息窗體發(fā)送消息窗體功能較為簡單,主要是對發(fā)送的消息進行編輯,并發(fā)送該消息.1 界面設(shè)計發(fā)送消息窗體界面如圖85所示,主要包含三個按鈕控件；一個ImageList和ImageCombo控件相結(jié)合顯示消息的表情,一個CommonDialog控件,一個RichTextBox :其中ilsChatFaces 控件和imgcboChatFaces控件屬性設(shè)置與客戶端主窗體中的類似,這里不再贅述了. 圖85 發(fā)送消息窗體界表83 發(fā)送消息窗體主要控件屬性控件屬性屬性取值frmChat(Form)NamefrmChatCaption發(fā)送消息cmdColorNamecmdColorCaption顏色cmdFontNamecmdFontCaption字體cmdSendNamecmdSendCaption發(fā)送dlgFontAndColorNamedlgFontAndColorilsChatFacesNameilsChatFacesimgcboChatFacesNameimgcboChatFacesrtfContentNamertfContentimgFaceNameimgFace⒉ 代碼略. 接受最新消息窗體接受最新消息窗體功能較為簡單,包括完成最新信息的瀏覽,以及把瀏覽過的消息添加到老消息表中.1. 界面設(shè)計接收消息界面如圖86所示,一共只有三個控件,分別是DataGrid控件、RichTextBox控件、Adodc控件,它們的屬性如表84所示.圖86 接受最新消息窗體界面表84 接受最新消息窗體控件屬性控件屬性屬性取值frmNewMsg(Form)NamefrmNewMsgCaption最新消息rtfContentNamertfContentdgdMessagesNamedgdMessagesadoMessagesNameadoMessagesCaption信息⒉代碼略. 查看歷史消息窗體查看歷史消息窗體功能也較為簡單,包括完成歷史信息的瀏覽,以及消息刪除.查看歷史消息窗體界面和接收最新消息窗體類似,如圖76所示,這里不再贅述.“清空”按鈕,程序?qū)h除OldMsg表中當前用戶的所有消息.“刪除”按鈕,程序?qū)h除當前查看的那條歷史信息.以上代碼均略.系統(tǒng)運行下面測試系統(tǒng)實際運行的效果.首先運行服務(wù)器程序,由于這時沒有用戶登錄,所以在線用戶為0,也沒有用戶留言,如圖91所示:圖91 服務(wù)器主程序運行客戶端程序,出現(xiàn)的是登錄界面,以用戶號碼1001登錄,密碼為111,如圖92所示:圖92 登錄窗口單擊“登錄”按鈕,進入聊天界面.雙擊“我的好友”中好友圖標,彈出發(fā)送消息窗口,輸入消息.單擊“菜單”按鈕,彈出的菜單中,單擊“顯示新消息”命令,彈出新消息窗體,如圖93所示:圖93 最新消息窗體總結(jié)致謝 經(jīng)過近一個月的努力,并在老師耐心細致的指導(dǎo)下,通過翻閱大量的資料,系統(tǒng)用Visual Basic作為開發(fā)環(huán)境,、短小精煉,具有很強的實用性和示范意義,可為開發(fā)網(wǎng)絡(luò)數(shù)據(jù)通信系統(tǒng)所借鑒.通過這次畢業(yè)設(shè)計可以體會到VB最大的優(yōu)點就是簡單易學(xué),編寫代碼方便,可視化程度高,需要龐大的運行時間庫支持,軟件發(fā)