在vb中如何使用 winsock 控件

《在vb中如何使用 winsock 控件》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、在VB中如何使用Winsock控件摘要：本文介绍如何利用oteHost属性的值。2．s_Load()’将LocalPort属性设置为一个整数。’然后调用Listen方法。tcpServer.LocalPort=1001tcpServer.ListenEndSubPrivateSubtcpServer_ConnectionRequest(ByValrequestIDAsLong)’检查控件的State属性是否为关闭的。’如果不是，’在接受新的连接之前先关闭此连接。IftcpServer.State<>sckClosedThen_tcpS

2、erver.Close’接受具有requestID参数的’连接。tcpServer.AcceptrequestIDEndSubPrivateSubtxtSend_Change()'名为txtSend的TextBox控件中'包含了要发送的数据。当用户往文本框中'键入数据时，使用SendData方法'发送输入的字符串。tcpServer.SendDatatxtSend.TextEndSubPrivateSubtcpServer_DataArrival(ByValbytesTotalAsLong)'为进入的数据声明一个变量。'调用GetData方法，并

3、将数据赋予名为txtOutput的TextBox的Text属性。DimstrDataAsStringtcpServer.GetDatastrDatatxtOutput.Text=strDataEndSub上面的步骤创建了一个简单的服务器应用程序。为了使它能够工作，还必须为它创建一个客户端的应用程序。要创建TCP客户端，请按照以下步骤执行：（1）在工程中添加一个新的窗体。（2）将窗体的标题改为“TCPClient”。（3）在窗体中添加一个Client中添加两个TextBox控件。将第一个命名为txtSend，第二个为txtOutput。（5）在窗体

4、上放一个mandButton控件，并将其命名为cmdConnect。（6）将mandButton控件的标题改为Connect。在窗体中添加如下的代码。注意：必须将RemoteHost属性值修改为您的计算机的名字。PrivateSubForm_Load()'oteHost="RemoteputerName"tcpClient.RemotePort=1001EndSubPrivateSubcmdConnect_Click()'调用Connect方法，初始化连接。tcpClient.ConnectEndSubPrivateSubtxtSend_Chan

5、ge()tcpClient.SendDatatxtSend.TextEndSubPrivateSubtcpClient_DataArrival(ByValbytesTotalAsLong)DimstrDataAsStringtcpClient.GetDatastrDatatxtOutput.Text=strDataEndSub上面的代码创建了一个简单的客户/服务器模式的应用程序。我们可以将两者都运行起来：运行工程，然后单击“连接”。在两个窗体之一的txtSend文本框中键入文本，可以看到同样的文字将出现在另一个窗体的txtOutput文本框中。3

6、．oteHost属性设置为另一台计算机的名称。（2）将RemotePort属性设置为第二个控件的LocalPort属性。（3）调用Bind方法，指定使用的LocalPort。在创建UDP应用程序时必须调用Bind方法。Bind方法的作用是为控件“保留”一个本地端口。例如，如果将控件绑定到1001号端口，那么其它应用程序将不能使用该端口进行“监听”。该方法阻止其它应用程序使用同样的端口。Bind方法的第二个参数是任选的。如果计算机上存在多个X络适配器，可以用LocalIP参数来指定使用哪一个适配器。如果忽略该参数，控件使用的将是计算机上“控制面板”

7、设置中“X络”控制面板对话框中列出的第一个适配器。在使用UDP协议的时候，可以任意地改变RemoteHost和RemotePort属性，同时始终保持绑定在同一个LocalPort上。TCP协议与此不同，在改变RemoteHost和RemotePort属性之前，必须先关闭连接。因为两台计算机的地位可以看成“平等的”，这种应用程序也被称为点到点的。为了具体说明这个问题，下面将创建一个“聊天”应用程序，两个人可以通过它进行实时的交谈。要创建一个UDP伙伴，请按照以下步骤执行：创建一个新的StandardEXE工程。将缺省的窗体的名称修改为frmPeer

8、A。将窗体的标题修改为“PeerA”。在窗体中放入一个Winsock控件，并将其命名为udpPeerA。