【正文】 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。利用winsock的State屬性給所有連接在服務器上的客戶發(fā)消息Private Sub SendToAll(msg As String) For i = 0 To MaxChan 1 If sckServer(i).State = 7 Then sckServer(i).SendData Trim(msg) DoEvents End If Next iEnd Sub39。 ss, index) End If If InStr(1, S, 038868SendToOne) = 0 Then Call SendToAll(S) 39。 user(index) amp。設置用戶狀態(tài)為正常在線 user(index) = senUser userIP(index) = senIP user(index) 39。Exit Sub 39。接收信息到 s If userState(index) = 0 Then 39。 sckServer(FindSckIndex(())).RemotePort End Sub Private Sub sckBusy_Close() End Sub Private Sub sckBusy_DataArrival(ByVal bytesTotal As Long) SystemOrder:服務器忙，請稍后再連接！ DoEvents End Sub Private Sub sckListen_ConnectionRequest(ByVal requestID As Long) Dim i As Integer 39。 recUser amp。 \) MsgBox (！) Else MsgBox (,安裝失敗!) End IfEnd IfEnd Sub：聊天室服務器窗體Dim Hig As LongDim con As IntegerDim userIP() As StringDim user() As String 39。 scanf(%c,amp。 a++。N39。 if(err==0)printf(發(fā)送窗口已空！沒有需確認的幀！\n)。y39。 /*幀確認處理*/ printf(是否進行確認？(y/n):)。frame)。 printf(接收窗口期待接收到的幀號為:%d\n,wrr[wrfront])。 scanf(%d,amp。 printf(重發(fā)第%d幀\n,wss[a])。Y39。y39。 wr=(wrece *)malloc(sizeof(wrece))。 int ack[5]。 /*frame幀號，a指向窗口當前位置，flag是否有重發(fā)（0沒有，1有）*/ int err。 while(bwrrear) { printf(%3d ,wrr[b])。 while(awsrear) { printf(%3d ,wss[a])。}void PRINT(wsend *ws,wrece *wr){ int a,b。\n)。 for(j=0。 return 1。 ack[i]=frame。 }}int RECE(wrece *wr,int frame,int ack[]){ if(wrfront==wrrear) return 0。 wrrear=(wrrear+1)%MAXSIZE。 } else /*若窗口不為空，則判斷是否是可傳送的幀*/ { if(frame==(wss[wsrear1].snum)+1) { wss[wsrear].snum=frame。 wsrear=(wsrear+1)%MAXSIZE。 wrfront=wrrear=0。 int front。 int front。 /*全局變量，代表當前指向確認表的位置*/typedef struct /*發(fā)送窗口每幀的數據*/{ int snum。此次課程設計不光是《通信網原理》課程的延伸，也是對以后網絡基礎的鋪墊。 說： amp。 userName amp。 說： amp。 userName amp。 S Call AddToText1(S) End Sub If s = SystemOrder:踢出 Then MsgBox 很抱歉，你被管理員踢出！ Unload Me Exit Sub End If If s = SystemOrder:禁言 Then n = 1 MsgBox 很抱歉，你被管理員禁言！ 39。 \) = True Then Exit SubElse MsgBox (！準備安裝.....) If () = True Then Set fil = () (sysfilepath amp。禁止發(fā)言通過對其鏈接的屏蔽，踢出用戶則是由服務端斷開其鏈接，從而達到踢出某用戶的目的。當某一用戶發(fā)起對另一用戶的聊天請求時，由服務器端判斷該用戶是否在線，規(guī)定只能向在線用戶發(fā)送消息。 } } 仿真運行第三部分：網絡即時通訊程序 課程設計目的及要求 用戶登錄功能：客戶端登錄到聊天服務器，服務器管理所有登錄的客戶，并將客戶列表及狀態(tài)發(fā)送到各個客戶端顯示； 用戶呼叫功能：用戶可通過客戶端向服務器發(fā)起呼叫請求；服務器搜索被呼叫的用戶，如果檢測到此用戶處于在線狀態(tài)，則通知此用戶的客戶端程序；當被叫用戶做出響應后，在主叫方和被叫方之間建立連接，雙方就可以聊天或進行媒體流傳輸； 用戶消息也可以通過服務器轉發(fā)，實現一對一和多對多聊天； 增加其它附加創(chuàng)新功能。frame)。 } else wss[a].timeout++。) { /*傳送處理*/ a=wsfront。amp。 Init(ws,wr)。 /*定義一個可存儲5個確認信息的*/ wsend *ws。 char end=39。 b++。 a++。 a=wsfront。 i。ji。 }}int ACKNOWLEDGE(wsend *ws,int ack[]){ int j。 i++。 /*接收窗口為空*/ else /*接收窗口接收幀號，并返回確認*/ { if(wrr[wrfront]==frame) { wrfront=(wrfront+1)%MAXSIZE。 return 1。 wss[wsrear].timeout=1。 wrr[wrrear]=frame。} 說明發(fā)送窗口的發(fā)送情況int SEND(wsend *ws,wrece *wr,int frame){ if((wsrear+1)%MAXSIZE==wsfront)return 0。 int rear。為了確認每次發(fā)送的幀是以前發(fā)過的還是新發(fā)送的，接收方需要發(fā)送方對每一幀加一個編號。 設計思想滑動窗口協(xié)議是TCP使用的一種流量控制方法。第二部分：滑動窗口協(xié)議仿真 課程設計目的及要求 程序按照滑動窗口協(xié)議實現端對端的數據傳送。因此，本課程設計的主要任務是在掌握計算機網絡TCP/IP 等典型協(xié)議原理的基礎上，通過編程設計對網絡協(xié)議或算法進行模擬實現，并應用相應網絡協(xié)議來開發(fā)一個網絡應用系統(tǒng)。計算機網絡或Internet 網已成為現代最重要的通信網，未來各種通信網都將以計算機網絡和IP 協(xié)議為核心實現互連互通。通過設計和調試有關程序，掌握一種網絡協(xié)議或算法的編程實現方法或具體應用，同時設計一個相對獨立的網絡應用程序。 增加其它附加創(chuàng)新功能。如果在規(guī)定的最大時延內沒有收到接收方的確認信號，則重新發(fā)送該幀。 int front。 wrfront=wrrear=0。 wsrear=(wsrear+1)%MAXSIZE。 } else /*若窗口不為空，則判斷是否是可傳送的幀*/ { if(frame==(wss[wsrear1].snum)+1) { wss[wsrear].snum=frame。 wrrear=(wrrear+1)%MAXSIZE。 }} 說明接受窗口的接受情形int RECE(wrece *wr,int frame,int ack[]){ if(wrfront==wrrear) return 0。 ack[i]=frame。 return 1。 for(j=0。\n)。}void PRINT(wsend *ws,wrece *wr){ int a,b。 while(awsrear) { printf(%3d ,wss[a])。 while(bwrrear) { printf(%3d ,wrr[b])。 /*frame幀號，a指向窗口當前位置，flag是否有重發(fā)（0沒有，1有）*/ int err。 int ack[5]。 wr=(wrece *)malloc(sizeof(wrece))。y39。Y39。 printf(重發(fā)第%d幀\n,wss[a])。 scanf(%d,amp。 printf(接收窗口期待接收到的