主题：紧急求助：服务器只能用内网连接，不在内网的客户端怎么才能访问服务器的数据。。

是的，正是因为外网不安全，所以只让在内网访问。所以我就在想怎么让外网也安全。

你看我60楼的做法有用吗？

突然想到，密文写入了注册表，那他同样可以从注册表里读取出密文。

还是换成SaveConfigValue保存设置  保存在项目文件里比较安全？

奇怪，换成了SaveConfigValue就出错了。刚才在注册表是可以的，只是换成了SaveConfigValue，是不是写法不对。。。

Dim ipFile As String = e.ProjectPath &  "ip.txt"
If e.Name = "VIP数据2" Then
    If Filesys.FileExists(ipFile) Then
        Dim Val2 As  String =  FileSys.ReadAllText(ipFile)
        SaveConfigValue("a",Val2)                 到这里提示错误。
        FileSys.DeleteFile(e.ProjectPath & "ip.txt",2,2) '则彻底删除之
    End  If
    Dim b As String
    b = GetConfigValue("a","")
    Dim c As String = DecryptText(b,"Ao7mQHU+","60K528w") '解密
    e.ConnectionString = c
    messagebox.Show(c)
End  If

提示

未将对象引用设置到对象的实例。

是不是SaveConfigValue写法有错了。注册表的倒是可以实现。

Bin老师，你说的对，这个代码没有错，我用命令窗口测试了下，是可以的。

但是在这里就是死活不可以，奇怪了。

我做下例子，你帮我看下。。。