原题目:怎么才能让程序只运行一次?也就是在第二次运行时能检测到已经运行了
大概意思应该是程序运行过一次以后就不能再次运行了
我的解决方案:
让程序只运行一次:
思路: 启动程序的时候 随便向注册表里写入一些信息! 同时提取该项目的信息 若该项目已有信息,那么表示程序已经运行过一次了 . 通过这样的方法判断 ..
-
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