企業(yè)網(wǎng)上尋呼系統(tǒng)的設(shè)計與實現(xiàn)畢業(yè)論文-文庫吧資料
2025-07-02 09:55本頁面
【正文】 dsCaption我的好友wskClientNamewskClientlvwUsersNamelvwUsers除了這些控件外,打開菜單設(shè)計器,設(shè)計菜單如圖85所示. 好友 黑名單 任務(wù)欄菜單 …添加好友 …添加黑名單 …顯示新消息 …刪除好友 …刪除黑名單 …顯示歷史消息 …發(fā)送消息 …退出圖85 客戶端主窗體菜單,新用戶的注冊,已有用戶的檢測是否上線,好友列表和黑名單列表在lvwUsers控件中的顯示,好友和黑名單的添加與刪除,發(fā)送信息,顯示新消息和歷史消息,響應(yīng)服務(wù)器發(fā)送過來的消息.Private Sub Form_Load() = ServerIP = 50400 = Provider=。 Friends, Count, intFriend, fileName) For i = 0 To UBound(Friends) Call WritePrivateProfileString(CStr() amp。 Friends_Item amp。Friends_Itemamp。 vbNullChar .uFlags = NIF_TIP End With Shell_NotifyIcon NIM_MODIFY, IconDataEnd Sub Ini 文件存取模塊,:Public Sub ReadFriendsFromFile() intFriend = GetPrivateProfileInt(CStr() amp。 tmpIPAddr(i) 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。該用戶不在線,消息已存在服務(wù)器, + 該用戶登錄到服務(wù)器后會自動發(fā)送 End If End IfEnd SelectEnd Sub6. 當(dāng)服務(wù)器停止運行時,.客戶端設(shè)計 根據(jù)系統(tǒng)設(shè)計,客戶端主要包括4個Module模塊和5個Form窗體,下面分別介紹這些模塊. 模塊設(shè)計 主模塊MainModule 主模塊的主要作用是定義全局變量,如系統(tǒng)路徑、用戶信息、服務(wù)器地址等,另外就是啟動系統(tǒng)登錄窗口,主要代碼如下./Sub Main為軟件的啟動過程Sub Main() If Right(, 1) = \ Then strPath = Else strPath = + End If fileName = strPath + ServerIP = GetIPAddress() intFriend = 0 intBadboy = 0 blnLogined = False End Sub 服務(wù)器IP查找模塊由于局域網(wǎng)中服務(wù)器程序可能安裝在不同的機器上,所以客戶端程序自動得到服務(wù)器地址非常必要.在該模塊中系統(tǒng)進行了許多Windows API函數(shù)調(diào)用,首先簡要介紹這些系統(tǒng)API函數(shù).1. int gethostname(char FAR *name,int namelen)簡述：返回本地主機的標(biāo)準(zhǔn)主機名.2. intWSAStartup(WORD wVersionRequested,LPWSADATA lpWSAData)簡述：Winsock調(diào)用必須首先調(diào)用該函數(shù).3. int WSACleanup(void)注釋：當(dāng)應(yīng)用程序或完成了Windows Sockets的使用后必須調(diào)用WSACleanup（）將其從Windows Sockets的實現(xiàn)中注銷,并且該實現(xiàn)釋放為應(yīng)用程序或DLL[5]分配的任何資源.有了這些系統(tǒng)調(diào)用,結(jié)合其他函數(shù)就可以編寫自動得到服務(wù)器地址的函數(shù)了,得到服務(wù)器IP地址的函數(shù)為GetIPAddress(),代碼如下.Public Function GetIPAddress() As String If gethostname(sHostName, 256) = SOCKET_ERROR Then GetIPAddress = MsgBox Windows Sockets error amp。 strUserID amp。 3 Else (ReceivedID).Value = strUserID wskServer(GetSocketIndexFromUserID(wskServer(Index).Tag)).SendData ToServer3。 2 amp。 1 amp。 amp。 。 amp。 strUserID LoopCase ToServer1: intPos = InStr(1, strCommandContent, =, vbBinaryCompare) strUserID = Left(strCommandContent, intPos 1) strCommandContent = Mid(strCommandContent, intPos + 1) UserID = amp。 strCommandContent ReceivedID= amp。 3 mark = ReceivedID = amp。 2 amp。 1 amp。 strUserID strCommandContent = Do While Not strCommandContent = strCommandContent amp。 : amp。 : amp。 = amp。 amp。 CStr(intUserID)Case AddNewFriend1: /代碼同“AddNewUser1”類似,這里不再贅述. Case Login1: intPos = InStr(1, strCommandContent, :, vbBinaryCompare) strUserID = Left(strCommandContent, intPos 1) strCommandContent = Mid(strCommandContent, intPos + 1) UserID = amp。 CStr( 1)End Sub5. 當(dāng)客戶端向服務(wù)器發(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。 表71 服務(wù)器主要控件屬性控件屬性屬性取值frmServer(Form)NamefrmServerCaptionServerwskServerNamewskServerdgdMsgNamedgdMsgDataSourceadoMsgrtfMsgNamertfMsgDataSourceadoMsgDateFieldContentdgdUsersNamedgdUsersDataSourceadoUsersadoUsersNameadoUsersCaption用戶列表adoMsgNameadoMsgCaption留言信息 = adCmdTable = UsersInfowskServer(0).LocalPort = 50400 /初始化wskServer控件wskServer(0).ListenLindCount = 0End Sub2. 當(dāng)客戶端請求連接時,服務(wù)器做出反應(yīng),往wskServer控件數(shù)組里增加一個控件,以對該請求作出反應(yīng).Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)LinkCount = LinkCount + 1Load wskServer
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1