主题：[求助]互通网页

哦。。先谢了，，，我自己再试下

我试了很多次

 你的网站搭建在哪里？你用什么方式打开网页？

用域名

 你的网站搭建在网上的服务器里？你的网站需要访问你电脑的foxtable数据？

 

 花生壳的地址、端口，和你程序的端口发出来看看。

---

以下内容是专门发给有点色浏览

---

花生壳

1、ip改成 xxxx

 

2、狐表项目的ip地址不要填，端口填写 3389

 

3、你防火墙、路由器，都需要把3389的udp端口给开放。

  'UDP通讯函数
    Function UDPCommunication(ByVal input As String) As String

        Dim result As String = "!false"
        For Each address As System.Net.IPAddress In System.Net.Dns.GetHostAddresses("xxx")
            Dim udp As New System.Net.Sockets.UdpClient(0)
            Dim ip As New System.Net.IPEndPoint(address, 3389)
            Dim bytes() As Byte = System.Text.Encoding.Unicode.GetBytes(input)
            udp.Send(bytes, bytes.Length, ip) '发送数据
            Dim sdt As Date = Date.Now
            While Date.Now < sdt.AddSeconds(1) '等1秒
                If udp.Available > 0 Then
                    Dim remoteIp As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
                    Dim rbytes() As Byte = udp.Receive(remoteIp)
                    result = System.Text.Encoding.Unicode.GetString(rbytes) '获取返回值
                End If
            End While
            udp.Close()
            If result <> "!false" Then Exit For
        Next

        Return result

    End Function

 

 

 

 

 

意思是把代码里面的IP改成这样，是吗？

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

此主题相关图片如下：qq图片20170505160106.png

 

 

然后狐表项目改成这样吗？如上图（不过提示一定要填写IP）

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

此主题相关图片如下：qq图片20170505160619.png

 

然后开放3389端口，如上图，入站规则，UDP 3389  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

但还是不行哦.....

 路由器，设置端口映射

 

http://jingyan.baidu.com/article/1709ad80d599d24634c4f0c2.html

 

 代码这样写

 

Dim result As String = "!false"
For Each address As System.Net.IPAddress In System.Net.Dns.GetHostAddresses("xxx")
    Dim udp As New System.Net.Sockets.UdpClient(0)
    Dim ip As New System.Net.IPEndPoint(address, 3389)
    Dim bytes() As Byte = System.Text.Encoding.Unicode.GetBytes(input)
    udp.Send(bytes, bytes.Length, ip) '发送数据
    Dim sdt As Date = Date.Now
    While Date.Now < sdt.AddSeconds(1) '等1秒
        If udp.Available > 0 Then
            Dim remoteIp As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
            Dim rbytes() As Byte = udp.Receive(remoteIp)
            result = System.Text.Encoding.Unicode.GetString(rbytes) '获取返回值
        End If
    End While
    udp.Close()
    If result <> "!false" Then Exit For
Next

Return result

代码按你说的设置了，而且一直以来就是这样设置