VB防破解之软件修改时间检测源码分享

Private Sub Command1_Click()

'注意，文件本身的修改时间应该不是我们设定的值,所以编译好EXE文件后,

'用文件属性修改器来修改文件最后修改时间到指定数值,这个数值不要太特殊了

'文件属性修改器已经放在同个文件夹下了,请使用

If ShiJiancheck = False Then

MsgBox "文件被修改", , "警告"

Else

MsgBox "文件正常", , "通过"

End If

End Sub

Private Function ShiJiancheck() As Boolean

ShiJiancheck = False

Dim iFile As String

Dim FileTime As String

iFile = App.Path & "\" & App.EXEName & ".exe"

'获取自身启动路径

FileTime = Format(FileDateTime(iFile), "YYYYMMDDHHMMSS")

。。。。。。。。。