Код:
$Url = "http://forum.oszone.net/index.php"
$Random = Round(Random(100,100000000000000000) )
$TempFile = @TempDir & "\" & $Random & ".txt"
InetGet($Url, $TempFile)
$sHTML = FileRead($TempFile)
$avArray = StringRegExp($sHTML, '(?i)<span class="time">(.*?)</span>.<br>', 3)
If @error Then
MsgBox(16,"","Сервер времени недоступен")
FileDelete($TempFile)
Else
MsgBox(0,'', "Время с сайта oszone.net - " & $avArray[0])
FileDelete($TempFile)
EndIf
Дату незнаю как ... ищи сайт
