Get DATE form Internet

[Amen]

How can i Calculate if my prog Expired ? (My Prog must run only for one month).Is there any way to retrieve current date asking Internet and not a pc or a server on the LAN?

Edited November 28, 2005 by Amen

[kpu]

What you could do is have your program write the current date to a file or a reg key. You could use the "_StringEncrypt" to encrypt the date ..??

[MSLx Fanboy]

InetGet or use COM for the below address:

http://nist.time.gov/timezone.cgi?Eastern/d/-5

[Amen]

InetGet or use COM for the below address:

http://nist.time.gov/timezone.cgi?Eastern/d/-5

that's exactly i was looking for.Thank u very much! If i had any Alternate pages it would be perfect.

Edited December 2, 2005 by Amen

[Amen]

ok Function Works fine! hope they give always the right date.he

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:        Amen <BlackLily@freemail.gr>
;
; Script Function: Returns Global Date
; ----------------------------------------------------------------------------

Func _GlobalDate()
Local $Day[8],$Datefile,$_Date
$Datefile=@TempDir&"\Time.html"
$Day[1]="Monday"
$Day[2]="Tuesday"
$Day[3]="Wednesday"
$Day[4]="Thursday"
$Day[5]="Friday"
$Day[6]="Saturday"
$Day[7]="Sunday"

InetGet("http://nist.time.gov/timezone.cgi?Eastern/d/-5",$Datefile,1)
$_Date = FileRead($DAtefile, FileGetSize($DAtefile))
FileDelete($DAtefile)
For $i=1 to 7
    $msg=StringInStr($_Date,$Day[$i]);Holds potition of day found
    If $msg>0 then 
        $_Date=StringTrimLeft($_Date,$msg-1);Holds Day and after string
        $msg=StringInStr($_Date,"<");Holds the potition of first "<" found
        If $msg>0 then 
            $_Date=StringMid($_Date,1,$msg-1);Holds date.Format:    Friday,December 2,2005
            ExitLoop
        EndIf
    EndIf
NExt 
    return $_Date
EndFunc