RT,这是发送消息的代码,两内网用户可以直接通过IP互相发送和接受消息吗?
Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 1001 '设置计算机的端口，随便设置，不过两个要一样
Winsock1.RemotePort = 1001
Winsock1.RemoteHost = "*.*.*.*" '这里应该是设置为别人计算机的IP地址
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
Dim Tmp As String
Winsock1.GetData Tmp, vbString '取得数据
Tmp = "发言内容为**：" + Tmp
Text1.Text = Tmp + Chr$(13) + Chr$(10) + Text1.Text
End Sub

Private Sub Command1_Click() '发送信息

Winsock1.SendData Text2.Text
Text2.Text = ""
End Sub

内网有内网的IP...可以的.

内网通讯可以不经过Internet

要开messenger服务么？

一般的邮件通讯是借助OUTLOOK的

开messenger服务  再在命令执行栏里发一个  net send 的服务就可以了  不过要是管理员的权限哦,  只在网上看过,没有实例操作,反正要用到  net send 服务 你可以摆渡一下啊

那不同内网的计算机可以吗?

不同的内网,好像要装一个bios协议,
net send 要发到哪台电脑的ip 内容
然后回车就可以发了啊, 要是管理员的权限,messenger必需开