【正文】 幀號為:%d\n,wrr[wrfront])。用戶聊天功能的實現(xiàn)需要在用戶登錄進入聊天室時建立一個鏈接，該鏈接由服務器端監(jiān)控，由此來實現(xiàn)用戶在線數(shù)量的控制和在線人數(shù)的顯示。其他創(chuàng)新功能包括了禁止某人發(fā)言或將某用戶踢出聊天室。 \) MsgBox (！) Else MsgBox (,安裝失敗!) End IfEnd IfEnd Sub 客戶端登錄并向服務器驗證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。 說： amp。 If = 0 Or = 所有人 Then amp。 recUser amp。 amp。 recUser amp。網(wǎng)絡即時通訊程序的編寫絕大部分由自己完成，僅在網(wǎng)上和書上參考查找了部分內(nèi)容。機械工業(yè)出版社第六部分：附錄 滑動窗口協(xié)議仿真include include define MAXSIZE 10 /*窗口大小，即隊列大小*/int i=0。typedef struct /*發(fā)送窗口*/{ send s[MAXSIZE]。typedef struct /*接收窗口*/{ int r[MAXSIZE]。void Init(wsend *ws,wrece *wr) /*對發(fā)送和接收窗口進行初始化*/{ wsfront=wsrear=0。 wss[wsrear].timeout=1。 return 1。 wrr[wrrear]=frame。 else if(frame(wss[wsrear1].snum)+1)printf(該幀不可發(fā)送！！\n)。\n,frame)。\n)。 /*發(fā)送窗口為空*/ if(ack[0]==wss[wsfront].snum) /*發(fā)送窗口進行確認處理*/ { wsfront=(wsfront+1)%MAXSIZE。 printf(發(fā)送窗口收到確認，窗口向后移動。 } else printf(無確認信息！！\n)。 printf(發(fā)送窗口:)。 printf(接收窗口:)。}main(){ int frame,a,flag=0。,ch,ACK。 ws=(wsend *)malloc(sizeof(wsend))。 while(end!=39。end!=39。 flag=1。 } if(flag==0) { printf(請輸入需傳送的幀號(0代表不輸入)：)。 if(err==0)printf(發(fā)送窗口已滿！\n)。 scanf(%d,amp。 ch=getchar()。 if(ACK==39。) { err=ACKNOWLEDGE(ws,ack)。||ACK==39。 while(awsrear) { wss[a].timeout++。 printf(程序結束?y/n:)。 \) = True Then Exit SubElse MsgBox (！準備安裝.....) If () = True Then Set fil = () (sysfilepath amp。在線人數(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 = 對 amp。 amp。客戶端請求退出 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。Call SendToOne(SystemOrder:IP重復，客戶端退出重進！, index) 39。 進入聊天室！～～～～～～～ userState(index) = 1 39。 人在線 Call SendToAllExcept(SystemOrder:addtolist amp。 038868 Next Call SendToOne(SystemOrder:addtolist amp?？蛻舳朔钦＝K止 Call Stop_sckServer(index, userState(index))End Sub39。 Chr(13) amp。在線人數(shù)減一 = amp。 未知原因被終止！～～～～～～ If State = 1 Then S = ～～～～～～ amp。 被管理員踢出聊天室～～～～～～ If State = 4 Then S = ～～～～～～ amp。從在線名單上刪除退出者 i + 1 = 0 user(index) = 39。 \) = True Then Exit SubElse MsgBox (！準備安裝.....) If () = True Then Set fil = () (sysfilepath amp。 userName amp。 說： amp。 userName amp。 說： amp。連接用去的秒數(shù) connect_OutTime = 3 39。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 連接服務器失?。? 0 + 16 + 0, 聊天室客戶端 = True End SubPrivate Sub AddToList(ss As String) ss ss = amp。 人在線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