诸位大侠，怎样控制一个试用软件的使用日期或者可以使用的次数，到限制以后自动停止使用，提示注册呢？有那几种方法，能给出一段代码最好。非常感谢

我也在编这个题目。希望能给你点思路
让你自定的日期来做你的注册码 比如说你要搞一个注册码只能用一个月 那就用那个期限的最后一天 转换16进制来做你的注册码~ 我就是这样做的

我没做过这个,不过你可以设置一个全局的boolean类型的标志,在程序工作部分加以判断,

要加一个KEY文件,注册的方法是不行的,过期了你还原系统又能用了,用计时 如果 记录在客户端,他自己又可以改变系统时间!所以,要设置一个加密文件,把控制信息加如该文件中,程序运行 读取该文件里的信息

2楼的方案似乎不可行。因为我准备作的是共享软件，并比知道客户什么时间安装。4楼的方案似乎可行，能否给出一个比较详细的说明啊

Option Explicit
Dim riqi As String * 10
Private utixing As Variant

Private Sub Form_Load()
On Error GoTo uerror
Open "C:\Windows\System\no" For Input As #1
Input #1, riqi
Close
If (Val(Mid(Date$, 3, 2)) - Val(Mid(riqi, 3, 2))) * 365 + (Val(Mid(Date$, 6, 2)) - Val(Mid(riqi, 6, 2))) * 30 + (Val(Mid(Date$, 9, 2)) - Val(Mid(riqi, 9, 2))) >= 30 Then
utixing = MsgBox("运行日期超过30天，软件功能受限制。", vbExclamation + vbYesNo, "Exit") 'Cancel
If utixing = vbYes Then
End
End If
cmdAuto.Enabled = False
cmdQuxian.Enabled = False
End If
Exit Sub
uerror:
riqi = Date$
Open "C:\Windows\System\no" For Output As #1
Print #1, riqi
Close
Resume
End Sub

Dim lsTemp As String, n As Long
lsTemp = GetSetting(App.EXEName, "日期", "开始日期")
If lsTemp = "" Then
SaveSetting App.EXEName, "日期", "开始日期", Format(Date, "yyyymmdd")
Else
n = 30 - DateDiff("n", Format(lsTemp, "yyyy/mm/dd"), Date)
If n > 0 Then
MsgBox "免费使用期限还有" & n & "天"
Else
Unload Me
End If
End If