vb代码关于tcp ip做客户端的代码
时间: 2023-12-08 20:01:56 浏览: 34
下面是一个简单的VB代码示例,用于创建一个TCP/IP客户端:
```vb
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class TcpClientExample
Public Shared Sub Main()
Dim serverIP As String = "服务器IP地址"
Dim serverPort As Integer = 8888
Dim client As New TcpClient()
Try
client.Connect(serverIP, serverPort)
Dim stream As NetworkStream = client.GetStream()
While True
' 发送消息给服务器
Dim message As String = "Hello, server!"
Dim data As [Byte]() = Encoding.UTF8.GetBytes(message)
stream.Write(data, 0, data.Length)
' 接收服务器的响应
data = New [Byte](256) {}
Dim responseData As String = String.Empty
Dim bytes As Int32 = stream.Read(data, 0, data.Length)
responseData = Encoding.UTF8.GetString(data, 0, bytes)
Console.WriteLine("服务器响应:{0}", responseData)
' 暂停1秒钟
System.Threading.Thread.Sleep(1000)
End While
stream.Close()
client.Close()
Catch e As Exception
Console.WriteLine("发生异常:{0}", e)
End Try
End Sub
End Class
```
该代码创建了一个TCP/IP客户端,连接到指定的服务器IP地址和端口。然后,它向服务器发送消息,并等待服务器的响应。在接收到响应后,客户端会打印出来并暂停1秒钟。这个过程将一直持续下去,直到发生异常或手动停止程序。这个例子很简单,但可以作为一个入门级的TCP/IP客户端的基础。