您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

如何限制软件的使用期限?

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何限制软件的使用期限?[已结贴,结贴人:lcsfxs]

发表于：2007-10-11 11:49:25 楼主

比如我开发了个小软件,想给软件加个试用期（以30天为例),超过30天软件自动停止运行,并提醒用户注册付费,请各位大侠指点小弟该怎么解决?不胜感谢!!!

小弟开发的软件网址:
天空软件站:http://shareware.skycn.com/author_softlist.php?author_id=26655,华军也有,呵呵

发表于：2007-10-15 15:31:441楼得分:10

1、在注册表的某个地方做个标记
2、在ini的某个地方做标记
3、在硬盘某个文件中做标记
4、在背景图的位信息中写入时间信息。

不过说实在话，这些都挺容易破的，但是常用的也就这几种。
象金山词霸，就是ini文件

发表于：2007-10-15 15:38:472楼得分:10

没法绝对，许多方法都可以轻易破解

发表于：2007-10-15 16:47:323楼得分:0

有没有这方面的代码？？

发表于：2007-10-15 20:49:394楼得分:10

private type firstdate
day as integer
month as integer
year as integer
end type
private sub command1_click（)
dim times as integer
times = getsetting（"use", "soft", "times", "5")
if times = 5 then
首次使用
savesetting "use", "soft", "times", 10
savesetting "use", "soft", "date", day（date)
savesetting "use", "soft", "date", month（date)
savesetting "use", "soft", "date", year（date)
else
firstdate.day = int（getsetting（"use", "soft", "date", day（date)))
firstdate.month = int（getsetting（"use", "soft", "date", day（month)))
firstdate.year = int（getsetting（"use", "soft", "date", day（year)))

' ....... 天數的的算法自己寫

end if

end sub

发表于：2007-10-15 22:23:325楼得分:10

没有有效的办法，还是买授权吧。

发表于：2007-10-16 11:24:246楼得分:0

软件是你开发的吗????

发表于：2007-10-16 15:38:557楼得分:0

方法太多了,时间的方法不太好,次数的方法还是比较有吸引力的

发表于：2007-10-18 17:29:598楼得分:0

是的,请高手指点一下,呵呵

发表于：2007-10-18 17:30:569楼得分:0

我现在采用的是限制功能的方法,但这种方法不好,呵呵

发表于：2007-10-18 17:37:1710楼得分:0

很难不被破解的

发表于：2007-10-18 21:54:4211楼得分:30

上次太累了，寫錯了，這次作為補嘗，幫你寫全了

private sub command1_click（)
dim firstday as integer
dim firstmonth as integer
dim nowday as integer
dim nowmonth as integer
dim nowyear as integer
dim addday（12) as integer

dim times as integer
times = getsetting（"use", "soft", "times", "5")
if times = 5 then '判斷是是否首次使用
'首次使用
savesetting "use", "soft", "times", 10
savesetting "day", "use", "date", day（date)
savesetting "month", "use", "date", month（date)
else
firstday = val（getsetting（"day", "use", "date", day（date)))
firstmonth = val（getsetting（"month", "use", "date", month（date)))

nowday = day（date)
nowmonth = month（date)
addday（1) = 31
addday（2) = 28 '平年
addday（3) = 31
addday（4) = 30
addday（5) = 31
addday（6) = 30
addday（7) = 31
addday（8) = 31
addday（9) = 30
addday（10) = 31
addday（11) = 31
addday（12) = 30
if nowmonth = firstmonth then
if （nowday - firstday) > = 30 then theend
else
if （nowday + addday（nowmonth) - firstday) > = 30 then theend
end if
end if

end sub
sub theend（)
msgbox （"軟件試用以到期！")
end
end sub

发表于：2007-10-19 10:24:1412楼得分:0

都挺容易破解的

发表于：2007-10-19 10:48:2213楼得分:10

to myhongye:
datediff（"d", dt1, dt2) 就可以求两个日期的日数差，没必要那么麻烦。

发表于：2007-10-19 14:34:0014楼得分:0

to tiger_zhao:
謝謝
用了你的方法，讓程序更加簡單明了

发表于：2007-10-19 15:42:3015楼得分:0

发表于：2007-10-19 15:42:3116楼得分:0

发表于：2007-10-19 15:42:3417楼得分:0

发表于：2007-10-19 15:42:3518楼得分:0

发表于：2007-10-23 16:10:5419楼得分:10

限制使用次数还好点!
既简单又实用,人家改时间你怎么办

发表于：2007-10-23 16:14:2320楼得分:0

限制使用次数,每次用户启动程序时就更新一个记录使用次数的文件,
使用次数加一,

这个文件最好加密,
里面记录允许使用的次数
当前使用的次数，
当两个数相等就提示用户不能使用

发表于：2007-10-23 16:55:3221楼得分:10

千万不要用vb提供的操作注册表的函数，一定要用win32 api!

发表于：2007-10-23 17:16:0422楼得分:0

我不是很会同意5楼的

好贴支持下

发表于：2007-10-25 06:04:1823楼得分:0

1、登陆次数写入某一文件，采用加密文件的形式。
2、将第一次登陆的情况回写道可执行文件本身。相关情况网上找。

下一篇：关于考试试卷自动生成系统
上一篇：使用excel数据源，不能正确显示货币类型的小数……

其他资讯