1.vbԶ?远程源码远程源码?Դ??
vbԶ??Դ??
这代码发送和接收的MSDN6.0中有,在索引中键入winscok 控件,控制点使用 Winsock 控件其中关于UDP
协议是远程源码远程源码一种无连接协议,两台计算机之间的控制竹鸟源码传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是远程源码远程源码两者之间没有明确的连接。另外,控制单次传输的远程源码远程源码最大数据量取决于具体的网络。
要创建一个 UDP 伙伴,控制请按照以下步骤执行:
创建一个新的远程源码远程源码 Standard EXE 工程。
将缺省的控制窗体的名称修改为 frmPeerA。
将窗体的远程源码远程源码成本线cbx源码标题修改为“Peer A”。
在窗体中放入一个 Winsock 控件,控制并将其命名为 udpPeerA。远程源码远程源码
在“属性”页上,控制单击“协议”并将协议修改为 UDPProtocol。远程源码远程源码
在窗体中添加两个 TextBox 控件。c 窗口程序源码将第一个命名为 txtSend,第二个命名为 txtOutput。
为窗体增加如下的代码。
Private Sub Form_Load()'控件的名字为 udpPeerA
With udpPeerA
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost= "PeerB"
.RemotePort = '连接的共享内存源码分析端口号。
.Bind '绑定到本地的端口。
End With
frmPeerB.Show '显示第二个窗体。
End Sub
Private Sub txtSend_Change()
'在键入文本时,立即将其发送出去。
udpPeerA.SendData txtSend.Text
End Sub
Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub
要创建第二个 UDP 伙伴,股票指标源码翻译请按照以下步骤执行:
在工程中添加一个标准窗体。
将窗体的名字修改为 frmPeerB。
将窗体的标题修改为“Peer B”。
在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。
在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
在窗体中添加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerB。
With udpPeerB
'重点:必须将 RemoteHost 的值改为
'计算机的名字。
.RemoteHost= "PeerA"
.RemotePort = '要连接的端口。
.Bind '绑定到本地的端口上。
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