Question

VB怎么实现局域网聊天的？

1.如何实现局域网内不同服务器间的通信。比如：在局域网内，A在一个服务器，B在另一个服务器，如何实现A与B之间聊天！2.在可以上网的条件下，可以实现内网连接外网吗？比如：A在一个局域网内（可以上网），B在外网，可以实现A与B之间聊天吗？ 以上都是指在VB编程中实现，如果哪位大虾知道可以加我Q详聊。Q：二五一五一五零零三 。如果有现成代码或相关资料可以借鉴那最好了！！谢谢！！！

Answer 1

1、winsock 部件 2、客务端
(客务端): 监听 -->接受请求 -->发送数据 -->关闭连接
Private Sub Form_Load()
Winsock1.LocalPort = 5238'这个是端口
Winsock1.Listen
Text1.Locked = True
Text2.Locked = True
Text2.Text = "等待客户登陆！"
End SubPrivate Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End SubPrivate Sub Text1_Change()
Winsock1.SendData Text1.Text
End SubPrivate Sub Winsock1_Close()
Winsock1.Close
Text2.Text = "等待客户登陆！"
Winsock1.LocalPort = 5238
Winsock1.Listen
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Text2.Text = "客户已登陆！"
Text1.Locked = False
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str, vbString
Text2.Text = str
End Sub
3、客户端
(户务端): 监听 -->接受请求 -->发送数据 -->关闭连接
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = Text3.Text'这是IP。
Winsock1.RemotePort = 5238 '这是端口。。
Text2.Text = "链接户务器出错，请重新配置！"
On Error GoTo herr
Winsock1.Connect
Exit Sub
herr:
Winsock1.Close
Text2.Text = "链接户务器出错，请重新配置！"
Exit Sub
End SubPrivate Sub Form_Load()
Text1.Locked = True
Text2.Locked = True
End SubPrivate Sub Text1_Change()
Winsock1.SendData Text1.Text
End SubPrivate Sub Winsock1_Close()
'断开链接
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
'发送用户信息
Text2.Text = "链接成功！"
Text1.Locked = False
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Winsock1.GetData str, vbString
Text2.Text = str
End Sub
看，客户端的端口和户务端的端口是一样的，这样就达到了一个协议，
客户端的IP就是连接户务端的主机IP。。。这样就搭到了连接