Jump to content

Bring Date From intetnet(ExpireData)

Recommended Posts

#include <date.au3>
$expdate = Floor(_DateToDayValue("2019", "04", "25")) ;Julian date since (days since noon 4713 BC January 1)
If (Floor(_DateToDayValue(@YEAR, @MON, @MDAY)) > $expdate) Then
         MsgBox(48, "Expired version", "This is an expired pre-release development version" & @CRLF & _
            "of this program and is not for general use." & @CRLF & @CRLF & _
            "Please email somebody@somewhere.com for further information.")
     ;run activation program

this code is work but if i changed the date manually the program back to work .

so i want to bring the time and date from internet to stop this trick , any help ? :/

Link to post
Share on other sites
  • 2 weeks later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Create New...