软件注册问题！解决者给分！急！急！急！急！急！急！急！急！

Question

''在主程序中设置日期为"01-11-25"以前可以使用程序,在屏幕中放一个text1
Dim Wordpass As String  
Private Sub Form_Load()
    Wordpass = "bbbb"  '设置注册码
    If Now() > "01-11-25" Then
          MsgBox "此程序已到期,请注册"
    End If
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
          If Trim(Text1.Text) <> Wordpass Then
              Unload Me
          End If
    End If
End Sub

Answer 1

一般软件安装之后都会在安装目录下生成一个安装文件列表。你可以找到这个文件，再取得它的日期就可以了。
具体的文件名可能会因不同的安装程序不同而不同，你可以自己安装一下就能看出来了。一般都叫Install、UnInstall什么的。

Answer 2

第一次运行时自动在注册表某处(或其他地方,反正隐蔽就行)设置
一个记号,如加密过日期,如果注册后就删除这个记号,否则每次运
行时检测当前日期并于记号比较,如已超过30天则停止运行.
至于注册码可以利用硬盘序列号 或 cpu id等等来生成