【正文】 行比較困難(編譯后的EXE程序如果在沒有安裝過VB的機(jī)器上運行需要拷貝數(shù)M的文件,并且做一些設(shè)置工作)；底層調(diào)用手段較少,不太適合開發(fā)硬件操作多、速度要求高的場合,比如編寫硬件驅(qū)動程序就不能使用VB.系統(tǒng)在設(shè)計過程中不可避免地遇到了各種各樣的問題,由于整個系統(tǒng)完全都是由個人設(shè)計的,許多細(xì)節(jié)問題都要靠自己去摸索,加上水平有限,因此還存在著許多不足之處,在這次畢業(yè)設(shè)計過程中,XX老師極大的幫助,他認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)風(fēng)格,使本人深受啟發(fā),這樣畢業(yè)設(shè)計才順利完成,在此表示感謝！ 參考文獻(xiàn)[1] Basic 6從入門到精通.[M]北京：電子工業(yè)出版社,1999年6月:145[2]陳學(xué)東, Basic . [M]北京：清華大學(xué)出版社,2005年4月:85100[3]四維科技,趙斯思. Visual Basic數(shù)據(jù)庫編程技術(shù)與實例. [M]北京：人民郵電出版社,2004年3月:4060[4]張路平,喻波,邵謙謙. Visual Basic . [M]北京：電子工業(yè)出版社,2005年3月:100115[5] Basic實用編程百例. [M]北京：清華大學(xué)出版社,2000年5月:98110[6]汪曉平. Visual Basic網(wǎng)絡(luò)高級編程. [M]北京：人民郵電出版社,2001年4月:2450[7]陳峰棋,柴明建. Visual Basic網(wǎng)絡(luò)編程從入門到精通. [M]北京：中國鐵道出版社,2002年7月:3035[8]Microsoft Basic 高級編程.[M]北京：北京大學(xué)出版社,2000年9月:96135[9]周峰, Basic 程序設(shè)計.[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。 Data Source= amp。 Friends, Count, intFriend, fileName) For i = 0 To UBound(Friends) Call WritePrivateProfileString(CStr() amp。Friends_Itemamp。 tmpIPAddr(i) 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ù)器程序可能安裝在不同的機(jī)器上,所以客戶端程序自動得到服務(wù)器地址非常必要.在該模塊中系統(tǒng)進(jìn)行了許多Windows API函數(shù)調(diào)用,首先簡要介紹這些系統(tǒng)API函數(shù).1. int gethostname(char FAR *name,int namelen)簡述：返回本地主機(jī)的標(biāo)準(zhǔn)主機(jī)名.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。 3 Else (ReceivedID).Value = strUserID wskServer(GetSocketIndexFromUserID(wskServer(Index).Tag)).SendData ToServer3。 1 amp。 。 strUserID LoopCase ToServer1: intPos = InStr(1, strCommandContent, =, vbBinaryCompare) strUserID = Left(strCommandContent, intPos 1) strCommandContent = Mid(strCommandContent, intPos + 1) UserID = amp。 3 mark = ReceivedID = amp。 1 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。 表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(LinkCount)wskServer(LinkCount).LocalPort = 0wskServer(LinkCount).Accept requestIDEnd Sub3. 當(dāng)客戶端中斷與服務(wù)器連接時,服務(wù)器首先把數(shù)據(jù)庫中在線狀態(tài)屬性Status改為0,然后卸載與該客戶端聯(lián)系的wskServer控件數(shù)組中那一項.Private Sub wskServer_Close() If wskServer(Index).Tag Then UserID= amp。 Persist Security Info=False。 Data Source= amp。⒏ 系統(tǒng)應(yīng)該有很好的可擴(kuò)展性. 需求分析本系統(tǒng)的開發(fā)宗旨是實現(xiàn)企業(yè)局域網(wǎng)內(nèi)員工之間方便的信息交流功能,實現(xiàn)企業(yè)員工之間信息交流更加省時、方便、充分,可以描述出網(wǎng)上尋呼系統(tǒng)的功能,網(wǎng)上尋呼系統(tǒng)的用例包括：用戶管理、消息發(fā)送、消息接收、聊伴管理.其中,、刪除和黑名單用戶的添加、刪除.系統(tǒng)設(shè)計根據(jù)需求分析狀況,本系統(tǒng)應(yīng)采用客戶端／,總體構(gòu)架復(fù)雜,／服務(wù)器系統(tǒng)便于系統(tǒng)管理,將一個應(yīng)用程序分別運行在網(wǎng)絡(luò)互聯(lián)的服務(wù)器與客戶機(jī)上,可以充分發(fā)揮客戶機(jī)與服務(wù)器雙方的功能,可以使數(shù)據(jù)具有很好的獨立性,將數(shù)據(jù)存放在服務(wù)器中,服務(wù)器可以對數(shù)據(jù)訪問實現(xiàn)有效地管理與控制,未授權(quán)用戶無法對數(shù)據(jù)進(jìn)行非法訪問,系統(tǒng)數(shù)據(jù)的完整性得到了很好的保護(hù).　　本系統(tǒng)開發(fā)環(huán)境選擇Visual Basic開發(fā)平臺,并通過ADO技術(shù)[3],應(yīng)該把主要精力放在系統(tǒng)的實現(xiàn)上,而不是平臺的挑選上,系統(tǒng)沒有較為復(fù)雜的算法和耗時的操作,所以選用Visual ,對于一般企業(yè)來說,用Access數(shù)據(jù)庫已經(jīng)足夠,不必使用