一个好的注册程序

dyhq2012

YZC51 发表于 2020-6-13 16:49
您好！不运行宏，那用什么判断！？

就是想运行 其它N个程序 判断一下，是否注册。如果没有注册 就退出。  

YZC51

dyhq2012 发表于 2020-6-13 17:12
就是想运行 其它N个程序 判断一下，是否注册。如果没有注册 就退出。

试试

1. Sub Auto_Open() '附属应用程序正常检测代码
   
2.     Dim temp, MyRegValue As String, Serial1, Serial2 As Long, serial
   
3.     Application.DisplayAlerts = False
   
4.     RegValue = GetSetting(appname:="MyApp", section:="Startup", Key:="Reg")
   
5.     Debug.Print RegValue
   
6.     If Len(RegValue) Then
   
7.         MsgBox "恭喜您本程序已经注册！ 可以正常使用！"
   
8.         Exit Sub
   
9.     End If
   
10.     MsgBox "不好意思了！你一直都没有注册，执行删除程序！", vbOKOnly + vbInformation, "执行删除"
    
11.     ActiveWorkbook.ChangeFileAccess xlReadOnly
    
12. '   Kill ActiveWorkbook.FullName
    
13.     ThisWorkbook.Close False
    
14. End Sub

复制代码

sweetlyeep

YZC51 发表于 2020-6-9 18:39
请参考

代码中对于当前开启了多窗口文档没有判断，全部进行了隐藏，建议改为

1. If Workbooks.Count < 2 Then
   
2.     Windows(ThisWorkbook.Name).Visible = False
   
3.     Application.Visible = False
   
4. Else
   
5.     Windows(ThisWorkbook.Name).Visible = False
   
6. End If

复制代码

退出时也应该对当前开启的窗口进行判断，不能直接使用Application.Quit

1. If Workbooks.Count < 2 Then
   
2.     Application.DisplayAlerts = False
   
3.     Application.Quit
   
4. Else
   
5.     ThisWorkbook.Close Savechanges:=False
   
6. End If

复制代码

YZC51

谢谢老师指教！

jygzcj

这个后续的版本就没有用了，只有在2003版本上面实现一下。

gwjkkkkk

有空学习一下。

adud

原贴的不能下载了，好在这里还有。我刚接触这类玩意儿，需要好好学习，谢谢大家帮助。

jygzcj

https://club.excelhome.net/thread-197469-1-1.html
原贴网站有恢复了。

aecn

学习一下注册程序是什么原理

koba60ck

YZC51 发表于 2020-6-9 21:34
4楼附件已经是【硬盘序列号（唯一）】产生的注册码！

请教一下，那能做一个对应这个的注册机吗？