Vb.net Tcp套接字连接在无线VPN上不工作

我有一个客户机-服务器应用程序，我在本地网络上运行这个应用程序，一切正常。但是当我在客户端和服务器之间使用无线VPN网络时，我无法建立连接

服务器代码为：

Dim localEndPoint As New IPEndPoint(IPAddress.Any, CInt(txtPort.Text))
listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
listener.Bind(localEndPoint)
listener.Listen(20)

在本地网络上一切正常，但在使用无线VPN的公共网络上，我无法建立连接

---

我是否应该向代码或防火墙添加任何内容？

此网站提供编程问题。您的问题是否与编程有关尚不清楚。服务器代码是：Dim localEndPoint As New IPEndPoint（IPAddress.Any，CInt（txtPort.Text））listener=New Socket（AddressFamily.InterNetwork，SocketType.Stream，ProtocolType.Tcp）listener.Bind（localEndPoint）listener。Listen（20）在本地网络上一切正常，但是在使用无线VPN的公共网络上，我无法建立连接