‘创建TcpClient对象的实例

Client = New TcpClient

‘通过计算机名称和端口号连接到指定的计算机

Client.Connect(“192.200.0.100”,10200)
SendData =”由PPC传递过来的数据 – Author：Risen”

‘按一定的编码规则对要传递的数据进行编码 Buffer = Encoding.UTF8.GetBytes(SendData)

‘向已连接的服务程序发送数据

Client.GetStream().Write(Buffer, 0, Buffer.Length)

‘DataAvailable 指示NetworkStream 上是否有可用的数据。如果可以在流上读取数据，则为 true；

‘否则为 false，只要有数据存在就等待传输完毕

While Not Client.GetStream.DataAvailable()
　Application.DoEvents()
End While

‘接收由服务程序传递回客户端的数据并显示在对话框上

If Client.GetStream.DataAvailable() Then
　Client.GetStream().Read(InBuff, 0, InBuff.Length)
　rtndata = "服务程序已经成功收到指令，在" & System.Text.Encoding.Default.GetString(InBuff, 0, InBuff.Length)
　MsgBox(rtndata)
End If

‘断开连接、关闭对象并释放与 TcpClient 关联的所有资源

上一页  [1] [2] [3] [4] 下一页  

【责编:Youping】