请问局域网消息发送(不用服务器客户端的那种)的关键部分的源代码是怎么写的?

[oyff]

请教,加分

[jtalt]

程序所需控件：Winsock控件，CommandButton控件（默认name），TextBox控件（一个名称为txtMess，另一个名称为txtSend）

程序代码如下：
Private Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 10 '设置计算机的端口，随便设置，不过两个要一样
Winsock1.RemotePort = 10
my = Winsock1.LocalIP '取得自己的IP地址，是不要的
Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
Dim Tmp As String
Winsock1.GetData Tmp, vbString '取得数据
Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp
txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub

Private Sub Command1_Click() '发送信息
Winsock1.SendData txtSend.Text
End Sub

[QiCrack]

这个没有用客户端可以发？？那对方怎样收得到？？？人家没有打开端口你怎么传送？？这不是等于在人家的关闭的门口扔拉圾？？？

[QiCrack]

不会吧？？那对方的端口你怎样去打开来？？还是不明白！各位能否详细的说说？？先谢了！

[holydiablo]

意思就是两台机器都要在运行这个应用程序！

[hengxin54]

winsock用UDP协议，两台机子间可以随时传递信息
winsock.protocol=sckUDPProtocol
winsock.remotehost=xxx
winsock.remoteport=xxx
winsock.bind localport
两台机子间的程序差不多，只是改变一下远程主机IP和端口及绑定的本地端口即可,无需用到连接请求这一件事