【VB.Net】最直白的TcpClient代码

来源：互联网发布：中国电信宽带网络编辑：程序博客网时间：2024/06/17 00:09

从网上甚至MSDN上找的关于TcpClient的代码大多都是非常简单让你无法改造或者C#代码直接转换不成VB的，今天就非常直白的把我的代码写出来以便初学VB的人使用TcpClient。

现在开始一步一步的来

【定义TcpClient】

Dim Client as New TcpClient()Client.ReceiveBufferSize = 4095

【连接到指定主机】

Client.Connect(IPAddress.Parse("127.0.0.1"),888)

【判断连接状态】

 Client.Connected=True Client.Connected=False’需要注释吗？

【发送数据代码】

Private Sub SendData(Client as TcpClient,Buffer as byte())  Client.Client.Send(buffer)

End Sub

【接收代码，不跨线程访问GUI控件】

' 【连接到指定的主机】代码后If Client.Connected thenDim t as new Thread(addressof DataListener)t.start(Client)ElseMsgbox("Error！“）End if'监听线程Private Sub DataListener(Client as TcpClient)Dim Buffer(4095) as byteDim RecLength as integerDo Until StopFlag'不再复述，详情'http://blog.csdn.net/runplus/article/details/49019245LoopEnd Sub

【接收代码，跨线程代理访问GUI控件】

例：窗口有一Textbox(TextBox1)，需要在接收到数据后在此显示内容

A.定义委托

Public Class Form1紧接代码定义委托Private Delegate Sub DelegateUpdateTextbox(Packet As Byte())'........End Class

B.创建委托实际过程

Private Sub UpdateTextbox(Packet as byte()Textbox1.text=Text.Encoding.Utf8.GetString(Packet)End Sub

C.调整DataListener过程

Private Sub DataListener(Client as TcpClient)Dim TrdUpdateTextbox as new DelegateUpdatetextbox(AddressOf Updatetextbox)Dim Buffer(4095) as byteDim RecLength as integerDo Until StopFlag'不再复述，详情'http://blog.csdn.net/runplus/article/details/49019245'上文中定义了Packet为接收到的数据，这里使用这个Byte()来委托更新Me.BeginInvoke(TrdUpdateTextbox,Packet)LoopEnd Sub

0 0