想开发一个局域网通讯软件，类似于飞鸽传书的，需要用到什么技术，求高手指点

http://zhidao.baidu.com/question/295931945.html

我想做局域网的。

Domain PC -> Domain PC ?
or
Domain User -> Domain User ?

Send Message ?
or
Send Picture ?
or
Send Mail ?

单向传输讯息？
or
双向传输讯息？

若符合需求我这有局域聊天室源代码你直接拿去抄就好了

不然你也可以简单点直接用微软OS内建的功能
熟悉一下WMI的功能也差不多了

[ 本帖最后由 wube 于 2012-10-10 16:29 编辑 ]

http://forum.

若是使用exchange server或使用lotus notes就有类似可达成的功能,泥可先说说要做什么,是有好康的要通知朋友,还是要发广告信,还是要把妹,因为基本有认识的话,大都会用msn,yahoo messenger,skype等等软体,用qq当然也可,把泥要说的打在状态栏也可

1.Alerter 及 Messenger 服务是 Windows 的元件，可让网路上的电脑相互传递简单的讯息。Messenger 服务可以转接来自不同应用程式和服务的讯息，Alerter 服务则专门用于系统管理的警示。
在命令模式下利用 net send 指令就是利用 Messenger Service 在区域网路中传送讯息。
net send 使用方法：
例如我要传个讯息（this is a test）给我网域中叫做 HELLO 的这台电脑，就是：
net send HELLO this is a test
我要发布讯息给我所在网域里的所有电脑，就是：
net send * this is a test
如果我要利用 NET SEND 指令，发送讯息给 Internet 上的某一部电脑，则接收方必须有真实IP才行，接收方也必须启动 Messenger Service，你讯息才能顺利传到。如果对方是在防火墙内的虚拟 IP（Private IP）或是关闭 Messenger Service，你就没有办法利用 NET SEND 透过 IP 传送讯息。

2.但是,现在大家通常会把服务内的messenger关闭

使用winsock控件很容易做的
新建一工程，在“工程-部件”中添加一个"microsoft winsock control 6.0"部件，这时你会在左边控件栏中看到增加一个类似于两个小显示器的图标，这就是winsock控件，然后在form1的窗体中放一个combobox控件combo1,两个textbox控件text1、text2,其中text1的multiline属性为true(让它支持多行文本），一个commandbutton控件command1，一个winsock控件，名称改为wsck（默认名称为Winsock1），布局如下图：

复制下列代码即可做两台机器的通讯了，这个程序启动时首先搜索局域网中有没有同样的程序已经启动，如果没有则自动占用8888端口，把自己作为服务器，这时其他电脑上启动的这个程序会搜索到服务器，并只能作为客户端了，并在下拉列表中（combo1）显示客户端ip地址，选择一个ip即可与他发信息，目前只能做文本的通讯。
'下列代码粘贴到工程中即可
Const Bs = "~UDP~" '通讯联络开始标识

Private Sub Command1_Click()
  If Trim(Text2) <> "" Then
    Wsck.SendData Bs & "3" & Trim(Text2)
    Text1 = Text1 & Time & " 你对" & Wsck.RemoteHostIP & "说：" & Text2 & vbCrLf
  End If
End Sub

Private Sub Form_Load()
  On Error GoTo err_CL
  Wsck.Protocol = sckUDPProtocol
  Combo1.Clear
  If SearchServer Then Exit Sub '找到服务器的处理
  Wsck.LocalPort = 8888
  Wsck.Bind
  Exit Sub
err_CL:
  MsgBox "端口可能被占用，启动失败"
  Unload Me
End Sub

Private Function SearchServer() As Boolean
  '本过程扫描看有没有服务端等待通讯
  Dim i As Integer, j As Integer, d As Date
  SearchServer = False
  Wsck.RemoteHost = "255.255.255.255"  '广播地址
  Wsck.RemotePort = 8888
  Wsck.Bind
  For i = 0 To 4
  '发10次广播信息
    Wsck.SendData Bs & "1" '广播求服务器信息
    d = Time
    While d = Time
      DoEvents
    Wend
  Next
  If Combo1.ListCount = 0 Then
    Combo1.AddItem "我是服务器"
    Combo1.Text = "我是服务器"
    Wsck.Close
  Else
    SearchServer = True
    Combo1 = Combo1.List(0)
  End If
End Function

Private Sub Wsck_DataArrival(ByVal bytesTotal As Long)
  Dim a As String, b() As String, i As Integer
  Wsck.GetData a, vbString
  b = Split(a, Bs): i = Val(Left(b(1), 1))
  If i = 1 Then Wsck.SendData Bs & "2" & Wsck.LocalIP  '数据1表明有客户连接，需向对方返回我的地址
  If i = 2 Then Combo1.AddItem Right(b(1), Len(b(1)) - 1)        '2表明是服务器送来的信息，将后面的ip都放进combo1中
  If i = 3 Then Text1 = Text1 & Time & " " & Wsck.RemoteHostIP & "对你说：" & Right(b(1), Len(b(1)) - 1) & vbCrLf '聊天信息
End Sub
'代码结束

只有一行描述很难让局外人了解你心里真正要的格局是什么
光这么一行有几十种可能的解决方法建议详细点描述

[ 本帖最后由 wube 于 2012-10-11 01:33 编辑 ]

能不能实现一个服务器，多个客户端端口通信？ 我刚接触这个，大神能不能给个源码？