Время, дата Получить время и дату из интернета

[eralex]

Посмотрел старые темы, примеры в них уже не работают. Вернее один пример смог вернуть только время с https://time100.ru/ , но ни один не показал дату.
Пытался считать данные с: https://time100.ru/, https://time.is/, https://www.timeserver.ru/.

Вот так время получил:

Local $sURL = 'https://time100.ru/', $sRead, $sTime
$sRead = BinaryToString(InetRead($sURL, 17))
$sTime = StringRegExpReplace($sRead, '(?s).*(\d{2}(?::\d{2}){2}).*', '$1')
If @extended <> 1 Then $sTime = 'error'
ConsoleWrite('Точное время: ' & $sTime & @LF)

Желательно получить даты со всех серверов, так как какие-то из них не всегда могут работать, а дату надо знать точную.

 

[joiner]

сайт сделаны по разному. поэтому нужен разный код парсера. а потом опять все изменится)

#include <String.au3>
Local $sURL = 'https://time100.ru/', $sRead, $sTime
$sRead = BinaryToString(InetRead($sURL, 17),4)
$date = _StringBetween($sRead, 'сегодня: <b>', '</b>, <u>')
$sTime = StringRegExpReplace($sRead, '(?s).*(\d{2}(?::\d{2}){2}).*', '$1')
If @extended <> 1 Then $sTime = 'error'
ConsoleWrite('Дата: ' & $date[0] & @LF & 'Время: ' & $sTime & @LF)