/中南大學通信網原理課程設計報告班級：姓名：學號：指導老師：實驗地點:完成日期:電子信息工程系信息科學與工程學院目錄TOC\ｏ”1-3”\h\uHＹPＥRＬIＮK＼l_Tｏｃ255２5第一部分:課程設計的目的與任務?PＡＧEREF_Tｏc２5525１HYPERＬINＫ\l_Toc19359一、課程設計的目的?PAＧＥRＥＦ＿Toc1935９1ＨYPＥRＬINK\l＿Ｔｏc２3738二、課程設計的主要任務 PAＧEREＦ_Tｏc2３7３81HYPＥRLIＮK\l_Tｏc2６063第二部分：滑動窗口協議仿真 ＰAGEREＦ_Toc２60６３2ＨYPERLINK\l_Toｃ4242一、課程設計目的及要求 ＰAGEREF＿Toｃ424２2HYPERLIＮK\l_Ｔoc3２５3二、設計思想?PAＧEREF_Ｔｏc32５32HＹPＥRLINK\l_Toｃ３0６4４三、設計流程圖 PAＧＥREＦ_Toｃ3０6442HYPEＲLINK\l_Ｔoｃ23152四、開發環境?PAＧＥREF_Ｔoc231５24HYPERLINK＼l_Ｔoc１6707五、關鍵代碼分析?ＰAＧEＲＥＦ_Toc1６707４HYPERLIＮK\l_Toc1258４六、仿真運行 PＡGEREF_Tｏc125841０HYＰERLＩＮK\l_Ｔoc163９5第三部分:網絡即時通訊程序 ＰAGEＲEF_Toc16395１2HYPERLINK\l_Tｏc21６５9一、課程設計目的及要求?ＰAGEREF＿Ｔoc2165９12ＨYPEＲＬINK＼l_Tｏc31８５8二、設計思想?1２ＨYPERLＩNK＼l_Toc6344三、設計流程圖?ＰＡＧEREＦ_Tｏc63４41３ＨＹPERLINK\l＿Toｃ3１455四、開發環境?PAGEＲEF_Ｔoc3145514HYＰERＬIＮＫ\l_Tｏc595１五、關鍵代碼分析?PAGEＲＥＦ＿Tｏc5951１4ＨYPEＲLINK＼l_Toc６１1六、運行與調試?PAGＥREＦ_Toc61120HYPERＬＩNK＼l_Toc10141第四部分:課程設計心得體會?PAＧＥＲEＦ_Ｔoc1014１23HYＰＥRＬINＫ\l_Toｃ1９883第五部分：參考文獻 PＡGEREF_Toc19８8324HYPERLINK\l＿Ｔoｃ３２０61第六部分：附錄?ＰＡGEREF_Ｔｏc3２０6１2４HYPEＲLINＫ\ｌ_Toc8325一、滑動窗口協議仿真 ＰＡGEREF_Toｃ832５２4HＹＰERLＩNK＼l_Toｃ6953二、網絡即時通訊程序?PＡGＥREF_Ｔoc69533３第一部分:課程設計的目的與任務一、課程設計的目的通信網原理課程設計是為電子信息工程專業本科生開設的必修課，有2學分,既是對《通信網原理》課程實驗教學環節的補充，又是一門實踐性很強的綜合強化訓練課程。計算機網絡或Ｉntｅrｎｅt網已成為現代最重要的通信網,未來各種通信網都將以計算機網絡和IP協議為核心實現互連互通.因此，本課程設計的主要任務是在掌握計算機網絡ＴＣP/IP等典型協議原理的基礎上，通過編程設計對網絡協議或算法進行模擬實現，并應用相應網絡協議來開發一個網絡應用系統。其目的是通過將理論與實踐相結合,使學生進一步深入理解通信網的工作原理，掌握網絡應用開發技術，學會應用所學理論知識來分析和解決實際問題,培養網絡技術研究與開發的基本能力以及創新精神.課程設計的主要任務通過本課程教學，要求學生熟悉TＣP/ＩP協議工作機制、熟悉基于Soｃket的網絡通信程序的設計方法，熟練掌握至少一種編程語言及工具的使用。通過設計和調試有關程序，掌握一種網絡協議或算法的編程實現方法或具體應用,同時設計一個相對獨立的網絡應用程序。第二部分：滑動窗口協議仿真課程設計目的及要求程序按照滑動窗口協議實現端對端的數據傳送.包括協議的各種策略，如包丟失、停等應答、超時等都應有所仿真實現。顯示數據傳送過程中的各項具體數據；雙方幀的個數變化,幀序號,發送和接受速度，暫停或重傳提示等。增加其它附加創新功能。設計思想滑動窗口協議是TCP使用的一種流量控制方法。本次課程設計模擬仿真1比特滑動窗口協議,即停等協議.該協議規定，發送方每發送一幀后就要停下來，等待收到接收方正確接受的確定后再繼續發送下一幀。如果在規定的最大時延內沒有收到接收方的確認信號，則重新發送該幀。為了確認每次發送的幀是以前發過的還是新發送的,接收方需要發送方對每一幀加一個編號。由于停等協議規定只有一幀確認發送完成后才可以發送下一幀，因而只用一比特來編號就可以了。設計流程圖新數據或重發數據處理時間最大時延確認信號發送數據接收方發送方新數據或重發數據處理時間最大時延確認信號發送數據接收方發送方開發環境Window７，ＶC+＋關鍵代碼分析定義及初始化守法窗口typｅdeｆstruｃt/＊接收窗口＊/{?ｉnｔr[MＡXＳIＺE]；?inｔｆｒont； inｔreaｒ;｝wrece；voiｄInit(wsｅnd*wｓ，wrｅｃe*wr)/＊對發送和接收窗口進行初始化＊/{ ws－〉ｆront=ｗs-＞rear=0;?wr—＞ｆront=ｗr－＞rear＝0；}說明發送窗口的發送情況intSEＮＤ(wseｎｄ*wｓ，wrece*wｒ,intframｅ）｛?iｆ((ｗs－>rear+1)%ＭAＸＳＩZＥ=＝ws->frｏｎt)ｒｅｔｕrn0；/*發送窗口已滿*/ if(wｓ-＞frｏnｔ=＝ws—〉ｒeaｒ）/*若窗口為空，則直接進入＊/ {??ws—>s[ws—〉ｒeaｒ］。snum=fｒame;??wｓ－>s[ｗｓ-〉ｒｅar］。timｅｏut＝1； ?ｗs—>ｒｅａｒ=(ws—>rear+1）%MＡXSIＺE； wr—〉r［ｗｒ－>ｒｅar］＝frａme;? wｒ－〉rear=(wr->reａｒ+1)％MAXSＩZＥ;??rｅturn1； ｝?else/*若窗口不為空，則判斷是否是可傳送的幀＊/ ｛??iｆ（fｒａmｅ==(ws-〉s［wｓ—＞ｒｅar－1］.snｕm）+１)?{? ｗs—＞s［ws－>reaｒ］.snｕm＝fraｍｅ； ?wｓ—>ｓ[ws－>rear］.timeoｕt=１； ?wｓ－>reａｒ=(wｓ－＞rｅar+１）％MAXSIＺE;??wr—＞r[wr->reaｒ]=frａｍｅ；??wr-＞rｅar=（wr－＞ｒear＋1)%MAXSIＺE； ?rｅturｎ1; } elseiｆ(framｅ〈（ｗs->s［ｗｓ-＞reａr—１]。sｎum）+1)prinｔf(”該幀已發送！！\n")；?eｌｓeif(fｒame〉(ws—>s[ws—〉reａｒ－1］。ｓnuｍ）+1）prｉntf("該幀不可發送！!\ｎ"）；?}}說明接受窗口的接受情形intRECE(wrece*wr，intfｒaｍe，intａｃk［］）｛?if（wr->fronｔ＝=ｗr->rear）rｅturｎ０；／*接收窗口為空*/ else／＊接收窗口接收幀號，并返回確認*/?｛ if（wr－>r[ｗr－>fronｔ]=＝fｒａme)??{?? wr—>fｒont＝（wｒ—〉frｏnt+１)%ＭAＸSIＺE； ?pｒintｆ(＂第%d幀出接收窗口，向發送窗口返回確認。\n”，framｅ）;? ?acｋ［i]＝framｅ;? ｉ++; ?}? elsepriｎｔf（＂該幀不是期望收到的幀，舍棄。\n＂)；??reｔurn１; }}ｉntAＣKNＯWLEＤGE（wseｎd*ws，iｎtack[])｛?intｊ； ｉf（ｗｓ—＞ｆｒont==ws—〉ｒｅar)retuｒｎ０；/＊發送窗口為空＊/ ｉf(ack［０]==ws-〉ｓ［ws－〉fｒont]。snｕm）/*發送窗口進行確認處理*/ ｛??ws-＞froｎt＝（ws->ｆrｏnt+１)％ＭＡXＳＩZＥ； ?for（j=０；ｊ＜ｉ；j++） ? acｋ[ｊ］=ack［ｊ+1]; priｎｔｆ(”發送窗口收到確認,窗口向后移動.\n”)； ?ｉ-—;? retuｒn1； ｝?elｓeprintf(”無確認信息！！\n"）;｝vｏidPRIＮT(wsend*ws，wrece＊wr）｛?inta,b; a=wｓ->ｆront;?b=wr—〉froｎt； printｆ（"發送窗口：＂）； whiｌe（ａ<ws—>ｒｅａr）?｛ ?pｒiｎｔｆ（"%3d＂，ws—〉s[a］）； ?a++;?｝ ｐrintf（”\n");?printf（”接收窗口：”）;?wｈｉlｅ（b〈wｒ—>rear）?{ ｐｒｉntf(”%3d",wr－〉r［b］)； b++; }?printｆ("\n");}接受錯誤要求重新發送main（)｛ ｉｎtfｒａme，ａ,flag=0;/＊fｒａmｅ幀號,ａ指向窗口當前位置,fｌag是否有重發（0沒有，1有）＊/?iｎterr；?chａrｅnｄ=’n’，ch，ＡCK；?intａcｋ［5]；/*定義一個可存儲5個確認信息的＊/ wsend*ws;?wｒｅｃe＊ｗr； ws=（wsｅnd*)ｍalｌｏc（ｓizeｏf（wｓenｄ））; ｗr＝(wｒecｅ*）malloc（ｓiｚｅｏf(wrecｅ））；?Init(ws，wｒ）；?ｐrintf（＂程序開始運行＼ｎ＂); while(end!=’y’&＆eｎd!=’Y'）?｛? ? ?/＊傳送處理＊/??a=ｗs—＞front;whｉle(a<ws—>ｒeaｒ) { ??if（ws－＞ｓ［a].ｔimeout==６）? { ?wｓ－〉ｓ［a］．ｔimeoｕt=１； ? ?flag＝1；? printf(”重發第%ｄ幀\n＂，ws—〉ｓ[a］）;???｝ ?elsewｓ-〉s［ａ]。tiｍｅout+＋； ? ａ++； ｝ ?if（flag＝=0) ｛?? printｆ(”請輸入需傳送的幀號（0代表不輸入）:”）; ?scanｆ（”％d＂,＆ｆrame）; ? if(frame!＝0） ｛ ???ｅrr=SEND（ws，ｗr，fｒａme)；? ｉf（err==0)ｐｒintf(＂發送窗口已滿！＼n＂)；? ｐriｎtf（”接收窗口期待接收到的幀號為：％d\ｎ”，ｗr－>ｒ[wｒ—＞froｎt］）；???? ｝? ｝仿真運行第三部分：網絡即時通訊程序課程設計目的及要求用戶登錄功能：客戶端登錄到聊天服務器，服務器管理所有登錄的客戶，并將客戶列表及狀態發送到各個客戶端顯示;用戶呼叫功能:用戶可通過客戶端向服務器發起呼叫請求；服務器搜索被呼叫的用戶,如果檢測到此用戶處于在線狀態，則通知此用戶的客戶端程序；當被叫用戶做出響應后,在主叫方和被叫方之間建立連接，雙方就可以聊天或進行媒體流傳輸；用戶消息也可以通過服務器轉發，實現一對一和多對多聊天；增加其它附加創新功能。設計思想實現網絡即時通訊的基本思想是由客戶端將信息發送到服務器端,然后由服務器端判斷將信息發往某個特定的用戶還是所有用戶。為實現用戶登錄功能，可以建立一個用戶信息的數據庫或文件,來實現用戶的登錄或注冊.用戶聊天功能的實現需要在用戶登錄進入聊天室時建立一個鏈接,該鏈接由服務器端監控，由此來實現用戶在線數量的控制和在線人數的顯示.當某一用戶發起對另一用戶的聊天請求時，由服務器端判斷該用戶是否在線,規定只能向在線用戶發送消息。若該用戶在線，則將發送用戶發送來的消息通過鏈接轉發到接收用戶的客戶端上，由客戶端顯示。如果發送用戶發送的消息是對所有人的,則將該消息轉發至所有人。其他創新功能包括了禁止某人發言或將某用戶踢出聊天室。禁止發言通過對其鏈接的屏蔽，踢出用戶則是由服務端斷開其鏈接，從而達到踢出某用戶的目的.設計流程圖退出登錄踢出禁言服務器客戶端建立鏈接并監聽進入聊天室驗證登錄服務器端客戶端退出登錄踢出禁言服務器客戶端建立鏈接并監聽進入聊天室驗證登錄服務器端客戶端開發環境Wｉｎdow7，SQＬsｅｒvice2005，VisualBasic關鍵代碼分析服務器設置聊天室最大人數并驗證登錄PrivateＳubCｏmmaｎd１＿Click()MａxＣhａｎ=Vａｌ(Tｅxｔ1.Text)ＩfMａxＣhan<１OｒMaxChan>１０0ThenText1．Text="”Ｔeｘｔ1.SｅtFocusElsｅfrmＳerveｒ。ShowUnｌoａdMeEｎdIfEndＳubPrivaｔｅＳubForｍ_Loaｄ()DimAsStｒｉngsｙs=fｓo．GetSpeｃiａlFolder（1)Iｆfso。（ｓyｓ&＂\Msｗinsck．ocｘ"）=TｒuｅTｈenExiｔSubElseMsｇBox（”Mｓwinscｋ。ｏｃx不存在！準備安裝。.。..”)Iｆfｓｏ。（＂Mｓwinscｋ。ｏｃx”）=TrｕｅThenＳetfil=fso。GeｔFiｌe（"Mｓwinsck。ocx＂）fil.Copｙ（syｓ＆＂\”)MｓgBoｘ（”Ｍswinsck.oｃk安裝成功！”)ElseMｓgBoｘ（”當前文件夾找不到Ｍswiｎsck.oｃｘ，安裝失敗!”）EｎｄＩfEnｄIfEndSｕb客戶端登錄并向服務器驗證ＰrivａｔeSuｂＣomｍand1_Clｉck（)SeｒvｅrIP＝ReadＳｅｒvｅrIＰ（＂Setup.ini＂）userNaｍｅ＝Trim(Text1。Tｅxt）IfuserNamｅ=””ＴheｎMsgBox”姓名不能為空!＂Ｔeｘt1。ＳetFocusExｉtＳuｂEndIｆLoaｄｆrmClieｎtＣommand１．Enabled=ＦａlseEndSuｂPrｉvateSubFoｒm_Load(）DimAsStｒingsys＝fｓo.GｅｔＳpeｃialＦoldeｒ(１）Iffso.（sys＆＂＼Msｗinｓck．ocx")=TrueTｈｅｎEｘitSｕｂＥｌｓeＭsｇBｏx（"Mswiｎsck。ocx不存在！準備安裝．.。。.”）Iffｓo.（"Mswinsck.ocx”)＝TｒueThｅnSetfil=fso.GetFiｌe（"Mswｉnscｋ。ｏｃx＂)fｉl。Copy(sys&"＼")ＭsgBox("Ｍswｉnｓck。oｃk安裝成功！＂)ElｓeＭｓgBoｘ（＂當前文件夾找不到Ｍswinｓck。oｃx,安裝失敗！”）EndIｆEnｄIｆ建立并監聽鏈接PubｌicFunctioｎReａdServeｒIP（AsStriｎg）AsStrｉngDimｓsAsＳtringcs＝”＂ss=””OpｅnFｏｒInputAｓ#1LineＩnpuｔ#1，ssClose#1RｅadSｅrｖerIP=Miｄ（ss，2，Lｅn（ss)-２）EndFunｃtiｏｎ禁言與踢出功能的實現ＰriｖatｅＳｕbＣoｍmand1_Ｃliｃk(）ＤiｍｉndeｘAｓInteｇｅrDiｍSAsStringDiｍrｅcＵｓｅrAsＳtringＳ=Ｔｒiｍ（Ｔext2.Ｔext）Text2.Ｔｅｘｔ=＂"recUseｒ=Ｃoｍbo1.TexｔIfｒｅｃUser=”所有人”ThenIfＳ=”ＳystemOrｄer：禁言"ＴhｅｎFｏri=０ToＭaｘCｈａn—1ｕserStatｅ(i)＝2NexｔEnｄIfＥlｓeinｄex=FiｎdSckInｄex(ｒecUsｅr）ＩfＳ＝＂SysｔemOrdｅr:禁言"ＴhenuserStatｅ（indｅx）=2CａllSendＴｏOne(S，index)EndIfIfrecUsｅｒ＝"所有人＂ThｅnIfS=＂SyｓｔeｍOrder：踢出”TｈenForｉ＝0ToMaｘChａn－1ｕseｒState(i）=3NexｔEｎｄIfElseiｎdeｘ=FindＳcｋIndｅx（recUser）IｆＳ="SysteｍOｒder：踢出”ＴhenuserStaｔe(indｅｘ）＝3ＣallSendTｏOne(S,ｉndex）EndIfＳ=＂對”&recUseｒ&＂說：＂&SCallAdｄToTexｔ1（Ｓ)EｎdＳｕbIｆs="SｙstemOrder:踢出"ThensckClient.ClosｅMsｇBox＂很抱歉，你被管理員踢出！"UｎlｏａｄMeExitSubＥnｄIfＩｆs="SystemOrdeｒ:禁言"Tｈenｎ=1MｓgBoｘ”很抱歉,你被管理員禁言!"’UｎloadMeExｉtSubEndＩf私聊與公聊的實現ＰrivateSubcmｄSend_Ｃｌiｃk（）DiｍrｅcＵsｅｒAｓStriｎgIｆn＜>1TheｎｒｅcＵser=Cｏｍbｏ1.TｅxtIｆCombo1.Texｔ<>”所有人”TheｎrecUser=＂<"&rｅｃＵsｅr&"〉＂IfＣhｅｃk1.Vａｌue=０OｒCombo1.Teｘｔ="所有人"ThenｓｃｋClient.ＳｅndDaｔa”<”&userＮame&”＞”＆＂對"＆recUｓer&"說：＂＆txｔSend．TexｔＤoEｖｅntｓＥlseｓckＣlｉｅnt.SendDataCoｍbo１。Tｅxt＆"０３8868ＳeｎdTｏOne"＆＂＜”＆ｕserName&"〉"&”悄悄對”&recUser&＂說:"＆ｔxｔＳｅｎd．TextDoEvｅnｔｓＥnｄＩｆtxｔSeｎd。Text=”"ElseEndｓub運行與調試第四部分：課程設計心得體會通過此次課程設計,實踐鞏固了《通信網原理》課程中學到的知識,并在實踐中練習了TCP/IP協議的使用.在滑動窗口協議的仿真中，由于能力不足,只能簡單的做了一比特滑動窗口協議即停等協議的仿真,而且沒有做到可視化界面，總體來說不盡人意。網絡即時通訊程序的編寫絕大部分由自己完成，僅在網上和書上參考查找了部分內容.此次課程設計不光是《通信網原理》課程的延伸，也是對以后網絡基礎的鋪墊。還有通過自己動手編寫程序,鍛煉了我的編程能力.第五部分:參考文獻吳功宜、吳英編著。《計算機網絡技術教程——自頂向下的分析與設計方法》．北京:機械工業出版社，2010謝希仁。《計算機網絡》（第4版).北京:電子工業出版社。劉韜,駱娟《ViｓｕａｌBasic數據庫通用模塊及電信系統開發》。機械工業出版社第六部分：附錄滑動窗口協議仿真＃incｌude”stdiｏ．ｈ＂#ｉncludｅ＂ｍaｌloc．h”＃defｉｎeＭＡXＳＩZＥ10／＊窗口大小，即隊列大小*／iｎti=0；／＊全局變量，代表當前指向確認表的位置＊/tｙｐedeｆｓｔrｕct／＊發送窗口每幀的數據*/｛?intsnum; ｉnttｉmeout；/*非0時代表發送計時，=6時表明超時＊／}sｅnｄ;ｔypeｄｅfｓｔｒuｃt／＊發送窗口*/｛ sends[MAＸＳIZE］; intfrｏnt;?inｔｒeａr;}wｓend;ｔypedeｆstｒuct/＊接收窗口*／{ intr［MAXSIZE］; intｆｒont; ｉnｔreａr;｝wreｃｅ；ｖｏidInｉt(wseｎd＊wｓ,ｗrece*wr）／＊對發送和接收窗口進行初始化*／{ ws－>fｒoｎt=ws->rear=０; wr-〉frｏnt＝wr-＞rear=0；}intSＥND（wsｅnd*ｗs，wrece＊wr，ｉｎtｆraｍe){ if(（ws－＞ｒeａｒ+1)％MAXSIＺE==ws-〉fｒｏnt）retｕrn0；／*發送窗口已滿＊/?if(wｓ—＞froｎt=＝ws－＞rear)／＊若窗口為空,則直接進入＊/?{? ｗs—〉s［wｓ—＞reａr］.sｎum＝frame；? ws－＞s[wｓ->ｒear]．tｉmeout=1; ws－＞ｒear＝(ｗs—>ｒｅａr+1）％MＡＸＳＩＺE；? ｗr—〉r[wｒ－>reaｒ]=fraｍe；? wr—＞ｒｅａr=(wr—〉rｅar＋１)％MＡＸＳIZＥ； return1； ｝?ｅｌｓe/＊若窗口不為空，則判斷是否是可傳送的幀＊/?{ if（frame=＝（ws-〉ｓ[ｗs—>ｒｅar－1]．sｎuｍ）＋1) { ?wｓ—〉s[ws—>rear]。sｎｕｍ=frame;??ws—〉ｓ［ws—〉rear].timｅｏuｔ＝１;? ｗｓ－>rear=(ws—〉rｅar+1）%ＭAXSIZＥ； ?ｗr->r［wr->rｅaｒ]=frame； wr—＞reａr＝(wｒ－〉rear+１）%MAXＳIZE；??ｒetuｒn１； ｝?eｌｓeif（fｒamｅ〈(ws-〉s［ws—＞rear-1］．ｓnum)+1）priｎtf（＂該幀已發送!!\n＂）;?elsｅiｆ(ｆｒaｍe〉（ws->ｓ［ws—＞reaｒ－1].snum）+1）priｎｔf("該幀不可發送！！\ｎ”）;?}}inｔRECE（ｗreｃe＊wｒ，iｎｔfｒamｅ，intack[］）｛ iｆ(ｗr－〉front==wr—>rｅar）rｅtｕｒn0；/＊接收窗口為空*/?elｓｅ/*接收窗口接收幀號，并返回確認＊／ ｛? iｆ(wr—〉ｒ［wｒ－〉front］==ｆｒame) ?{? ?ｗr－>ｆrｏnt=（wr—〉fｒont+1）%ＭAXＳIＺE;?? prｉntｆ（”第%ｄ幀出接收窗口，向發送窗口返回確認.\ｎ”,frame）；? ?ack［i]=fraｍｅ;? i++；??｝??eｌseprintｆ（"該幀不是期望收到的幀，舍棄。\n”）； ?rｅｔurn1； ｝｝intACKNＯWLEＤGＥ（ｗｓend*ws，inｔａck［]）｛?iｎtj； ｉｆ(wｓ—>frｏｎt==ｗs->rear）return0；/*發送窗口為空＊／?if（ack[0］＝=ws—>s［ws－〉ｆront］．snum)/*發送窗口進行確認處理*/?{ ?ｗs－〉fｒｏnt=（ws-〉fｒont＋1)％ＭAＸSＩZE；? foｒ（j＝０；j＜i;j++) acｋ［j］＝ａck[j+1]; pｒintf("發送窗口收到確認,窗口向后移動。＼ｎ＂)；??i-－; ?returｎ１;?}?elseprintｆ（＂無確認信息！!\ｎ")；｝ｖoidPRＩNT（wｓeｎd＊ws，ｗｒece*wｒ）{ iｎta,ｂ; a=ｗs－〉frｏnt;?ｂ=wｒ—＞fronｔ；?prｉnｔｆ（"發送窗口:”)；?ｗhiｌe(ａ<ws-〉rｅar） ｛? prｉntf（"%3d＂，ws—〉ｓ［a］）;? a++; ｝ pｒintf（”\n”)； pｒｉntf("接收窗口:＂)；?while（ｂ<ｗｒ－＞reaｒ) {? priｎtf（"%３ｄ”，wr—>r[ｂ])； ?b+＋; ｝ prｉnｔf（"\n")；}maｉn（){ intｆrame,a，ｆlag=０;/＊fraｍe幀號，ａ指向窗口當前位置，fｌag是否有重發(0沒有，1有）＊/ iｎterr;?chaｒend=’n’，ch，ＡCK；?ｉntack［5];／*定義一個可存儲5個確認信息的＊/ ｗｓｅnd＊ws;?wrｅcｅ*wｒ；?wｓ=(wsend＊）mallｏc(sizeof（wsｅnd））； wr=（ｗrece＊)maｌlｏc(sizｅof（ｗｒece））；?Ｉnit（wｓ，wr）; ｐrｉntf(”程序開始運行\ｎ")； whiｌe（eｎd!='y＇&&end！=’Ｙ')?{ ? ? /*傳送處理*/ ?a=ｗs－＞frｏｎt;ｗhile(a〈ws-〉ｒear）? { ??ｉｆ（ｗｓ—〉s[a]．ｔimeout==6） ??{? ??ws－〉s［a］.tｉmeout＝１; flag=1;??? prｉntｆ（”重發第％d幀\ｎ",wｓ－＞s［a]); ??} ?ｅlｓｅws－〉s[a］.timeout++;? a++；??｝ ?if(ｆｌaｇ==0) ｛?? prｉntｆ(”請輸入需傳送的幀號（０代表不輸入）：”);? ?scａnf（"%d”，&frａme）; iｆ（ｆrame！=０)?? ｛ ? ?err=SENＤ(ws,ｗｒ，ｆｒamｅ）； ? ｉf(err==0)printｆ("發送窗口已滿!\n")；??? printf（”接收窗口期待接收到的幀號為：％d＼n",wｒ-〉r[wr—>fｒonｔ]); ??? ?｝? ｝? cｈ＝ｇeｔchar（）；? ? /*接收處理*/? printｆ（＂請輸入需接收的幀號（0代表不輸入):"）； ?ｓcaｎf（”％ｄ"，＆fraｍe)；??if(frame！=０）err=REＣＥ(wr，ｆrame,aｃk)； ?if（ｅｒr=＝0）pｒiｎｔｆ（＂接收窗口已空,沒有接受的幀!\n");??ｃh=ｇetchａr(）； ? /*幀確認處理*／ priｎｔf（”是否進行確認？（y/n)：”）;? scaｎf（”％c”,＆ＡCK）;??iｆ（ACK＝='y’｜|ACK＝＝'Ｙ＇)??{???eｒｒ=ACＫＮＯWＬEDＧＥ（ws，ack）; if（erｒ==0）ｐriｎtf(”發送窗口已空！沒有需確認的幀！\n”）； ?}? eｌseｉf（AＣK==＇n＇|｜ACK==’N’）/＊已發送幀的計時器加1*/ ｛ ?prinｔf(”不接收確認!＼n”）；?? a=ws—〉front； ? whilｅ(a<ws->rear）???{? ??ws－>ｓ［a］.ｔimeout+＋；?? a++; ? ｝ } ｃh＝getｃｈar（); /＊打印窗口幀號＊/ ?ＰRIＮＴ（wｓ，wｒ)； pｒｉntf(”程序結束？y/n：＂）；? ｓcanf(＂%c"，＆end); ｝｝網絡即時通訊程序服務器端1．１:登錄窗體ＤimｆsoＡsＮewDiｍfiｌAsFｉｌePｒivatｅＳuｂCommand1＿Ｃlick（）ＭaxChan=Val（Text1.Ｔeｘt）ＩfMaxChａｎ〈1OrＭaxChan＞1０0ＴhenＴexｔ1。Teｘｔ=”＂Tｅxｔ1。SetFocusElsefrmＳerver．ＳhoｗUnloadMeEｎdＩfEｎdSuｂPriｖateSuｂForm_Load（）DiｍAsＳｔｒinｇsyｓ=ｆso.GeｔSpｅcialFolｄｅr(１）Ｉffso．（ｓｙs＆"\Ｍｓｗinsｃk。oｃx"）=TｒuｅThenＥxｉｔＳubElseMsgBox（”Mswinsck．ｏcｘ不存在！準備安裝．。.．。"）Iffso．(＂Mswinｓcｋ。ｏcx”)=ＴrueＴhenSetｆil=fso.ＧetFiｌｅ（"Mswｉnsｃk。ｏcx＂）fil.Ｃｏpｙ(syｓ＆"\＂）MsgBｏｘ（＂Mswｉnscｋ。ock安裝成功！＂）EｌｓeＭsｇＢoｘ(＂當前文件夾找不到Ｍswinsck.ｏcx，安裝失敗!＂）EndIfEndＩfEndSub1．2:聊天室服務器窗體DimHigＡsLoｎｇDimcoｎＡsIntegerＤｉｍuseｒIP(）AsSｔｒｉｎｇＤimuｓｅr（）ＡsStrｉng'在線名單DｉmuｓerSｔａte(）AｓＩｎteｇｅr’—1請求退出0離線１正常在線2只能看不能發言３正在被踢4客戶端非正常終止DiｍｚxrｓAsInteger’在線人數PrｉｖａtｅSubＣommand1_Ｃlｉck(）DｉmｉndexAsＩntegerDimＳAsＳtrｉngDimｒecＵserＡsStrｉngＳ=Trim（Text2．Text)Teｘt2。Teｘt=”"rｅｃUser=Combo1.TextIfrｅcUser="所有人"TｈｅnIfＳ="SysteｍOｒder：禁言＂TｈｅｎFori=0ToMaxChan-1uｓerSｔate（i)=２NextEｎdIｆEｌseiｎdex=FindSckInｄex(ｒecUｓer）ＩfS=＂SｙｓteｍOrｄer：禁言＂ThenuseｒSｔate（indeｘ）=2CａｌｌSｅndToOnｅ（S，ｉndex）ＥndIfIfreｃUser=”所有人＂ThenIfＳ=”SｙsteｍOrｄer:踢出＂ThenFori=0ToMaxChan-1userStａte（i）=3NｅxtEnｄIfＥｌseindeｘ=FinｄSckIndｅｘ(recUsｅr)IfＳ=＂SyｓｔｅｍOrｄｅr：踢出”ThｅnuserSｔatｅ(ｉndex）=3ＣallSeｎdToOnｅ(S，inｄex)EndIｆS＝"對"＆reｃUser＆"說:"&SCaｌlAddToText1（S)ＥnｄＳｕbPriｖａteＳubＦorm＿Load()ＲｅDimｕserＳｔate(MａxCｈan)ReDｉｍuｓer（ＭaxChan）ReＤｉmuserIＰ(MaxChan)DiｍiＡsIｎtｅｇerＨｉg=24ｚxｒｓ=0Fori=1ToMaｘCｈan-1LoadscｋＳerveｒ(i)NextiscｋＬｉsteｎ．LｏｃalPoｒt=1000sckLiｓｔen．ＬｉstｅｎCｏｍbｏ1。ＡddItem"所有人＂Combo1．ListInｄeｘ=0EnｄＳubPｒivａｔeSubHSｃrｏll１_Cｈanｇe（)Text1.Left=—５0—HSｃｒoll1。Vａｌue＊1０EｎdSｕbPｒｉｖateSｕｂLiｓｔ1_Cliｃk（)MsgBoxsckServer（ＦｉndＳｃkIndex(Ｌiｓt1。List(Lisｔ1．ＬisｔＩｎdex）））．RemoteＨostIP＆""＆sckSerｖｅr（FindSｃｋInｄｅｘ（List１．List(Lｉst1.ListＩｎｄex)）).RｅmoｔePortEnｄSubＰｒｉvatｅSubsｃkBusy＿Ｃlose()sｃkBuｓｙ．CｌoseEndSubPrｉvateSubsckBusy_DaｔaArriｖａl（BｙVaｌｂytｅsＴoｔaｌAsLong)scｋBusy.SenｄData"SｙstemOrder：服務器忙，請稍后再連接！"DoEvｅntsEｎdSｕbPｒiｖateSubsｃkListen_ConnectioｎRequest(ByValｒequestＩDAｓLoｎg）DiｍｉAsIntｅｇer＇決定由哪一Ｗｉnsock接受請求Fori=0ToMaxＣhａn—1IｆsｃkSｅｒveｒ（i）.Ｓtａｔe=０ThenExitFｏrEnｄIfNeｘtiIfｉ＝MaxＣhanTheｎｓckＢｕsy．CｌosesckBusy。ＡcceptreqｕeｓｔIＤEｘｉtSｕｂEｎｄIfIfsckSｅｒver（i）。Statｅ=０ThenｓckＳerｖer(i)。ＡcceｐtrｅqｕｅstIDEｘitSubＥndＩf＇如果所有Winsocｋ都用完則由專門的“忙”Ｗinsock接受請求，以免用戶要求得不到響應EｎdＳubPrivaｔeSubsckLｉsten_Erｒｏr（ByVaｌNuｍberＡsIntｅgeｒ,DｅscriptionAsSｔｒiｎｇ,BｙVaｌＳｃｏdeAsＬong，ByValSｏurcｅＡsStrinｇ,ByVａlＨelpStriｎｇ，ByＶalHeｌpConｔexｔAsLong，CaｎcelＤisplayAｓＢoｏlｅan）sｃkLisｔen。CloseｓcｋLisｔen.LocalＰort＝1000scｋListeｎ.LｉstenEnｄSｕbPrｉvａtｅSuｂｓckServer_Ｃlosｅ（inｄexAsＩｎｔeger)ＩfuserＳｔaｔe（iｎｄex）=2ThenusｅrStatｅ(inｄex)=-1IｆｕｓｅrＳtate（index）=1TｈenuserStaｔe(indeｘ）=-１’客戶端請求退出CallSｔop_sckSｅrver（ｉｎdex，useｒSｔａte（ｉnｄex)）EｎdSubPrivatｅSubsckServer_DａｔaＡrrivaｌ(indeｘAsIｎteｇer，ByValbytesＴotalAsＬong)ＤｉmSAsStrinｇＤimssAｓＳｔrｉngDiｍiAsＩnｔegerＤimrecUｓeｒＡsSｔriｎgDｉmsenUsｅrAsStrｉngDｉmseｎＩPAsSｔriｎｇｓcｋServer（iｎdex).GeｔDａtaＳ'接收信息到sＩfuserStatｅ(index)=0Then＇如果是剛進來，wｉnｓｏcｋ尚未使用的話senUseｒ＝Tｒｉm(S)senIP＝scｋSｅrvｅr（ｉｎdex）．ＲemoteHostＩPＩｆInSｔr(１，senUser，"*")=1TheｎseｎＵsｅr=Rｉght（sｅｎUsｅr，Leｎ(senUser)—1）ＥlｓeIfｃｈeｃkUｓerNamｅ(senUser)=1TｈenCalｌSendTｏOnｅ("SｙｓtｅmOrｄer：姓名重復，客戶端退出重進!＂，ｉndex）ＥxitSuｂEｎdＩf'IfcheckＵserIP（senＩP)=1Then'CａｌlＳenｄTｏOne（"ＳyｓｔemOrｄer：IＰ重復,客戶端退出重進！”，ｉndeｘ）'ＥｘiｔSub'EndIｆEnｄIfS=”～～～~～~歡迎”&senUsｅr＆"進入聊天室！~~~～～~～"ｕsｅrState(index）=1'設置用戶狀態為正常在線user(ｉndex）=sｅｎUserusｅrＩP（index)=senIPLisｔ１。AddItｅmuser（index)'加入到在線列表Ｃomｂo1.AddItemuseｒ（indｅx）zxｒｓ＝zxrs+1pｔion=””＆ｚxrs&”人在線"CａlｌＳendTｏAｌlEｘcepｔ（”SyｓtemOrｄｅｒ:addtoliｓｔ"＆ｕser(indeｘ)＆"０3８86８",inｄex）Ｆori＝0TｏLisｔ1.LｉstCｏunt—１ｓs=sｓ&Lisｔ1.Ｌist（i）＆"038８６８”NexｔＣａllSendToOｎe（”SystemＯrder:addｔoｌist”&ss,indeｘ）EndIfIfInStr（1，Ｓ，"03886８SendＴoOnｅ”）=0ＴheｎCallSeｎdＴoＡll(S）’廣播方式ElserecＵser=Ｌｅft（S，InStｒ（1,S，”０38868SendToOｎｅ")－１）S＝Rｉght(S，Len（S)－Len（rｅｃUseｒ）—Ｌen(＂038８6８ＳenｄＴoOｎe"））ＣａllSendToOｎe（S,ＦindSckInｄex（ｒecUsｅr））Ifusｅr（indeｘ）＜>ｒecUserThenCalｌSｅｎdToＯne（S,inｄex）EnｄIf'將所發信息也寫入服務器CallAdｄToTexｔ1（S）ＥnｄSｕbPrｉvateSubsckServer_Eｒｒor（indｅxＡsInｔeger，ByVaｌNuｍbｅrAsInteger,DescriptｉonＡsStriｎg，_ByVａｌＳcoｄeAsLong,BｙValＳouｒceAsStrｉｎg,ＢyＶaｌHelｐＳtｒinｇ，ByVaｌHｅlpＣoｎtextAs＿Ｌoｎg,CancelDisplayAsBｏoleaｎ）uｓｅrState（indｅｘ）=４'客戶端非正常終止ＣallStop_sｃkServer(inｄex，userＳtate(index))ＥｎdＳuｂ'利用wiｎsｏcｋ的Ｓtate屬性給所有連接在服務器上的客戶發消息PrivateSubSeｎｄToＡll(msgＡsString)Fori＝0ToMaxCｈan-1IｆｓckServer（i）．Stａte=7ＴheｎsckＳｅrｖeｒ（ｉ).SeｎdDataTrim（msｇ）DoＥvｅｎtsEｎｄIfＮextiＥｎdSub'給某個人發信息ＰrivａteＳｕbＳendToOｎｅ(msgＡsString,indexＡsＩnｔeger）IfsckSerｖer（ｉnｄex).Ｓtate=７ThｅｎsckServer（indｅx）。ＳenｄＤatamsｇDｏＥｖｅｎtｓEnｄIfEndＳｕbPｒivatｅSｕbＳｅndTｏAlｌＥxｃept(ｍsｇＡsString，ｉndexAsIntｅgｅr)Ｆｏri=0TｏMaxChａn-１IfｓcｋSerｖeｒ（i).Ｓtatｅ=7Andｉndex〈>ｉThｅｎsｃｋＳｅrｖer(i)。ＳendＤａtaTrim（mｓg)ＤoEveｎtｓＥndIfＮexｔiEnｄSubPｒivａtｅSubＡddToText１（SAsStｒｉnｇ）hang=Ｌen（S)ｃon=con＋1Ifｃon〉2４ThenTexｔ1．Heｉgｈt=Ｔext1。Heighｔ+57６０/２4VSｃrolｌ１。Miｎ=VScroll1。Mｉn+１Texｔ１.Top=Texｔ１.Ｔop-5７60/２4EnｄIfTexｔ１。Tｅxｔ=Ｔexｔ1。Ｔext＆Ｓ&Cｈr(1３)＆Chｒ(１0)EndSｕbPｒivateSｕbVScroll１_Chaｎge（)ChanｇHeｉｇht=VＳcｒoll１。Ｖalue－ＨｉgTｅxt1.Tｏp＝Texｔ1.Top+ChａngＨeighｔ＊(57６０/24）Hig=VSｃroｌｌ1.VaｌuｅEｎdＳｕbPrｉvateFunctioｎFindScｋInｄex（ＵseｒNameＡsSｔring)Ｆｏri=0TｏMaxChan-1Iｆuｓeｒ(i）=UseｒNameTｈeｎExitFｏrNeｘtFindSckIｎdex=iＥndFunctionPrivatｅFunｃtionchｅckUserＩP（IPAsStriｎｇ）AsInｔegerｃheckUserIP＝0Fori＝0ToMaxChan—1IｆuｓｅrＩＰ(i)＝IPＴｈｅncｈeckＵｓeｒＩP=１ExitFoｒＥｎdIfNextEndFunctiｏnPrivａteFｕnctioncheｃkUseｒNamｅ（UｓeｒNameAsString）ＡsＩｎtegｅrｃhｅcｋＵsｅrNamｅ=0Fori=０ToMａｘChan—1Ifusｅr（ｉ）=UsｅrNａmｅThｅncｈeckUserNaｍe=1ExｉｔＦｏｒEndＩｆNｅxtEndFuncｔioｎＰriｖatｅSubSｔoｐ_sckServｅｒ(indexAｓＩntｅger，ＳtａteAｓIntegｅr)'Staｔe=—1正常終止'Stａtｅ＞0非正常終止ＤimSAsStrｉnｇsckServer（ｉnｄex）.ClosｅIfuserStａtｅ（index)<>0Ｔhｅnｚxrs=zｘrs—１’在線人數減一ptｉｏn=""&zxrs&”人在線”S=＂～~~~～～"＆user（indeｘ）&"未知原因被終止！～~～～～～＂IfState=—1ThenS="~～~～～~”＆ｕsｅr(index)＆＂退出聊天室～~～～~～”IfSｔａｔe=３ＴｈeｎS="～~~~～～"＆user（ｉndex）&＂被管理員踢出聊天室～～～～～~”ＩfState＝４ThenＳ＝”~～～～～~"&user(iｎdex）＆"非正常退出！～～～~～～"CaｌlＳendToAｌl（S）DoEventsCａllSｅndＴoAｌl（"SｙsｔeｍOｒdeｒ:rｅmovｅｆromlisｔ”＆uｓer(iｎｄex）)Forｉ=0TｏLｉsｔ1．ＬisｔCｏunt-１IfLisｔ1.List（i）=ｕｓer（inｄex）ThenExitForNeｘｔList1。ReｍoｖeItemi’從在線名單上刪除退出者Cｏmbo1。RemoveItｅmi＋1Coｍbo1．LiｓtIndｅｘ=0usｅｒ(index)="＂'清除退出者姓名記錄userIＰ（index）="”'清除退出者IP記錄userSｔate（indeｘ)=0’設置用戶狀態為離線CalｌAddToＴext1(Ｓ）EndIfEndSub1．3：模塊PuｂｌicMaxCｈａnAｓIｎtｅger客戶端2．1：登錄窗體ＤiｍｆsｏAsNewDimｆｉｌAｓFｉｌePｒｉvａｔeSubCommaｎd１＿Cｌｉcｋ（)ＳｅrｖｅrIＰ=ＲeadＳｅrｖerIP("Setｕp．ｉni”)useｒＮａmｅ＝Trim（Ｔexｔ1.Tｅxt）IfusｅrName＝"”ThenＭsgBox"姓名不能為空！＂Tｅｘt1。ＳeｔＦｏｃuｓEｘitSｕbEｎdIfLoadfrｍＣlｉｅnｔCommanｄ1。Enaｂｌed=FaｌsｅEnｄSubPrivateSubForm_Loaｄ（)DimAｓSｔｒinｇsys＝fｓo。GｅtSpeciaｌFｏlｄeｒ(１）Ｉfｆso．(sys&”\Mswinｓcｋ。ocx"）=TrueＴhenExiｔSubEｌｓeMsgBoｘ(”Mｓｗinsck。ocx不存在！準備安裝．。。。.")Iffso．(”Msｗｉnｓcｋ．oｃx"）＝TruｅＴhｅnSｅｔfil=ｆｓo.ＧetＦiｌe(”Ｍsｗinsck．ocx”)ｆil。Copy（sys&”\")MsｇBｏｘ（”Mswinｓｃk.ock安裝成功！”）ElseMsｇＢox（”當前文件夾找不到Msｗinsｃk。ocx,安裝失敗!")EndIfEnｄIｆEｎdＳuｂPrivatｅSｕｂＩmagｅ1_Cliｃk(）ＥndSuｂＰrivateSｕbSetIＰ_Cliｃk（）fｒmSetIP.ＳhｏwＥｎdSuｂ2。2：服務器IP設置窗體PrivａｔeSubcmdOK_Cliｃk（)WｒiteSeｒverＩP(”Setｕp.inｉ＂)UｎloaｄMeEnｄSubＰrivaｔeＳubCｏmmａnd1_Click（)UnloadMeEndＳubＰｒｉｖateFuncｔiｏｎWrｉtｅSｅrverIP（AsString）ＡsSｔｒingDimssAsStｒinｇOｐenＦorOutｐutAs＃1Wriｔe＃１,Teｘt1。TextClose＃1EndFunctionＰriｖaｔｅSｕｂFｏrｍ_Loａd(）Teｘt１。Tｅxt=ReadＳｅrverIP(＂Ｓｅｔup。ｉni＂)ＥｎｄSuｂ2。3:客戶端聊天室窗體DｉｍnAsＩnｔeｇerDimＨｉgAsLongＤｉmconAｓInｔｅｇeｒＰｒivａｔｅSuｂConnｅctServer()OnＥrrorGoＴoErrorProsckClient．ＣoｎｎｅｃtExｉtSｕｂErrorPro:MsgＢox”服務器未開或網絡出錯!"ＥndＥnｄSｕbPriｖaｔｅSuｂcｍdＳeｎｄ_Cliｃｋ（)DiｍｒecUｓerAｓStringIfn<>１TｈｅｎrecUsｅｒ=Ｃoｍbo1。TextＩfＣｏｍbo1。Text〈>”所有人”ThｅnｒｅcUser＝"<"＆recUser&”＞”IfＣheck1．Value=０OrCombo1。Text＝"所有人”ThenscｋClient.ＳendData＂＜＂&userNａme&"〉＂&＂對＂＆recUsｅr&"說：”＆ｔxtSend．ＴexｔDoEveｎtsElsｅscｋClient.SendDａｔaCoｍbo１.Teｘt＆＂038８68SeｎdToOｎe"&"〈"＆userName&＂〉＂&”悄悄對＂＆rｅcUsｅｒ＆"說:＂＆tｘtSend。TextＤｏEvｅntsEndIftｘtＳｅｎd．Text＝"＂ElseｔxtSｅnｄ。Text＝"”MｓgBox”很抱歉，你被管理員禁言！”EnｄIfEnｄSubＰriｖateSubｃmdClｓ_Click（)Teｘt1。Text=＂"Text1.Ｈeiｇｈｔ＝4６8０Text1.Top＝-50VScroll1。Max=19VＳcrｏｌl1。Mｉn=19Hig＝19ｃon=0EndSｕｂＰｒiｖaｔeSubcmdExit_Clicｋ（)UｎloaｄMｅＥndSｕbPrivａｔeSubComｍaｎｄ1_Click（)sckＣlｉｅnt．SendDataTｅxt２.TｅxtEnｄＳuｂPrｉｖatｅSubForm＿Loaｄ（）pｔｉon=uｓerNaｍeHig=１9'ReｍoteCompｕｔerNａmｅ為服務器端的計算機名或IP地址。Msgｎuｍ=0conｎectｉng_Ｔｉｍe=0＇連接用去的秒數cｏｎnｅct_ＯutTimｅ＝3'連接超時時限為3秒sｃkCｌiｅｎt。RemoteHｏst=ＳｅｒveｒＩPsckClienｔ.RｅmotｅPｏｒt＝１０00ＣaｌｌConｎｅｃｔServerＣomｂo1.AddItｅｍ"所有人"Comｂo１．LｉstIndeｘ=0EndSｕbPrivatｅSubForｍ_Unlｏad(ＣａｎｃeｌＡsIｎteger）scｋCｌｉｅnｔ。CｌoseＥｎdSubＰrｉvatｅSｕbＨＳｃroll1＿Ｃhange()Ｔext1．Ｌｅft＝—50-ＨＳcrolｌ1.Value＊10EｎdSuｂPriｖaｔeＳubsckCｌient_Cloｓe（)MsgBoｘ”服務器通道已關閉！",0+16+0,"聊天室客戶端”EndEndSubPrivateSubsｃkClient_Connect()scｋＣｌiｅnt．ＳｅndDatauｓerNａmeＩfIｎStr（1，useｒNａmｅ，"＊”)＝1TｈｅnusｅｒName=Ｒight（ｕｓeｒNａme,Lｅｎ（ｕsｅrＮame）-1）EndＩfEｎdSuｂPrｉvateSｕbsckCｌｉenｔ_ＤａtaArrival(BｙValbｙtesＴotａlAsLong）DiｍsAsStriｎｇMsgnｕm=Msgnum＋1sckClｉeｎｔ．ＧetＤataｓ＇ＭsｇBoxｓIｆInＳtr（１，ｓ,＂ＳystemOrdｅr:")=1ThenIfs＝”SｙｓtｅｍOｒｄer:服務器忙，請稍后再連接！”ＴｈensckＣlｉent.ＣｌoseMｓgＢox”聊天室人滿為患，請稍后再進!”ｍaｎｄ１。Enabled＝TrueUｎloadMeExitSubEndIfIfs=”SystemOrdｅr：IP重復,客戶端退出重進！”ＴhenscｋClient.ClｏseMｓgBoｘ"您不能使用同一個IP地址重復登錄!"ｍａnd１。Enabled=TｒuｅUｎｌoaｄMeExｉtＳubEｎdＩfIｆｓ=”ＳysｔｅｍOrｄer:姓名重復,客戶端退出重進!＂ThensｃkCｌｉenｔ.CloseMsｇBｏｘ"很抱歉,這個姓名有人正在使用,請換一個再試!”mａnd１。Enaｂled＝TruｅUnloadMeＥxitSubEnｄＩfIfｓ=”SystemOｒdeｒ：踢出”ＴｈｅｎsｃｋClient．ＣloseMsgBox＂很抱歉，你被管理員踢出！＂UnloadMｅEｘitＳuｂEndIfIfs=＂ＳｙstemOrder:禁言＂Ｔｈｅnn=１MsgBox”很抱歉,你被管理員禁言！”’UnloaｄMeExitSubＥｎdＩｆIfＩnＳtｒ(1,ｓ,”SystemＯrdｅr：ａｄｄtolist"）=1Thens=Ｒiｇhｔ（s,Len(ｓ)-２1）'MsgBoxsCaｌlＧetUsｅrｓName(s)