以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  给已开发好的项目，如何做补丁  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185504)
--  作者：min-fox
--  发布时间：2023/2/26 21:08:00
--  给已开发好的项目，如何做补丁

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

 

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("成功延期体验")

[此贴子已经被作者于2023/2/26 21:09:35编辑过]
--  作者：有点蓝
--  发布时间：2023/2/26 21:20:00
--  
不用做什么改动。次数是写在旧程序里的，直接发一个新的程序安装使用不就行了。
--  作者：min-fox
--  发布时间：2023/2/26 21:25:00
--  
在使用的人比较多的情况下，我只是个人的想法，觉得这样更简单些
--  作者：有点蓝
--  发布时间：2023/2/26 21:43:00
--  
没感觉有什么简单。改代码也只能在源项目里改，改后肯定也要把改后的项目发给用户使用。

如果是开发版发布后的程序，本身就没有办法更改，也只能重新安装新发布的程序。

如果是商业版，难道还一个个到用户的项目里改？不是更麻烦！
--  作者：z769036165
--  发布时间：2023/2/27 9:13:00
--  
做一个注册窗口，然后可以根据让对方提供机器码，生成注册码+延期次数/日期生成json，然后进行加密发给用户，用户在这个注册页面，输入你发给他加密后的字符串，注册窗口对这个加密的字符串进行解密，然后解析这个内容，如果注册码不为空，直接就可以设置成正式版了，如果注册码为空，就根据延期次数/日期 修改设置的次数或日期