16,552
社区成员
发帖
与我相关
我的任务
分享
Shared Sub TcpConnect(ByVal server As [String], ByVal message As [String],ByVal port As [int32])
Dim client As New System.Net.Sockets.TcpClient(server, port)
Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)
Dim stream As NetworkStream = client.GetStream()
stream.Write(data, 0, data.Length)
stream.Close()
client.Close()
End Sub 'Connect