[导读]不论您使用UDP协议或是TCP协议，Winsock控件都可以允许与远程的设备连接，并且在相互之间交换数据。因此，依据上面的面熟而言，不论您使用的是哪一种协议都可以扮演主机端和客户端的角色。同时，当您在使用Winsock控件的过程中，这个控件不会显示在正在执行的窗体之中。换句话说，Winsock控件是在后台运行的一种控件。在执行
♣窗体frmpeerB的设计内容
如图4-2所示
♣窗体frmpeerB的程序代码
Private Sub Form_Load()
′控件的名字为 udpPeerB。
With udpPeerB
′重点:必须将RemoteHost的值改为对方计算机的名字。
RemoteHost= ″PeerA″
RemotePort = 1002 ′要连接的端口。
Bind 1001 ′绑定到本地的端口上。
End With
End Sub
Private Sub txtSend_Change()
′在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End Sub
Private Sub udpPeerB_DataArrival (ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]
