【正文】 End SubPrivate Sub Form_Unload(Cancel As Integer) End SubPrivate Sub HScroll1_Change() = 50 * 10End Sub Private Sub sckClient_Close() MsgBox 服務(wù)器通道已關(guān)閉！, 0 + 16 + 0, 聊天室客戶(hù)端 End End Sub Private Sub sckClient_Connect() userName If InStr(1, userName, *) = 1 Then userName = Right(userName, Len(userName) 1) End If End Sub Private Sub sckClient_DataArrival(ByVal bytesTotal As Long) Dim s As String Msgnum = Msgnum + 1 s 39。 amp。 amp。清除退出者姓名記錄 userIP(index) = 39。 user(index) amp。 Chr(10)End SubPrivate Sub VScroll1_Change()ChangHeight = Hig = + ChangHeight * (5760 / 24)Hig = End SubPrivate Function FindSckIndex(UserName As String) For i = 0 To MaxChan 1 If user(i) = UserName Then Exit For Next FindSckIndex = iEnd FunctionPrivate Function checkUserIP(IP As String) As Integer checkUserIP = 0 For i = 0 To MaxChan 1 If userIP(i) = IP Then checkUserIP = 1 Exit For End If NextEnd FunctionPrivate Function checkUserName(UserName As String) As Integer checkUserName = 0 For i = 0 To MaxChan 1 If user(i) = UserName Then checkUserName = 1 Exit For End If NextEnd FunctionPrivate Sub Stop_sckServer(index As Integer, State As Integer) 39。 ss, index) End If If InStr(1, S, 038868SendToOne) = 0 Then Call SendToAll(S) 39。設(shè)置用戶(hù)狀態(tài)為正常在線 user(index) = senUser userIP(index) = senIP user(index) 39。接收信息到 s If userState(index) = 0 Then 39。 recUser amp。 scanf(%c,amp。N39。y39。frame)。 scanf(%d,amp。Y39。 wr=(wrece *)malloc(sizeof(wrece))。 /*frame幀號(hào)，a指向窗口當(dāng)前位置，flag是否有重發(fā)（0沒(méi)有，1有）*/ int err。 while(awsrear) { printf(%3d ,wss[a])。\n)。 return 1。 }}int RECE(wrece *wr,int frame,int ack[]){ if(wrfront==wrrear) return 0。 } else /*若窗口不為空，則判斷是否是可傳送的幀*/ { if(frame==(wss[wsrear1].snum)+1) { wss[wsrear].snum=frame。 wrfront=wrrear=0。 int front。此次課程設(shè)計(jì)不光是《通信網(wǎng)原理》課程的延伸，也是對(duì)以后網(wǎng)絡(luò)基礎(chǔ)的鋪墊。 userName amp。 userName amp。 \) = True Then Exit SubElse MsgBox (！準(zhǔn)備安裝.....) If () = True Then Set fil = () (sysfilepath amp。當(dāng)某一用戶(hù)發(fā)起對(duì)另一用戶(hù)的聊天請(qǐng)求時(shí)，由服務(wù)器端判斷該用戶(hù)是否在線，規(guī)定只能向在線用戶(hù)發(fā)送消息。frame)。) { /*傳送處理*/ a=wsfront。 Init(ws,wr)。 char end=39。 a++。 i。 }}int ACKNOWLEDGE(wsend *ws,int ack[]){ int j。 /*接收窗口為空*/ else /*接收窗口接收幀號(hào)，并返回確認(rèn)*/ { if(wrr[wrfront]==frame) { wrfront=(wrfront+1)%MAXSIZE。 wss[wsrear].timeout=1。} 說(shuō)明發(fā)送窗口的發(fā)送情況int SEND(wsend *ws,wrece *wr,int frame){ if((wsrear+1)%MAXSIZE==wsfront)return 0。為了確認(rèn)每次發(fā)送的幀是以前發(fā)過(guò)的還是新發(fā)送的，接收方需要發(fā)送方對(duì)每一幀加一個(gè)編號(hào)。第二部分：滑動(dòng)窗口協(xié)議仿真 課程設(shè)計(jì)目的及要求 程序按照滑動(dòng)窗口協(xié)議實(shí)現(xiàn)端對(duì)端的數(shù)據(jù)傳送。計(jì)算機(jī)網(wǎng)絡(luò)或Internet 網(wǎng)已成為現(xiàn)代最重要的通信網(wǎng)，未來(lái)各種通信網(wǎng)都將以計(jì)算機(jī)網(wǎng)絡(luò)和IP 協(xié)議為核心實(shí)現(xiàn)互連互通。 增加其它附加創(chuàng)新功能。 int front。 wsrear=(wsrear+1)%MAXSIZE。 wrrear=(wrrear+1)%MAXSIZE。 ack[i]=frame。 for(j=0。}void PRINT(wsend *ws,wrece *wr){ int a,b。 while(bwrrear) { printf(%3d ,wrr[b])。 int ack[5]。y39。 printf(重發(fā)第%d幀\n,wss[a])。 printf(接收窗口期待接收到的幀號(hào)為:%d\n,wrr[wrfront])。其他創(chuàng)新功能包括了禁止某人發(fā)言或?qū)⒛秤脩?hù)踢出聊天室。 說(shuō)： amp。 recUser amp。 recUser amp。機(jī)械工業(yè)出版社第六部分：附錄 滑動(dòng)窗口協(xié)議仿真include include define MAXSIZE 10 /*窗口大小，即隊(duì)列大小*/int i=0。typedef struct /*接收窗口*/{ int r[MAXSIZE]。 wss[wsrear].timeout=1。 wrr[wrrear]=frame。\n,frame)。 /*發(fā)送窗口為空*/ if(ack[0]==wss[wsfront].snum) /*發(fā)送窗口進(jìn)行確認(rèn)處理*/ { wsfront=(wsfront+1)%MAXSIZE。 } else printf(無(wú)確認(rèn)信息??！\n)。 printf(接收窗口:)。,ch,ACK。 while(end!=39。 flag=1。 if(err==0)printf(發(fā)送窗口已滿(mǎn)！\n)。 ch=getchar()。) { err=ACKNOWLEDGE(ws,ack)。 while(awsrear) { wss[a].timeout++。 \) = True Then Exit SubElse MsgBox (！準(zhǔn)備安裝.....) If () = True Then Set fil = () (sysfilepath amp。 amp。Call SendToOne(SystemOrder:IP重復(fù)，客戶(hù)端退出重進(jìn)！, index) 39。 人在線 Call SendToAllExcept(SystemOrder:addtolist amp?？蛻?hù)端非正常終止 Call Stop_sckServer(index, userState(index))End Sub39。在線人數(shù)減一 = amp。 被管理員踢出聊天室～～～～～～ If State = 4 Then S = ～～～～～～ amp。 \) = True Then Exit SubElse MsgBox (！準(zhǔn)備安裝.....) If () = True Then Set fil = () (sysfilepath amp。 說(shuō)： amp。 說(shuō)： amp。MsgBox s Call GetUsersName(s) If = 7 Then = False Unload frmLogin Exit Sub End If If InStr(1, s, SystemOrder:removefromlist) = 1 Then Call RemoveFromlist(s) Exit Sub End If End If Call AddToText1(s) End Sub Private Sub sckClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Unload Me MsgBox 連接服務(wù)器失敗！, 0 + 16 + 0, 聊天室客戶(hù)端 = True End SubPrivate Sub AddToList(ss As String) ss ss = amp