作一个局域网的聊天软件（注意没有服务器），程序怎么列出在线人员列表呢？在线等待，解决立刻结账！

Question

我的一个做法，这种东东用UDP协议最好，直接发一个广播就可以了，其它已经启动的可以在收到这个广播时回应消息，而且也可以发过来的人加入到自己的在线列表，如果一定要用TCP协议的话，那也是一样的想，专门开一个UDP的SOCK 来处理此类的工作。

Answer 1

to:xiaoxinghappy(小星) 我听说过要用ＵＤＰ和广播的，知道这是这个问题的正解，但能给个例子吗？

Answer 2

我有一个程序！是我自己做的！你要的话就给我email
我的email:  [email protected]一定给源码！

Answer 3

我想你是用什么编程平台，vb/vb.net　如果是前者，可以有控件winsock，如果是用vb.net 那就用socket吧!,
　　其实你所说的只是ppp（点对点）这些程序代码网上很多，但做得比较有特色的就我还没看到有几个了。
　　而winsock控件的用法，vb5的帮助文件中就有，或msdn中也都有，唉！我真是希望国产软件能早日登大雅之堂，能不用什么挂靠软件，如qq的网上会议只是调用netmeeting，然后提交ip.另两点形成虚电路（连接）。

Answer 4

Private Sub Command1_Click()
    '广播信息
    SendSckMessage Text2, "255.255.255"
End SubPrivate Sub Form_Load()
    '初始化UDP
    With Winsock1
        .Protocol = sckUDPProtocol
        .LocalPort = 5005
        .RemotePort = 5005
        .Bind
    End With
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strRev  As String
    '接收信息
    Winsock1.GetData strRev
    Text1 = Text1 & strRev
End SubPrivate Sub SendSckMessage(ByVal strSend As String, ByVal RemoteHost As String)
    '发送信息
    With Winsock1
        .RemoteHost = RemoteHost
        .SendData strSend
    End With
End Sub

Answer 5

谢谢各位，我这两天没来单位，也就没上网，我基本上知道要用udp和广播的，但具体不知道该怎么作，所以来问的，我再去试试，如果行的话，立刻给分to:xiaoxinghappy(小星),好像你的例子不错，我试试先