計(jì)算機(jī)網(wǎng)絡(luò)實(shí)驗(yàn)網(wǎng)絡(luò)編程(參考版)
2024-09-08 13:47本頁面
【正文】 vbCrLf Exit Sub err: MsgBox End Sub Private Sub TcpClient_Close() (1).Text = 服務(wù)器關(guān)閉…… End Sub 。該事件用來接收從服務(wù)器反回的數(shù)據(jù)，并顯示 On Error GoTo err Dim sData As String sData = amp。發(fā)送輸入的文本 sSend = Trim$() sSend Exit Sub err: MsgBox End Sub Private Sub TcpClient_Connect() 39。設(shè)置默認(rèn)連接的服務(wù)器名和端口 = 1024 = sunny End Sub Private Sub cmdTCPCnn_Click() If Trim$() = vbNullString Or _ Trim$() = vbNullString Then MsgBox 請(qǐng)輸入遠(yuǎn)程主機(jī)名和端口！ Exit Sub End If = Trim$() = CLng(Trim$()) End Sub Private Sub cmdTCPClose_Click() On Error GoTo err 39。具體代碼如下： Option Explicit ‘全局變量聲明 Dim HostName As String * 256 Dim HostIP As String Private Sub Form_Load() 39。 vbCrLf If sData = getcourse Then scourse 39。同時(shí)相集合中加入該客戶端的地址 requestID err: MsgBox End Sub Private Sub WinsockTCP_DataArrival(ByVal by
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1