Access限制数据库的试用天数_access破解-access解密-access加密-access密码安全

Access限制数据库的试用天数

时间：2004-08-18 14:15 来源：本站原创作者：hi-wzj『… 阅读：次

摘要:通过读取文件的各日期，防止修改系统时间来避开试用期的程序。同时也能一定限度的防止通过备份文件的方式来避开试用期。
未做严格测试.

正文:

Private Sub FORM_Load()
Dim dd As String
dd = CurrentProject.Path
If Right(dd, 1) <> "\" Then dd = dd & "\"
ShowFileaccessInfo dd & CurrentProject.Name
End Sub
Sub ShowFileaccessInfo(filespec)
　　Dim fs, f, s, aa, bb, cc
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.GetFile(filespec)
　　aa = f.DateCreated　　 '建立日期
　　bb = f.DateLastaccessed　　'最后访问日期
　　cc = f.DateLastModified　　'最后更新日期
　　If aa > bb Then GoTo ww:
　　If aa > cc Then GoTo ww:
　　If bb > cc Then GoTo ww:
　　If cc > Date Then GoTo ww:
　　Exit Sub
ww:
MsgBox "请不要修改系统日期！": Quit
End Sub

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：Access安全性之QA详解
下一篇：给自己留后门的方法