VB里Winsock的UDP协议做局域网聊天其实很简单

《VB里Winsock的UDP协议做局域网聊天其实很简单》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB里Winsock的UDP协议做局域网聊天其实很简单，但代码写起來稍复杂些。Winsock的TCPI■办议其实代码的理解更容易，但是要在局威网里某电脑1P开启一个服务器，就已TCP协议聊天室为例根你说说创建一个非常简单的服务器：要创建一个TCP服务器，请按照以下步骤执行：创建新的StandardEXE工程。将缺省窗体的名称改为frmScrvcro将窗体的标题改为“TCP服务器”。在窗体中放入一个Winsock控件，并将它的名字改为tcpServer。在窗体上添加两个TextBox控件。将第一个命名为txtSendData,第二个为txtOut

2、puto为窗体添加如下的代码。PrivateSubForm_Load()'将LocalPort屈柱设置为一个整数。'然后调用Listen方法。tcpServer.LocalPort二1001tcpServer.ListenfrmClicnt.Show'显示客户端的窗体。EndSubPrivateSubtcpServerConnectionRequest(ByVairequestIDAsLong)'检杳控件的State屈性是否为关闭的。'如果不是，'在接受新的连接之前先关闭此连接。IftcpServer.State<>sckClosedThent

3、cpServer.Close'接受具有requestTD参数的'连接。tcpServer・AcceptrequestIDEndSubPrivateSubtxtSendData_Change()'名为txtScndData的TextBox控件中'包含了要发送的数据。当用户往文本框屮'键入数据时，使用SendData方法'发送输入的字符串。tcpScrvcr.SendDatatxtScndData.TextEndSubbytesTotalPrivateSubtcpServerDataArrival_(ByVaiAsLong)'为进入的数据声明一个变

4、量。'调用GetData方法，并将数据赋予名为txtOutput'的TextBox的Text属性。DimstrDataAsStringtcpServer.GetDatastrDatatxtOutput.Text二strDataEndSub上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。要创建TCP客户端，请按照以下步骤执行：在工程屮添加一个新的窗体，将其命名为fnnClient。将窗体的标题改为“TCPClient"。在窗体中添加一个Winsock控件，并将其命名为tcpCliento在frmCl

5、ient中添加两个TextBox控件。将第一个命名为txtScnd,第二个为txtOutputo在窗体上放一个CominandButton控件，并将其命名为cmdConnecto将CommandButton控件的标题改为Connect。在窗体屮添加如下的代码。重点必须将RemoteHost属性值修改为您的计算机的名字。PrivateSubFormLoad()JWinsock控件的名字为tcpCliento'注意：要指定远程主机，可以使用'IP地址(例如：〃121.111.1.1〃)，也可以使用'计算机的“好听的名字”如下所示。tcpClient

6、.RemoteHost二"RemoteComputerName"tcpClicnt.RemotePort=1001EndSub'调用Connect方法，初始化连接。tcpClient.ConnectEndSubPrivateSubtxtSendData_Chan^e()tcpClicnt.SendDatatxtScnd.TextEndSubPrivateSubtcpClientDataArrival_(ByVaibytesTotalAsLong)DimstrDataAsStringtcpClient.GetDatastrDatatxtOutpu

7、t.Text=strDataEndSub评论(1)102011-10-2222:27打死不过圣诞节

8、七级引用vb的帮助文件:TCP连接初步如果应用程序要使用TCP协议，那么首先必须决定应用程序是服务器还是客户端。如杲耍创建一个服务器端，那么应用程序需耍“监听”指定的端口。当客户端捉出连接请求时，服务器端能够接受请求并建立连接。在连接建立Z后，客户端与服务器端可以自由地互相通讯。下列步骤创建一个非常简单的服务器：要创建一个TCP服务器，请按照以下步骤执行：创建新的StandardEXE工程。将缺省窗体的名称改为frmScrvcro将窗体的标题改为

9、“TCP服务器”。在窗体中放入一个Winsock控件，并将它的名字改为tcpServer。在窗体上添加两个TextBox控件。将第一个命名为txtSe