主题：给已开发好的项目，如何做补丁

蓝老师：下面是项目体验使用的次数代码

 

Dim RegOk As Boolean = getconfigvalue("注册状态",False)   '定义注册状态的变量
Dim usecount As Integer  = GetConfigValue("试用次数",1) '定义试用次数

Dim reg As WinForm.Label = e.Form.Controls("Label2")

If regok = False Then  '若未注册
    reg.text = "您使用的体验版,目前已使用" & usecount & "次,还能试用" & 50 - usecount & "次"
Else
    reg.text = "您使用的已经是正式版,无需再次注册"
End If

 

 

如果达到次数，想继续再体验，后续写一个补丁该如何写？

我这样写了一个新程序，但不发挥作用。

Dim RegOk As Boolean = getconfigvalue("注册状态", False) '定义注册状态的变量
Dim usecount As Integer = GetConfigValue("试用次数", 1) '定义试用次数
ClearConfigItem
MessageBox.Show("成功延期体验")

不用做什么改动。次数是写在旧程序里的，直接发一个新的程序安装使用不就行了。

在使用的人比较多的情况下，我只是个人的想法，觉得这样更简单些

没感觉有什么简单。改代码也只能在源项目里改，改后肯定也要把改后的项目发给用户使用。

做一个注册窗口，然后可以根据让对方提供机器码，生成注册码+延期次数/日期生成json，然后进行加密发给用户，用户在这个注册页面，输入你发给他加密后的字符串，注册窗口对这个加密的字符串进行解密，然后解析这个内容，如果注册码不为空，直接就可以设置成正式版了，如果注册码为空，就根据延期次数/日期 修改设置的次数或日期