让程序 只能运行一次

 

原题目:怎么才能让程序只运行一次？也就是在第二次运行时能检测到已经运行了

大概意思应该是程序运行过一次以后就不能再次运行了

我的解决方案:

让程序只运行一次:

思路:   启动程序的时候   随便向注册表里写入一些信息!   同时提取该项目的信息   若该项目已有信息,那么表示程序已经运行过一次了   .   通过这样的方法判断   ..

VBScript code

'**********cik例题*******
'************************
Private Sub Form_Load()
a = GetSetting("1111", "22", "33")        '这里先要提取信息，为判断程序是否已经运行过
SaveSetting "1111", "22", "33", "1234"    '写入 特定的信息
If a = "1234" Then                        '若提取的信息=写入的信息那么
MsgBox "程序已经运行过了，按规定只能运行一次"  '提示
End           '结束程序
Else
MsgBox "第一次运行程序"  '若不等于写入的信息 那么表示程序是第一次运行
End If
End Sub

'另外告诉你一个小技巧
'程序向注册表内写入一个数值，每运行一次该数值加一，还能提示程序已经运行过多少次了
'Private Sub Form_Load()
'a = GetSetting("11111", "22", "33")
'b = Val(a) + 1
'SaveSetting "11111", "22", "33", b
'MsgBox "程序第" & b & "次运行"
'End Sub