国产黄色免费网站,人人干人人干人人干,免费大黄网站在线看,国产情侣一区二区三区,99精品国产福利免费一区二区,国产亚洲成归v人片在线观看,伊人88

2023信創(chuàng)獨角獸企業(yè)100強
全世界各行各業(yè)聯(lián)合起來,internet一定要實現(xiàn)!

限制數(shù)據(jù)庫的試用天數(shù)

2004-02-11 eNet&Ciweek

  通過讀取文件的各日期,防止修改系統(tǒng)時間來避開試用期的程序。

  同時也能一定限度的防止通過備份文件的方式來避開試用期。

  未做嚴(yán)格測試:

  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 "請不要修改系統(tǒng)日期!": Quit

  End Sub

相關(guān)頻道: eNews

您對本文或本站有任何意見,請在下方提交,謝謝!

投稿信箱:tougao@enet16.com