主题：远程登陆不能自动切换IP的问题

远程的服务器上的内部IP地址是192.168.1.X(有另外一个外网可以访问的固定IP)

当客户远程登陆时如果其所在的电脑也存在一个内部网络，网段也是192.168.1.X的话，这台电脑想登陆到远程的服务器上时数据源连接字符串中的IP就不能自动更换为远程服务器的外网IP(如果客户电脑是192.168.0.X的话就可以)

为什么？下面是连接外部数据源的代码，谢谢！

If e.Name = "ABC" Then

    If Network.Ping("192.168.1.13",1000) Then

        Return

    Else

        Dim ipFile As String = e.ProjectPath & "ip.txt"

        If Filesys.FileExists(ipFile) Then

            Dim ip As String = FileSys.ReadAllText(ipFile)

            e.ConnectionString = e.ConnectionString.Replace("192.168.1.13",ip)

        Else

            MessageBox.Show("请查看系统安装目录下是否有IP.txt文件!","提示")

            Syscmd.Project.Exit(False) '退出系统

        End If

    End If

End If