VB写自己试用软件（为你写的软件加上使用期限），使用别人的软件大多都有试用期，试用期已过就不能在使用，除非注册！Vb也可以实现这样滴效果！以下下介绍两种简单易懂的（其实就会这两种）！当然还有其他方法, 像生成配置文件等！方法很多有待尝试！呵呵！
现在提供两种方法。都是利用注册表的
一种是利用点击的次数。比如一共有30次，点一次少一次。直到0就不能用了
另一种是用时间限制的。如30天，每天减少一次
代码给出，由于代码不是很难就不做任何解释了！
--------------------------------------------------
'次数限制（如30次）如下：
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "times", 0)
If RemainDay = 30 Then
MsgBox "试用次数已满，请注册"
Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用次数，好好珍惜！"
RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
先测试第一种的
--------------------------------------------------
'时间限制的（如30天）
Private Sub Form_Load()
Dim RemainDay As Long
RemainDay = GetSetting("MyApp", "set", "day", 0)
If RemainDay = 30 Then
MsgBox "试用期已过，请注册"
Unload Me
End If
MsgBox "现在剩下：" & 30 - RemainDay & "试用天数，好好珍惜！"
if day(now)-remainday>0 then RemainDay = RemainDay + 1
SaveSetting "MyApp", "set", "times", RemainDay
End Sub
代码结束！很简短吧！呵呵！
涉及控件
text,command,timer各一个
属性设置
timer\interval\1000
通用命令
Dim i As Integer
钟表命令
Private Sub Timer1_Timer()
Text1.Text = Date + Time
If Text1.Text >= "2010-11-28 22:10:00" Then
Command1.Enabled = False
End If
End Sub
这个command可以换成你想要的另一个控件，达到使软件不可用就行了。或者使用then form.visible=false达到使整个窗体不可见。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024