current GMT timestamp

[shai 0]

maybe it is usfull for anyone.

ConsoleWrite(currentGMTtimestamp())

Func currentGMTtimestamp()
    Local $bRead, $sRead, $sReturn
    $bRead = InetRead("http://www.currenttimestamp.com")
    $sRead = BinaryToString($bRead)
    $sReturn = StringRegExp($sRead, '">(.*?)</textarea>', 3)
    If Not @error Then Return $sReturn[0]
    Return SetError(1, 1, -1)
EndFunc

othet option without website:

ConsoleWrite(currentGMTtimestamp())
Func currentGMTtimestamp()
TCPStartUp()
$socket = TCPConnect( '129.6.15.29', 37 )
While 1
    If $socket > 0 Then 
        $recv = TCPRecv( $socket, 512 )
    EndIf
    If $recv <> "" Then 
        $a = Asc(StringMid($recv,1,1))*256^3+Asc(StringMid($recv,2,1))*256^2+Asc(StringMid($recv,3,1))*256+Asc(StringMid($recv,4,1))
        ExitLoop
    EndIf   
WEnd
TCPCloseSocket ( $socket )
TCPShutdown ( )
    Return $a - 2208988800
EndFunc

Edited February 6, 2011 by shai

[guinness 1,478]

Interesting variable names Nice little Function!

Also I found this >>

Edited February 4, 2011 by guinness