ctryout.cls

gps 源码 vb+access 其他地方很难找到 很详细的说明

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "TryOut"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'定时
Private TimeOut As Long

Public Function Jishi() As Integer
    WriteChk1
    If TimeOut >= 15552000 Then
       Jishi = 1
       WriteChk
       End
    ElseIf TimeOut >= 31104000 Then
       'WriteChkk
       Jishi = 2
       End
    End If
End Function

Public Function Chk() As String
    Chk = GetSetting("NoName", "Tools", "Debug", "OpUfY5498I9I")
End Function

Public Function chk1() As String
    chk1 = GetSetting("NoName", "Tools", "Again", "0")
    TimeOut = Val(chk1)
End Function

Public Function WriteChk() As String
    SaveSetting "NoName", "Tools", "Debug", "OpUfY5498I9I"
End Function

Public Function WriteChk1() As String
    WriteChk1 = GetSetting("soft", "back", "Again", "0")
    TimeOut = Val(WriteChk1) + 1
    SaveSetting "soft", "back", "Again", CStr(TimeOut)
End Function

Public Function WriteChkk() As String
    'SaveSetting "NoName", "Tools", "Debug", "A0R3Y56481pQ"
End Function