在VB.NET下利用Socket实现简单的字符串发送接收程序

先查看MSDN帮助系统,找到socket类,有详细的创建套接字、使用套接字侦听、使用客户端套接字的说明。

打开VS.Net 2003，新建一个VB.Net工程,名称为Server。在界面上添加一个列表框，两个按钮。界面如图所示:

我们使用多线程来实现
先导入命名空间：
Imports System.Net.sockets
Imports System.net
Imports System.Text
Imports System.Threading
定义两个窗体变量
Dim s As Socket = Nothing
Dim t As Thread
新建一个过程，用于处理接收到的Socket数据包
Public Sub WaitData()
        s = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) '''使用TCP协议
        Dim localEndPoint As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 1024)  '''指定IP和Port
        s.Bind(localEndPoint)        '''绑定到该So