100分求UDP例子

[cheworangvbyiowey]

服务器端向正个局域网广播一个信息"我已经收到了",客户端一收到就显示"我已经收到了"
要用UDP,在192.168这个网络都可以广播就行了!

[aijie099]

服务器广播地址为：192 .168.0.255
客户不用设置远程地址，和端口。当收到信息时，被自动设置

[cheworangvbyiowey]

有源码?

[zyg0]

要源码可是不道德的，禁止这样，我没写过，试着写一下看看

[zyg0]

Option Explicit

Private Sub Command1_Click()
Winsock1.RemoteHost = "192.168.0.255"
Winsock1.RemotePort = 1001
Winsock1.SendData "我好了"
End Sub

Private Sub Form_Load()
Winsock1.LocalPort = 1001
Winsock1.Bind
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str
MsgBox str
End Sub