100分求UDP例子

服务器端向正个局域网广播一个信息"我已经收到了",客户端一收到就显示"我已经收到了"  
  要用UDP,在192.168这个网络都可以广播就行了! 问题点数：100、回复次数：4Top

1 楼aijie099（罗漫年华）回复于 2005-03-17 21:26:25 得分 0

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

2 楼cheworangvbyiowey（为期）回复于 2005-03-17 21:44:02 得分 0

有源码?Top

3 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2005-03-24 15:34:22 得分 0

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

4 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2005-03-24 15:52:39 得分 100

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   SubTop

相关问题

• winsock
• 服务器
• 客户
• 信息
• winsock1
• 收到
• subprivate
• 广播
• udp
• 地址

• 帖主：cheworangvbyiowey
• zyg0

• Visual Basic类图书
• Visual Basic类源码下载