VB6.0,如何用winsock的2个内网通过外网通讯

我用vb6.0编的软件，因为公司要求：公司本部一台电脑做服务器，中国其他城市的设备做客户端，然后只要设备打开软件，公司本部电脑就可以看到客户端的一些监控数据了。这个就是2个局域网内的PC，通用外网通讯。现在做实验，2个局域网都进行了端口映射，然后客户端连接服务器，就是先winsock。state=6，连接中，过一会就9，通讯错误了。网上找了半天，没有样例啊。在同一个局域网可以用，连外网就不行啊！请高手帮忙啊！下面是程序：
客户端：
Private Sub cmdConnect_Click()
tcpClient.Connect

End Sub

Private Sub Form_Load()
tcpClient.RemoteHost = "xxx.xxx.x.xx"   服务器PC用ip138查的外网ip地址
tcpClient.RemotePort = 5500             服务器PC路由器设定的端口映射
tcpClient.LocalPort = 5600              客户端PC路由器设定的端口映射
End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
texOutput.Text = strData
End Sub

Private Sub Timer1_Timer()
texOutput.Text = tcpClient.State
If tcpClient.State = sckError Then MsgBox ("通信错误")
End Sub

Private Sub txtSend_Change()
tcpClient.SendData txtSendData.Text
End Sub

Private Sub wskClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
   
   If Number = 10061 Then
      MsgBox "请检查服务器端是否打开", vbInformation, "Error"
   End If

End Sub

服务器端：

Private Sub Form_Load()
tcpServer.LocalPort = 5600
tcpServer.Listen
End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID
End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput = strData
End Sub

Private Sub textSendData_Change()
tcpServer.SendData textSendData.Text
End Sub

更多0