最新使用vb設計聊天室多點對多點網(wǎng)絡程序設計-資料下載頁
2025-07-07 14:30本頁面
【正文】 lTIme = lTIme + 1 Wend If lTIme = 100000 Then MsgBox 找不到服務器！, vbCritical, Connection Error Exit Sub End If = True = TrueEnd Sub主要作用：實現(xiàn)與服務器的連接。Private Sub cmdSend_Click() Dim FName_Only As String If txtFileName = Then MsgBox 你沒有選擇要發(fā)送的文件..., vbCritical Else If sckClosed Then FName_Only$ = GetFileName(txtFileName) SendFile FName_Only$ End If End IfEnd Sub主要作用：發(fā)送文件。Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long) Dim Command As String Dim NewArrival As String Dim Data As String Static DataCnt As Long NewArrival$, vbString Command$ = EvalData(NewArrival$, 1) Data$ = EvalData(NewArrival$, 2) Select Case Command Case Accepted 39。 server accepted connection bReplied = True Status 連接. Case ServerClosed Form_Load Case OpenFile 39。 open the file Dim Fname As String Fname$ = amp。 \ amp。 Data$ Open Fname$ For Binary As 1 Status 文件打開.... amp。 Data$ Case CloseFile 39。 close the file Close 1 Status 文件發(fā)送成功... Pause 3000 Status Connected. Case Else Put 1, , NewArrival$ txtView = txtView amp。 NewArrival$ DataCntamp。 = DataCntamp。 + 1 Status 接收數(shù)據(jù)... amp。 (MAX_CHUNK * DataCntamp。) amp。 bytes End SelectEnd Sub主要作用：判斷連接狀態(tài)。圖6 編輯客戶端文件傳輸窗口運行結(jié)果圖7 運行客戶端主窗口圖8 客戶端進行連接圖9 輸入服務端端口號圖10 輸入服務端IP地址………………五、設計總結(jié)…………六、設計心得…………七、參考文獻………………
公司管理相關(guān)推薦
鄂ICP備17016276號-1