唐山世园会一号门位置:请问在VB中怎么实现象某些软件的试用，当你用过50次，它就提示你不能用了，非常感谢大家！

'判断试用期是否已到
Private Sub Validate()
Dim Times As Integer '已经使用的次数
Dim Days As Integer '已经使用的天数

'使用次数限制(450次)
Times = GetSetting("MyApp", "MySetting", "times", 0)
If Times = 450 Then GoTo MyError

'提示
If Times > 0 And Times Mod 50 = 0 Then
MsgBox "仅剩下" & Str(450 - Times) & "次试用机会，请尽快向软件开发商申请正式使用许可！", _
vbInformation, "演示版"
End If

Times = Times + 1
SaveSetting "MyApp", "MySetting", "times", Times

'时间限制(90天)
Days = GetSetting("MyApp", "MySetting", "Days", 0)
If Days = 90 Then GoTo MyError
If Day(Now) - Days > 0 Then Days = Days + 1
SaveSetting "MyApp", "MySetting", "Days", Days

Exit Sub

MyError:
MsgBox "软件试用期已满，请尽快向软件开发商申请正式使用许可！", vbInformation, "演示版"
End
End Sub

程序内部应该无法存储使用次数。
一般的程序使用次数限定的东东基本上都是存储在注册表中的。
你可以采用这种办法，每次把程序使用的次数都记在注册表中的某一个比较隐蔽的键支下，下一次运行程序再从这个地方读出来就可以了。

程序本身无法保存数据

有保存在注册表中的，象flashget
有的保存在文件中，象 楚汉棋缘
也有人说保存在什么数据库的什么地方，无论什么地方越隐蔽越好，什么地方有可以，关键是要写个好加密算法，否则无论那种都可以很快被破解。