- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 软件加密 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128602)
-- 发布时间：2018/12/11 15:26:00
-- 软件加密
您好，之前这个软件设置了次数试用限制，这个要怎么解除呢？代码如下：
Dim n As Integer
n =
GetConfigValue("Count",1) \'假定保存试用次数的设置名称为Count
If n > 5000
Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
Else
n = n + 1
SaveConfigValue("Count",n)
End If
Dim d1 As Date =
#12/10/2016 12:30#
Dim d2 As Date =
Date.Now
Dim t As TimeSpan
= d1 - d2
\'messagebox.Show(t.TotalDays
& "天")
If t.TotalDays
< 2 Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
Else
End If
此主题相关图片如下：微信图片_20181211150630.png
-- 发布时间：2018/12/11 15:34:00
--
参考
http://www.foxtable.com/webhelp/scr/1057.htm
-- 发布时间：2018/12/11 15:58:00
--
之后出现如图所示的情况是什么意思呢？
-- 发布时间：2018/12/11 15:58:00
--
此主题相关图片如下：微信图片_20181211154759.png
-- 发布时间：2018/12/11 16:07:00
--
继续按住ctrl点击确定，直到之后登陆进去。
-- 发布时间：2018/12/11 16:11:00
--
进去之后里面所有的东西是不可以使用的，改完次数之后会发现提示指定的数据源名称错误~
此主题相关图片如下：微信图片_20181211160031.png
-- 发布时间：2018/12/11 16:24:00
--
没必要理会，修改好代码以后，重新打开项目即可。
-- 发布时间：2018/12/11 17:00:00
--
好的，谢谢您，成功了