奇怪,换成了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
[此贴子已经被作者于2014-6-7 14:15:46编辑过]