Bring Date From intetnet(ExpireData)

[CorePack]

#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.")
    Exit
     ;run activation program
     Exit
EndIf

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 ? :/

[Nine]

This has been discussed multiple time in here.  For example (very recently) :

 

 

[svenjatzu]

Thanks i made it work with @

CorePack ´s

code