|
本帖最后由 cp11888 于 2018-8-10 13:33 编辑
这个代码很实用,求高手给个完整版,说明+注册机,改成不需要开机阅读密码,只要能默认一机一码,加个使用次数和天数限制就行,不能在另一台电脑使用就行,控制在本单位使用,不能外泄。
Sub auto_open()
Set WMI = GetObject("winmgmts:")
ttx = GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorId
MsgBox "您的机器编码为" & ttx & Chr(10) & Chr(10) & "如需注册请发送机器码与作者联系!", 64, "版权提示"
If ttx = "178BFBFF00100F2" Then
Exit Sub
End If
Dim Cnt%, FirstDate, de, days
FirstDate = Date
de = Worksheets("注册").Range("d1")
Cnt = GetSetting("book", "aab", "ccd", 10)
If Cnt = 0 Then SaveSetting "book", "aad", "ccd", 1: Exit Sub
If de = "" Then Worksheets("注册").Range("d1") = FirstDate
MsgBox "本文件可使用60天,今天是第1次使用", , "提示"
days = Date - CDate(de)
If Cnt > 1500 Or days > 60 Or days < 0 Then
MsgBox "已超过使用次数,本文件将自行销毁!", , "警告"
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
Else
SaveSetting "book", "aab", "ccd", Cnt + 1
MsgBox "----还有" & 60 - days & "天可使用------" & Chr(10) & Chr(10) & "----还可以使用" & 1500 - Cnt & "次----", vbNo, "提示"
End If
End Sub
|
|