AutoHotkey Community

Lemming · Joined: 20 Dec 2005 Posts: 158 Location: Malaysia

Yea, I'm sure someone could do all this in a single line. Wink

But I wanted something readable and easily changed.

I figured since my script deals with the current (presumed) correct date, and time- travel has not been invented yet, then I wouldn't have to be concerned about any date before 2006.

Anyway, if you stuck an AND there, the script would start working again on Jan 2007 (CurrentMonth would become 1).

Lemming · Joined: 20 Dec 2005 Posts: 158 Location: Malaysia

*Shrug* seems to work on my PC, and three other PCs I tested on. Plus the script logic seems sound to me - barring time-travel, or someone changing the PC's date.

Anyway, I just cobbled it together from rooting about the helpfile. Is there a better method to extract current system date, then make a comparison?

Would like to know for future improvement.

Thanks,
Lemming

Guest · Posted: Tue Mar 07, 2006 1:52 pm Post subject:

This script is also not working. The proggy do not stop to work.

CheckExpiry:
FormatTime currentYear, , yyyy
FormatTime currentMonth, , M
;~ MsgBox Y: %currentYear%`nM: %currentMonth%
If ((currentYear = 2006 and currentMonth > Cool

or currentYear > 2006) ; valid till Sept 1st, 2006
{
MsgBox Beta version expired`nContact author for new version.
ExitApp
}

Stefan16 · Guest

Hurra- this script do it - thanks. Untill now I have found no bug on it Smile

CheckExpiry:
FormatTime currentYear, , yyyy
FormatTime currentMonth, , M
;~ MsgBox Y: %currentYear%`nM: %currentMonth%
If ((currentYear = 2007 and currentMonth > 3) or currentYear > 2007) ; valid till Sept 1st, 2006
{
MsgBox Beta version expired`nContact author for new version.
ExitApp
}

PhiLho · Posted: Tue Mar 07, 2006 2:49 pm Post subject:

Stefan16 · Guest

so the last script you adviced is perfekt PhiLho. Thank you.

PhiLho · Posted: Tue Mar 07, 2006 3:57 pm Post subject:

TDMedia · Joined: 26 Nov 2005 Posts: 196

Lemming · Joined: 20 Dec 2005 Posts: 158 Location: Malaysia

Well, it's not always about profits or payment. Right now I don't charge anyone for my software even though it is used in a production environment.

In my case, the expiry date is simply because I don't want any copies of a beta version floating around after a certain date. My software doesn't have copy-protection or user/pc restrictions.

TDMedia · Joined: 26 Nov 2005 Posts: 196

Well, that's very different. Like mentioned earlier, the target expiration can just be coded right into it.

Stefan16 · Guest

PhiLho · Posted: Fri Mar 10, 2006 4:11 pm Post subject:

The way you did...
TPMedia means that the expiration data can be hardcoded in the script: that's not "use this software 30 days and pay or burst", but "this software is good until this date, after that, it will decay"...
_________________

vPhiLho := RegExReplace("Philippe Lhoste", "^(\w{3})\w*\s+\b(\w{3})\w*$", "$1$2")

Stefan16 · Guest

The last script is very good, problem only that if you turn the date back, the software is working again.

PhiLho · Posted: Fri Mar 10, 2006 4:34 pm Post subject:

Yes, it is OK for Lemming as users will probably prefer to get the latest version (hoping that there is one ready Smile

) rather than messing with the clock.
For more robust solutions, reread the topic...
_________________

vPhiLho := RegExReplace("Philippe Lhoste", "^(\w{3})\w*\s+\b(\w{3})\w*$", "$1$2")

Guest · Posted: Fri Mar 10, 2006 5:04 pm Post subject:

Sure PhiLho, this is a nice solution, but for me it is like a "half" solution because I don't want that anyone at school will use some of my applications that are not ready and just for testing for ever.