Help to fix this code to Application Expire.

[nals]

I found this code from here somewhere here to application Expire: looks like this is for ver 4.0 , can someone please correct this code to work for version 6 please.

%NumRuns% = "0"
%NumRuns% = Registry.GetValueData ("HKEY_CURRENT_USER\HiddenKey", "NumberOfRuns")
IF (%NumRuns% = 0)
%NumRuns% = "1"
Registry.SetValue ("HKEY_CURRENT_USER\HiddenKey", "NumberOfRuns", "%NumRuns%")
END IF
IF (%NumRuns% >= 30)
%Result% = Dialog.MessageBox ("Expired", "This application has expired.", Ok, Stop)
Application.Exit
ELSE
%NumRuns% = Evaluate (%NumRuns% + 1)
Registry.SetValue ("HKEY_CURRENT_USER\HiddenKey", "NumberOfRuns", "%NumRuns%")
END IF

[mz241508]

Have a look at this thread >

[nals]

mz241508 That was great ! Thanks a lot

[mz241508]

Your welcomed!