VB.NET 的Socket问题

2014-02-11 07:04:07 116 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb.net的socket编程（1）客户端： ‘发送 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim bytes(1024) As Byte '声明字节数组 Dim sender1 As New System 阅读详情

使用Socket 的TcpClient类连接服务器指定端口后，向服务器发出命令（字符串），服务器会返回字符信息。
就像使用操作系统的Telnet + IP + 端口一样连接上后，向服务器发出命令（字符串）也会显示出返回的信息。

问题：怎么使用VB.NET接收这些返回的信息？请给具体代码。

VB6 就可以使用 Socket.GetData 方法接收信息，.NET就不知道了。
附连接服务器的代码：



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

...全文