【正文】 明天,汪文勇. TCP/IP網(wǎng)絡(luò)原理與技術(shù)[M].北京:清華大學出版社,2001: 121～150 [5] 郭川軍,／IP網(wǎng)絡(luò)通訊系統(tǒng)的研究[J].信息技術(shù),2006,(5): 153～154[6] 強建國,馬曉,[J].蘭州理工大學學報,2005，31(5): 99～101[7] ／IP協(xié)議的網(wǎng)絡(luò)通信模式的實現(xiàn)[J].嘉興學院學報,2006, 18(5): 80～81 [8] [M].北京:人民郵電出版社,2002: 347～390 [9] [J].山西電子技術(shù),2003,(2)：1～2[10] [D]. 北京: 中國學術(shù)期刊雜志社,2003[11] Basic系統(tǒng)開發(fā)實例精粹[M].北京:人民郵電出版社,2005: 461～461[12] Anthony Jones. Network Programming for Microsoft Windows***************發(fā)送文件***************Private Sub sckSystem_DataArrival(ByVal bytesTotal As Long)blockSize = 2048Dim tempComData As String tempComData, vbStringDim Command As StringCommand = Mid(tempComData, 1, 1)39。等待直到連接上 DoEvents Loop GoTo BeginTransferEnd IfIf Command = CONTINUE_TRANSFER Then39。最后調(diào)整塊長度這樣就可以不用讀取太多數(shù)據(jù) If fileLength Loc(hIn) = blockSize Then blockSize = fileLength Loc(hIn) + 1 End If Temp = Space$(blockSize) 39。讀取數(shù)據(jù)塊 ret = DoEvents() 39。// Off it goes 39。 / amp。 發(fā)送. amp。 % DoEvents If sizeOfFileSent = sizeOfFile Then = 關(guān)閉 CLOSE_TRANSFER End If Exit SubEnd IfIf Command = CLOSE_TRANSFER Then GoTo endItExit SubBeginTransfer:39。 Adjust blocksize at end so we don39。+ 1 End If Temp = Space$(blockSize) 39。// Read a block of data ret = DoEvents() 39。// Off it goes 39。On Error GoTo endIt 39。 of amp。 sent. amp。 % If sizeOfFileSent = sizeOfFile Then = Close CLOSE_TRANSFER End If Exit SubErrorHandler: 39。SendFile = FalseendIt: 39。this severes the data connection, causing the client to save/end the file Close hIn MsgBox 完成傳輸！ Unload MeEnd Sub39。判斷服務(wù)器是否連接上 Dim ServerCommand As String ServerCommand 39。 amp。 amp。 Temp2 End If If Word(ServerCommand, 1) = .LogOff Then = 登錄 = False = False = False = 離線 = False = False End If If Word(ServerCommand, 1) = .AlreadyOnList Then MsgBox 這個用戶名已經(jīng)存在! End If If Word(ServerCommand, 1) = .UserInfo Then Dim NewfrmInfo As New frmInfo = Info on amp。 FileSendRemoteNick sendFile_01 , , FileSendRemoteIP, 1982, End If If Word(ServerCommand, 1) = .RecieveFile Then receiveFile_01 Word(ServerCommand, 2), 1983 End If If Word(ServerCommand, 1) = .RemoveBuddy Then On Error Resume Next For i = 1 To If InStr(1, (i).Key, Word(ServerCommand, 2)) Then i Exit For End If Next End If If Word(ServerCommand, 1) = .LoginGood Then = 進入服務(wù)器... Unload Connect .status Online = 在線 = True = True = True = True = True = True mnuOtherChatFile = True = True = True = True = True = True = False = False = False DoEvents .getbuddys = True ElseIf Word(ServerCommand, 1) = .LoginBad Then Dim reason As String reason = MidWord(ServerCommand, 4, Words(ServerCommand) 4) = 哦... = 看起來 If Word(ServerCommand, 2) = 0 Then = amp。 您的密碼錯誤！請重新輸入! ElseIf Word(ServerCommand, 2) = 2 Then = amp。 reason amp。 Word(ServerCommand, 3) amp。 您的數(shù)據(jù)因 amp。 而受禁止. ElseIf Word(ServerCommand, 2) = 4 Then = amp。 reason amp。 服務(wù)器過載,請稍候再試! ElseIf Word(ServerCommand, 2) = 6 Then = amp。 服務(wù)器已關(guān)閉! End If = vbBlack = vbBlack = True = True = True = 關(guān)閉 ElseIf Word(ServerCommand, 1) = .msg Then Dim NewReponseMessage As New GotMessage ownerform:=Me = 信息來自 amp。 ( amp。 )) = Trim(Word(ServerCommand, 2)) = Trim(Replace(Word(ServerCommand, 3), , )) = Trim(Replace(SplitString(ServerCommand, ..//..), //crlf\\, vbCrLf)) ElseIf Word(ServerCommand, 1) = .pushbuddyupdate Then On Error Resume Next For i = 1 To If InStr(1, (i).Key, Word(ServerCommand, 2)) Then (i).Image = Word(ServerCommand, 3) (i).SelectedImage = Word(ServerCommand, 3) Exit For End If Next ElseIf Word(ServerCommand, 1) = .pushbuddy Then Dim BuddyUserID Dim BuddyUserTitle 39。MsgBox Server pushed user amp。 to me! On Error Resume Next , tvwChild, BuddyUserID, BuddyUserTitle, BuddyStatus, BuddyStatus End If If Word(ServerCommand, 1) = .ClearBuddys Then End If If Word(ServerCommand, 1) = .msg2 Then ownerform:=Me = 由 amp。 發(fā)來的消息! = Word(ServerCommand, 2) = Word(ServerCommand, 2) = Word(ServerCommand, 2) = MidWord(ServerCommand, 3, Words(ServerCommand)) End If If Word(ServerCommand, 1) = .ServerMessage Then MsgBox 服務(wù)器消息: amp