P2P穿透NAT的具体实现(TCP,VB.NET)