|
摘 要:通過讀取文件的各日期，防止修改系統時間來避開試用期的程序。同時也能一定限度的防止通過備份文件的方式來避開試用期。
未做嚴格測試.
正 文:
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
編輯：北京信誠IT保姆IT外包部 http:// www.aboverow.cn www.xcit.com.cn |
當前位置：
