考试网 >> IT认证 >> 等级 >> 等级动态 >> 限制数据库的试用天数

发布时间：2006-07-25 12:02     点击：

通过读取文件的各日期，防止修改系统时间来避开试用期的程序。 
同时也能一定限度的防止通过备份文件的方式来避开试用期。 
未做严格测试： 
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 

发表评论： 匿名发表 用户名: 查看评论

您将承担一切因您的行为、言论而直接或间接导致的民事或刑事法律责任 留言板管理人员有权保留或删除其管辖留言中的任意内容 本站提醒：不要进行人身攻击。谢谢配合。