今天土嘎嘎小编分享一个 VB.NET网络传输助手源码,它可以通过 TCP 连接发送和接收数据:
〓〓vb.net代码如下:〓〓
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class NetworkHelper
Private Shared client As TcpClient
Private Shared stream As NetworkStream
Public Shared Sub ConnectToServer(ipAddress As String, port As Integer)
Try
client = New TcpClient()
client.Connect(ipAddress, port)
Console.WriteLine("Connected to server.")
stream = client.GetStream()
Dim receiveThread As New Threading.Thread(AddressOf ReceiveData)
receiveThread.Start()
Catch ex As Exception
Console.WriteLine("Error connecting to server: {0}", ex.Message)
End Try
End Sub
Public Shared Sub SendData(data As String)
Try
Dim bytes As Byte() = Encoding.ASCII.GetBytes(data)
stream.Write(bytes, 0, bytes.Length)
Console.WriteLine("Sent: {0}", data)
Catch ex As Exception
Console.WriteLine("Error sending data: {0}", ex.Message)
End Try
End Sub
Private Shared Sub ReceiveData()
While True
Try
Dim buffer(client.ReceiveBufferSize) As Byte
Dim bytesRead As Integer = stream.Read(buffer, 0, client.ReceiveBufferSize)
Dim receivedData As String = Encoding.ASCII.GetString(buffer, 0, bytesRead)
Console.WriteLine("Received: {0}", receivedData)
Catch ex As Exception
Console.WriteLine("Error receiving data: {0}", ex.Message)
Exit While
End Try
End While
End Sub
Public Shared Sub DisconnectFromServer()
If Not client Is Nothing Then
client.Close()
Console.WriteLine("Disconnected from server.")
End If
End Sub
Public Shared Sub Main()
Dim ipAddress As String = "127.0.0.1"
Dim port As Integer = 8888
ConnectToServer(ipAddress, port)
While True
Dim input As String = Console.ReadLine()
If input.ToLower() = "exit" Then
Exit While
End If
SendData(input)
End While
DisconnectFromServer()
End Sub
End Class
使用该代码,可以通过调用 NetworkHelper.ConnectToServer 方法连接到指定的服务器,并使用 NetworkHelper.SendData 方法发送数据。接收到的数据将在后台线程中输出到控制台。可以在 Main 方法中自定义要连接的服务器的 IP 地址和端口号。
土嘎嘎技术网友情提示:这只是一个简单的示例代码,可能需要根据实际需求进行修改和完善。