快快，123分求解UDP通讯的例程！！！！

Question

大哥，我从MSDN上贴下来的代码你要不要？？

Answer 1

创建一个新的 Standard EXE 工程。
将缺省的窗体的名称修改为 frmPeerA。
将窗体的标题修改为“Peer A”。
在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。
在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。
在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
为窗体增加如下的代码。 
Private Sub Form_Load()
'控件的名字为 udpPeerA
With udpPeerA
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost= "PeerB" 
.RemotePort = 1001   '连接的端口号。
.Bind 1002                '绑定到本地的端口。
End With
frmPeerB.Show                 '显示第二个窗体。
End SubPrivate Sub txtSend_Change()
'在键入文本时，立即将其发送出去。
udpPeerA.SendData txtSend.Text
End SubPrivate 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 = 1002    '要连接的端口。
.Bind 1001                '绑定到本地的端口上。
End With
End SubPrivate Sub txtSend_Change()
'在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End SubPrivate Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub

Answer 2

行了，我照着写完了，你是不是留个EMail??

Answer 3

记好了,一共六句话
第一个程序的form_load事件里写上
winsock1.localport=6789
winsock1.remotehost="自己机器的IP"
winsock1.remoteport=6790
第二个程序的form_load事件里写上
winsock1.localport=6790
winsock1.remotehost="自己机器的IP"
winsock1.remoteport=6789
就可以在单机调试了,要是在lan上,就要写对方机器的ip,端口也是可以随便设的,只要自己的localport和对方的remoteport一样就行
然后在需要的时候有senddata语句发送
另一方在dataarrival事件里接收就可以了
先说这么多,有不明白的再问吧

Answer 4

http://dream_city.y365.com/New%20Soft.htm
直接可以使用,有源代码.合适请给分吧!

Answer 5

to:Jason_guo(梦想难成,努力能成!)　
   我没有RAR压缩工具
to:songyangk(小草)
   好
   [email protected]

Answer 6

to:Jason_guo(梦想难成,努力能成!)　
  你哪个没有代码！

Answer 7

　songyangk(小草)
你真是高手，也发给我一份吧
[email protected]

Answer 8

给我也发一分吧！谢谢
[email protected]