Make script expire? Topic is solved

[SirSocks]

Hello -
I would like to make my scrip expire after a specific date. I can't seem to get this working. All help is appreciated
For example.....

Code: Select all

expireDate = 20181025
if (a_now > ExpireDate)
    {
    Msgbox, Expired!
    Exitapp
    }

[Nextron]

This should help: https://autohotkey.com/docs/commands/Fi ... m#YYYYMMDD

[SirSocks]

This should help: https://autohotkey.com/docs/commands/Fi ... m#YYYYMMDD

This does help for the format of the expiration date. However the entire code still isn't working

Code: Select all

FileSetTime, 20181025
expireDate = 20181025
if (a_now > ExpireDate)
    {
    Msgbox, Expired!
    Exitapp
    }

Do you have any other suggestions ?

[Nextron]

FileSetTime isn't needed. I tried to point you to the format of A_Now which is YYYYMMDDHH24MISS and not YYYYMMDD. You can compare different date formats if you make clear it are dates. Right now you're comparing a huge number versus a much smaller number.

Code: Select all

expireDate = 20181025
EnvSub,expireDate,% A_Now,D
If (expireDate<0)
	MsgBox Expired

[swagfag]

alternatively, transform ur timestamp into YYYYMMDDHHmmSS format and compare directly:

Code: Select all

expireDate = 20181025000000
if (a_now > ExpireDate)
    {
    Msgbox, Expired!
    Exitapp
    }

[SirSocks]

FileSetTime isn't needed. I tried to point you to the format of A_Now which is YYYYMMDDHH24MISS and not YYYYMMDD. You can compare different date formats if you make clear it are dates. Right now you're comparing a huge number versus a much smaller number.

Code: Select all

expireDate = 20181025
EnvSub,expireDate,% A_Now,D
If (expireDate<0)
	MsgBox Expired

Here is my entire script. The expiration date still isn't working. Notice that I set the expiration date to yesterday (October 25 2018). If the expiration script works, the function "CTRL J" should not send "test". Sadly I still get a code to disable the entire sript on a specific date.

Code: Select all

^J::
send, test
return

expireDate = 20181025
EnvSub,expireDate,% A_Now,D
If (expireDate<0)
	MsgBox Expired

If you have any other advice please let me know. Thank you!

[TheDewd]

Two examples:


Expire Script:

Code: Select all

#SingleInstance, Force

ExpireDate := "20181027"
CurrentDate := SubStr(A_Now, 1, 8)

If (CurrentDate >= ExpireDate) {
	MsgBox, Expired!
	ExitApp
}

MsgBox, Not Expired!

Expire Hotkey:

Code: Select all

#SingleInstance, Force

ExpireDate := "20181027"
CurrentDate := SubStr(A_Now, 1, 8)

^J::
	If (CurrentDate >= ExpireDate) {
		MsgBox, Expired
	} Else {
		Send, Test
	}
return

[SirSocks]

I think we're getting closer. I am now fiddling around with this script, and still have no luck. Just trying to get the .exe to exit after a specific date.

Code: Select all

#SingleInstance, Force
ExpireDate := "20181025"
CurrentDate := (A_Now)

If (CurrentDate >= ExpireDate)
	ExitApp

I am still looking for any other advice.
Thank you!

[TheDewd]

I think we're getting closer. I am now fiddling around with this script, and still have no luck. Just trying to get the .exe to exit after a specific date.

Code: Select all

#SingleInstance, Force
ExpireDate := "20181025"
CurrentDate := (A_Now)

If (CurrentDate >= ExpireDate)
	ExitApp

I am still looking for any other advice.
Thank you!

I already posted a working solution based on your example. What is your complaint regarding this code?

Code: Select all

#SingleInstance, Force

ExpireDate := "20181023"
CurrentDate := SubStr(A_Now, 1, 8)

If (CurrentDate >= ExpireDate) {
	ExitApp
}

MsgBox, Not Expired!

[Ruevil2]

I think we're getting closer. I am now fiddling around with this script, and still have no luck. Just trying to get the .exe to exit after a specific date.

Code: Select all

#SingleInstance, Force
ExpireDate := "20181025"
CurrentDate := (A_Now)

If (CurrentDate >= ExpireDate)
	ExitApp

I am still looking for any other advice.
Thank you!

I think what you are after is a timer. Do you want it to regularly keep checking the date? This code will only perform one check at the start of the script and then it will never check again.

I think this is more of what you are after. Checks for expiration every 30 seconds, exits when dates match.

Code: Select all

#SingleInstance, Force
ExpireDate := "20181025"

SetTimer, CheckExpire, 30000
return

CheckExpire:
   If (A_Now >= ExpireDate)
      ExitApp
return

[SirSocks]

I already posted a working solution based on your example. What is your complaint regarding this code?

Code: Select all

#SingleInstance, Force

ExpireDate := "20181023"
CurrentDate := SubStr(A_Now, 1, 8)

If (CurrentDate >= ExpireDate) {
	ExitApp
}

MsgBox, Not Expired!

You're right! It does work
I had it at the very bottom of my script at first and it didn't work.
I just put it at the top of my scrip now it works amazingly!!!!!

Thank you sooooo much !!!!!