• Home
 · 
• Custom Controls/Forms/Menus
 · 
• To Store and Retrive Values to Registry

To Store and Retrive Values to Registry

To Store and Retrive Values to Registry

API Declarations


Dim datInActiveDate As Date
Dim datNotValid As Date
Dim datStarted As Date
Dim datFinished As Date



Rate To Store and Retrive Values to Registry

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

  'First Get the Value from the Registry
  strStoredFromRegistry = GetSetting("Win32rgc", "WhenGoingToInActive", "WhichDateStarted")

  'If the Registry Value is not set then Set he Value
  If Len(Trim(strStoredFromRegistry)) < 1 Then
     SaveSetting "Win32rgc", "WhenGoingToInActive", "WhichDateStarted", Date
     'Add 50 days to the Current Date
     datInActiveDate = DateAdd("d", 50, Date)
     'Here I have Given 15 days for expiration of the Software You can Give 'n' no of days as you like
     SaveSetting "Win32rgc", "WhenGoingToInActive", "WhichDateStarted", datInActiveDate
  Else
     'If this Registry Value is not Set then
     datNotValid = GetSetting("Win32rgc", "WhenGoingToInActive", "WhichDateStarted")
     If Len(Trim(datNotValid)) < 1 Then
         'Get the Previously set Initial Value from the Registry
         strStoredFromRegistry = GetSetting("Win32rgc", "WhenGoingToInActive", "WhichDateStarted")
         datStarted = CDate(strStoredFromRegistry)
         'Get the Expiry Value from the Registry
         datFinished = GetSetting("Win32rgc", "WhenGoingToInActive", "WhichDateStarted")
         datInActiveDate = CDate(datInActiveDate)
         'Compare Registry Values with the Date, if they are bound with in the Initial Value of the Software and Expiry Value of the SOftware then only the Program will run
         If Date > datInActiveDate Or Date < datStarted Then
            'Now set the Used Date value to True
            SaveSetting "Win32rgc", "Expiry", "Used Date", "True"
            MsgBox "Your Application has Expired; You cannot run this Application.", vbExclamation, "Application Expired"
            End
         Else
            MsgBox " " & datFinished - Date & " days of evaluation period is remaining", vbExclamation, "Application Expired"
         End If
      Else
         MsgBox "Application has Expired; You cannot run this Application.", vbExclamation, "Application Expired"
         End
      End If
  End If