$tmp = @TempDir & '\~tmp.html'
InetGet('http://tycho.usno.navy.mil/cgi-bin/timer.pl', $tmp)
$hRead = FileOpen($tmp, 0)
While 1
$line = FileReadLine($hRead)
If @error = -1 Then ExitLoop
If StringInStr($line, '
') Then
If StringInStr($line, 'UTC') Then
$line = StringRegExpReplace($line, '
(.*)', '\1')
$aLine = StringSplit($line, ',')
$date = $aLine[1]
$aLine2 = StringSplit($aLine[2], ' ')
$time = $aLine2[2]
EndIf
EndIf
WEnd
MsgBox(0, '', 'Today is ' & $date & @CRLF & 'and' & @CRLF & 'current time is ' & $time & @CRLF & @CRLF & @CRLF & '!!!Warning, this is UTC time!!!')