主题：[求助]互通网页

提示什么错？你的连接字符串贴出来。

 你写了什么代码？要做什么功能？你加入msgbox弹出值看一看。

 你要做的东西和花生壳和ip一点关系都没有。你贴的地址是否有错？

1、你给的地址有问题，说的和地址的不符，以后注意。

 

2、花生壳的话，对应的可能不是你写的那个ip，可能有多个ip，代码改一下

 

Dim result As String = "!false"
For Each address As System.Net.IPAddress In System.Net.Dns.GetHostAddresses("花生壳域名")
    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

 如果你的网站和foxtable在同一台电脑上，没必要用外网的ip

 

 只有你的网站(vs项目）和foxtable的数据不在同一台电脑，vs项目要想访问foxtable的内容才需要用到你的ip

 

 查看域名对应多少个ip，参考

 

Dim IPs As Net.IPAddress() = Net.Dns.GetHostAddresses("www.baidu.com")
For Each ip As Net.IPAddress In IPs
    msgbox(ip.ToString())
Next

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

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

 

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

1、ip改成 xxxx

 

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

 

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

 路由器，设置端口映射

 

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

 加客服QQ800014337，发远程过来看看。