让程序 只能运行一次

 

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

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

我的解决方案:

让程序只运行一次:

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

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