关于软件使用时间限制的疑问？谢谢指点！

Question

我用下面代码实现时间限制，但过了两天使用期、程序重新安装后仍然提示已过使用时间，不知为何？请各位高手指点，最好能给出解决办法，我是初学者，十分感谢！代码如下：
Dim retvalue As Date
Dim days As Integer
days = 2
retvalue = GetSetting(App.Title, "mainkey", "datevalue", Date)
If retvalue = Date Then
   SaveSetting App.Title, "mainkey", "datevalue", Date
ElseIf Date - retvalue + days > days Then
   MsgBox "本软件的使用期已过" & days & "天，抱歉请退出！"
   End
End If
If days - (Date - retvalue) - days > days Then
   MsgBox "你修改了系统日期就不许使用本软件，抱歉请退出！"
   End
Else
   MsgBox "本软件只有" & days & "天的使用期！" & vbCrLf & "你还剩下" & days - (Date - 　　　　　　 retvalue) - days & "天试用期！"
End If

Answer 1

SaveSetting App.Title, "mainkey", "datevalue", Date写注册表的吧．卸载时把写的东东去掉是个好习惯

Answer 2

由于我对注册表不太了解，请问SaveSetting App.Title, "mainkey", "datevalue", Date确时是修改了其中的主键和日期吗？如果不用此语句，而在sf6.0中注册和反注册，那要修改的对应项目是哪几项呢？是否可以实现试用软件重复安装后可继续使用的问题呢？请各位高手详细讲解一下sf6.0注册和反注册的方法好吗？我是初学者，手边没有相关的书可参考，谢谢了！

Answer 3

不知道你用的是什么安装程序,用wiseInstall或InstallSheild都可以在卸载的时候把注册表删除,建议在做安装程序的时候,先建立一个HKEY_CURRENT_USER\software\VB and VB Program Settings\你的键值,在卸载时删除这个键值就可以了.

Answer 4

我用的是setup factory 7.0或6.0 ,就是不知道如何用它对程序注册和反注册，请各位热心朋友帮帮我吧！

Answer 5

请问jjkk168,能具体告诉我在安装程序中如何加入对应的选项，请你详细告之，十分感谢！

Answer 6

其实有个即安全又简便的解决方案:使用ASProtector对你的软件进行加壳保护!