需要出口设备进行映射内部地址；或使用打洞技术穿透NAT,但使用TCP打洞非常困难。
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：主机域名、虚拟空间、营销软件、网站建设、泰宁网站维护、网站推广。
参考
穿透NAT是非常困难的，因为NAT的过程中在出口路由器上的Port已经不是你定义的iPort了，具体是多少也不固定
端口不NAT，两个子网中的两端之间不可能通信。至少要有一方处在公网下或有路由端口映射，不必双方都映射。
建议题主找本计算机网络的书研读一下子网划分这块儿。
监听： Try
Dim CtrlListener As New TcpListener(New IPEndPoint(IPAddress.Any, Iport1))
CtrlListener.Start(10) '监听队列
While Not ShutDownServerPROC
Threading.ThreadPool.QueueUserWorkItem(AddressOf GetCtrlCMD, CtrlListener.AcceptTcpClient)
Threading.Thread.Sleep(500) '等待指定时间后继续监听
End While
Catch ex As Exception
Dim ErrMsg As String = ex.ToString
Console.WriteLine(ErrMsg)
WriteErrorMessage("connection", ErrMsg, "CtrlListener")
End Try
客户端用TCPCLIENT
Dim tc As Net.Sockets.TcpClient = New Net.Sockets.TcpClient("192.168.4.201", 6000)
连接就可以了