Question

vb编写的软件如何设置使用时间 我有一个软件想设置使用时间为30天，怎么编写呢

Answer 1

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

代码结束！很简短吧！呵呵！

Answer 2

涉及控件
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达到使整个窗体不可见。