VB里Winsock的UDP协议做局域网聊天其实很简单，但代码写起来稍复杂些。Winsock的TCP协议其实代码的理解更容易，但是要在局域网里某电脑IP开启一个服务器，就已TCP协议聊天室为例根你说说创建一个非常简单的服务器：要创建一个TCP服务器，请按照以下步骤执行：创建新的StandardEXE工程。将缺省窗体的名称改为frmServer。将窗体的标题改为“TCP服务器”。在窗体中放入一个Winsock控件，并将它的名字改为tcpServer。在窗体上添加两个TextBox控件。将第一个命名为txtSendData，第二个为txtOutput。为窗体添加如下的代码。PrivateSubForm_Load()'将LocalPort属性设置为一个整数。'然后调用Listen方法。tcpServer.LocalPort=1001tcpServer.ListenfrmClient.Show'显示客户端的窗体。EndSubPrivateSubtcpServer_ConnectionRequest(ByValrequestIDAsLong)'检查控件的State属性是否为关闭的。'如果不是，'在接受新的连接之前先关闭此连接。IftcpServer.State<>sckClosedThentcpServer.Close'接受具有requestID参数的'连接。tcpServer.AcceptrequestIDEndSubPrivateSubtxtSendData_Change()'名为txtSendData的TextBox控件中'包含了要发送的数据。当用户往文本框中'键入数据时，使用SendData方法'发送输入的字符串。---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---tcpServer.SendDatatxtSendData.TextEndSubPrivateSubtcpServer_DataArrival_(ByValbytesTotalAsLong)'为进入的数据声明一个变量。'调用GetData方法，并将数据赋予名为txtOutput'的TextBox的Text属性。DimstrDataAsStringtcpServer.GetDatastrDatatxtOutput.Text=strDataEndSub上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。要创建TCP客户端，请按照以下步骤执行：在工程中添加一个新的窗体，将其命名为frmClient。将窗体的标题改为“TCPClient”。在窗体中添加一个Winsock控件，并将其命名为tcpClient。在frmClient中添加两个TextBox控件。将第一个命名为txtSend，第二个为txtOutput。在窗体上放一个CommandButton控件，并将其命名为cmdConnect。将CommandButton控件的标题改为Connect。在窗体中添加如下的代码。重点必须将RemoteHost属性值修改为您的计算机的名字。PrivateSubForm_Load()'Winsock控件的名字为tcpClient。'注意：要指定远程主机，可以使用'IP地址（例如："121.111.1.1"），也可以使用'计算机的“好听的名字”如下所示。tcpClient.RemoteHost="RemoteComputerName"tcpClient.RemotePort=1001EndSubPrivateSubcmdConnect_Click()---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---'调用Connect方法，初始化连接。tcpClient.ConnectEndSubPrivateSubtxtSendData_Change()tcpClient.SendDatatxtSend.TextEndSubPrivateSubtcpClient_DataArrival_(ByValbytesTotalAsLong)DimstrDataAsStringtcpClient.GetDatastrDatatxtOutput.Text=strDataEndSub评论(1)|02011-10-2222:27打死不过圣诞节|七级引用vb的帮助文件：TCP连接初步如果应用程序要使用TCP协议，那么首先必须决定应用程序是服务器还是客户端。如果要创建一个服务器端，那么应用程序需要“监听”指定的端口。当客户端提出连接请求时，服务器端能够接受请求并建立连接。在连接建立之后，客户端与服务器端可以自由地互相通讯。下列步骤创建一个非常简单的服务器：要创建一个TCP服务器，请按照以下步骤执行：创建新的StandardEXE工程。将缺省窗体的名称改为frmServer。将窗体的标题改为“TCP服务器”。在窗体中放入一个Winsock控件，并将它的名字改为tcpServer。在窗体上添加两个TextBox控件。将第一个命名为txtSendData，第二个为txtOutput。为窗体添加如下的代码。PrivateSubForm_Load()'将LocalPort属性设置为一个整数。'然后调用Listen方法。tcpServer.LocalPort=1001---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---tcpServer.ListenfrmClient.Show'显示客户端的窗体。EndSubPrivateSubtcpServer_ConnectionRequest...