我写了个软件，但是我想加注册进去，如果注册了就可以永久使用或者有限期，没有注册的话30天结束软件的使用，，没有注册软件情况下使用的话，我想一开始使用软件就
 '将软件第一次使用的日期存储到注册表中,zen怎么做列```


Dim ss As Date
Dim dd As Integer
   ShockwaveFlash1.Movie = App.Path & "\SWF\sss.swf"    '自动识别Falsh文件路径
   '判断试用期
   If GetSetting(appname:="this", Section:="user", Key:="time") = "" Then
      MsgBox "尊敬的用户：你好！你还没有注册软件，从现在开始，你的试用为30天！"
      SaveSetting appname:="this", Section:="user", Key:="time", setting:=Date  '将软件第一次使用的日期存储到注册表中
   Else
      ss = GetSetting(appname:="this", Section:="user", Key:="time")  '提取注册表中的日期数据
      dd = Date - ss        '计算软件试用天数
      If dd > -1 Then
         'MsgBox "对不起，你的试用期已到！ "
         frm_login.Show '试用期已到，卸载本窗体，终止程序继续进行
         Unload Me
      Else
         MsgBox "您现在还没有注册本软件，试用期还有" & 30 - dd & "天！"
      End If
   End If
   'Timer1.Enabled = True   '设置控件可用

参考下``