中国消费者协会投诉网:请问在VB中怎么实现象某些软件使用多少次就无效了

举个例子,在form中建立一个command控件，当你按这个按钮超过50次，按钮就变成灰色，不能按了,代码如下：
先在通用声明中输入：Private x As Integer
然后在程序启动时：Private Sub Form_Load()
x = 0
End Sub

在按一次command控件时：Private Sub Command1_Click()
x = x + 1
If x >= 50 Then
Command1.Enabled = False
End If
End Sub

Private Sub Form_Load()
dim x as integer
x = 0
End Sub

Private Sub Command1_Click()
x = x + 1
If x >= 3 Then
Command1.Enabled = False
End If
End Sub

写一个东西到注册表，每次启动程序去读注册表的那个键值，或者程序内置一个静态变量

有多种方案

主要是存放并读取“已使用次数”这个数据

1。放在服务器上，每次软件启动时自动连接，进行判定
（如果不是网络相关软件的话，不太现实，原因是会被用户的防火墙阻止）

2。放在注册表里，建一个键值，每次软件启动读取之，判定之
（修改注册表一样也有可能会被阻止）

3。放在文件里，这个最容易实现了。最好不要使用明文存储，加密之。

4。不知是否可行的办法：貌似Windows会记住你运行每个软件的次数，
说不定可以调用API取到啊。。。。

如果4可行的话，将是最最无敌的了，建议新开一课题以便高手们赐教之。。。。