用服务端程序生成配置文件：Dim cs As String = e.Form.Controls("TextBox3").Value ‘这个TextBox3存放的是共享数据库的完整路径
If Filesys.FileExists(cs) Then '如果找到了数据库名
DataTables("数据库完整路径表").DataRows(0)("数据库路径") = cs ’建了一个内部数据库表，用来存放完整路径
Dim PW As String = EncryptText( "主机ID:" & ComputerId & vbcrlf & "主机时间:" & now ,"加密字符1","加密字符2")
Dim IP As String = cs.SubString(0,cs.LastIndexOf("\") )
FileSys.WriteAllText(IP & "\服务端配置文件.txt", PW , False)
End If
客户端读取配置文件时：
Dim ipFile As String = ProjectPath & "客户端配置文件.txt" ’这个客户端配置文件记录的两部分信息，一是主机的ID，二是上面的共享数据库的完整路径
If Filesys.FileExists(ipFile) Then
Dim IP,CID As String
Dim SQLDate As String = FileSys.ReadAllText(ipFile)
For Each m As String In SQLDate.Split(vbcrlf)
If m.Contains("共享数据库完整路径:") Then
IP = m.SubString(m.IndexOf(":")+1)
End If
If m.Contains("主机ID:") Then
CID = m.SubString(m.IndexOf(":")+1) ‘从配置文件中读取主机ID
End If
Next
Dim f As String = IP.SubString(0,IP.LastIndexOf("\")) ‘找到共享地址，服务端配置文件、共享数据库都放在这个目录下
'读取指定文件的值
If FileSys.FileExists(f & "\服务端配置文件.txt") Then
Dim s As String = FileSys.ReadAllText(f & "\服务端配置文件.txt")
Dim PW As String = DecryptText( s,"加密字符1","加密字符2")
Dim ServerT As Date
Dim ServerCID As String
For Each m As String In pw.Split(vbcrlf)
If m.Contains("主机时间:") Then
ServerT = CDate( m.SubString(m.IndexOf(":")+1))
End If
If m.Contains("主机ID:") Then
ServerCID = m.SubString(m.IndexOf(":")+1)
End If
Next
If CurUserID > "" Then '这个CurUserID是全局代码，登录时赋值
If (Date.Now - ServerT).TotalSeconds > 600 Or CID <> ServerCID Then ’如果主机客户机时间相差10分钟或者客户机解析的主机ID不同，就弹出窗口
If Forms("提示窗口").Opened = False Then
Forms("提示窗口").Open()
End If
Else
Forms("提示窗口").Close()
End If
End If
Else
If Forms("提示窗口").Opened = False Then
Forms("提示窗口").Open()
End If
End If
Else
If Forms("提示窗口").Opened = False Then
Forms("提示窗口").Open()
End If
End If
[此贴子已经被作者于2014-7-6 12:30:58编辑过]
加好友 
发短信
Post By：2014/5/7 23:02:00 [只看该作者]
此主题相关图片如下：进程在使用中.png