【正文】 人在線End SubPrivate Sub GetUsersName(s As String)Dim user As StringDim i As Integeri = 0s = Trim(s)If s = Then Exit Subuser = dividemsgleft(s, 038868)Call AddToList(user)s = Trim(dividemsgright(s, 038868))GetUsersName (s)End SubPrivate Function dividemsgleft(s1 As String, s2 As String) dividemsgleft = Left(s1, InStr(1, s1, s2) 1)End FunctionPrivate Function dividemsgright(s1 As String, s2 As String) dividemsgright = Right(s1, Len(s1) InStr(1, s1, s2) 5)End FunctionPrivate Sub AddToText1(s As String)con = con + 1If con 19 Then = + 4560 / 19 = + 1 = 4560 / 19End If = amp。連接用去的秒數(shù) connect_OutTime = 3 39。 userName amp。 userName amp。從在線名單上刪除退出者 i + 1 = 0 user(index) = 39。 未知原因被終止！～～～～～～ If State = 1 Then S = ～～～～～～ amp。 Chr(13) amp。 038868 Next Call SendToOne(SystemOrder:addtolist amp。 進(jìn)入聊天室！～～～～～～～ userState(index) = 1 39?？蛻舳苏?qǐng)求退出 Call Stop_sckServer(index, userState(index)) End Sub Private Sub sckServer_DataArrival(index As Integer, ByVal bytesTotal As Long) Dim S As String Dim ss As String Dim i As Integer Dim recUser As String Dim senUser As String Dim senIP As String sckServer(index).GetData S 39。在線人數(shù)Private Sub Command1_Click() Dim index As Integer Dim S As String Dim recUser As String S = Trim() = recUser = If recUser = 所有人 Then If S = SystemOrder:禁言 Then For i = 0 To MaxChan 1 userState(i) = 2 Next End If Else index = FindSckIndex(recUser) If S = SystemOrder:禁言 Then userState(index) = 2 Call SendToOne(S, index) End If If recUser = 所有人 Then If S = SystemOrder:踢出 Then For i = 0 To MaxChan 1 userState(i) = 3 Next End If Else index = FindSckIndex(recUser) If S = SystemOrder:踢出 Then userState(index) = 3 Call SendToOne(S, index) End If S = 對(duì) amp。 printf(程序結(jié)束?y/n:)。||ACK==39。 if(ACK==39。 scanf(%d,amp。 } if(flag==0) { printf(請(qǐng)輸入需傳送的幀號(hào)(0代表不輸入)：)。end!=39。 ws=(wsend *)malloc(sizeof(wsend))。}main(){ int frame,a,flag=0。 printf(發(fā)送窗口:)。 printf(發(fā)送窗口收到確認(rèn)，窗口向后移動(dòng)。\n)。 else if(frame(wss[wsrear1].snum)+1)printf(該幀不可發(fā)送?。n)。 return 1。void Init(wsend *ws,wrece *wr) /*對(duì)發(fā)送和接收窗口進(jìn)行初始化*/{ wsfront=wsrear=0。typedef struct /*發(fā)送窗口*/{ send s[MAXSIZE]。網(wǎng)絡(luò)即時(shí)通訊程序的編寫絕大部分由自己完成，僅在網(wǎng)上和書上參考查找了部分內(nèi)容。 amp。 If = 0 Or = 所有人 Then amp。 \) MsgBox (！) Else MsgBox (,安裝失敗!) End IfEnd IfEnd Sub 客戶端登錄并向服務(wù)器驗(yàn)證Private Sub Command1_Click() ServerIP = ReadServerIP() userName = Trim() If userName = Then MsgBox 姓名不能為空！ Exit Sub End If Load frmClient = FalseEnd SubPrivate Sub Form_Load() Dim filepath As String sysfilepath = (1)If (sysfilepath amp。用戶聊天功能的實(shí)現(xiàn)需要在用戶登錄進(jìn)入聊天室時(shí)建立一個(gè)鏈接，該鏈接由服務(wù)器端監(jiān)控，由此來實(shí)現(xiàn)用戶在線數(shù)量的控制和在線人數(shù)的顯示。 scanf(%d,amp。Y39。 wr=(wrece *)malloc(sizeof(wrece))。 /*frame幀號(hào)，a指向窗口當(dāng)前位置，flag是否有重發(fā)（0沒有，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。如果在規(guī)定的最大時(shí)延內(nèi)沒有收到接收方的確認(rèn)信號(hào)，則重新發(fā)送該幀。通過設(shè)計(jì)和調(diào)試有關(guān)程序，掌握一種網(wǎng)絡(luò)協(xié)議或算法的編程實(shí)現(xiàn)方法或具體應(yīng)用，同時(shí)設(shè)計(jì)一個(gè)相對(duì)獨(dú)立的網(wǎng)絡(luò)應(yīng)用程序。因此，本課程設(shè)計(jì)的主要任務(wù)是在掌握計(jì)算機(jī)網(wǎng)絡(luò)TCP/IP 等典型協(xié)議原理的基礎(chǔ)上，通過編程設(shè)計(jì)對(duì)網(wǎng)絡(luò)協(xié)議或算法進(jìn)行模擬實(shí)現(xiàn)，并應(yīng)用相應(yīng)網(wǎng)絡(luò)協(xié)議來開發(fā)一個(gè)網(wǎng)絡(luò)應(yīng)用系統(tǒng)。 設(shè)計(jì)思想滑動(dòng)窗口協(xié)議是TCP使用的一種流量控制方法。 int rear。 wrr[wrrear]=frame。 return 1。 i++。ji。 a=wsfront。 b++。 /*定義一個(gè)可存儲(chǔ)5個(gè)確認(rèn)信息的*/ wsend *ws。amp。 } else wss[a].timeout++。 } } 仿真運(yùn)行第三部分：網(wǎng)絡(luò)即時(shí)通訊程序 課程設(shè)計(jì)目的及要求 用戶登錄功能：客戶端登錄到聊天服務(wù)器，服務(wù)器管理所有登錄的客戶，并將客戶列表及狀態(tài)發(fā)送到各個(gè)客戶端顯示； 用戶呼叫功能：用戶可通過客戶端向服務(wù)器發(fā)起呼叫請(qǐng)求；服務(wù)器搜索被呼叫的用戶，如果檢測(cè)到此用戶處于在線狀態(tài)，則通知此用戶的客戶端程序；當(dāng)被叫用戶做出響應(yīng)后，在主叫方和被叫方之間建立連接，雙方就可以聊天或進(jìn)行媒體流傳輸； 用戶消息也可以通過服務(wù)器轉(zhuǎn)發(fā)，實(shí)現(xiàn)一對(duì)一和多對(duì)多聊天； 增加其它附加創(chuàng)新功能。禁止發(fā)言通過對(duì)其鏈接的屏蔽，踢出用戶則是由服務(wù)端斷開其鏈接，從而達(dá)到踢出某用戶的目的。 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。 說： amp。 說： amp。 /*全局變量，代表當(dāng)前指向確認(rèn)表的位置*/typedef struct /*發(fā)送窗口每幀的數(shù)據(jù)*/{ int snum。 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])。 /*幀確認(rèn)處理*/ printf(是否進(jìn)行確認(rèn)？(y/n):)。 if(err==0)printf(發(fā)送窗口已空！沒有需確認(rèn)的幀！\n)。 a++。 \) MsgBox (！) Else MsgBox (,安裝失敗!) End IfEnd IfEnd Sub：聊天室服務(wù)器窗體Dim Hig As LongDim con As IntegerDim userIP() As String