[решено] Сверка времени через интернет

[Centrinar]

Интересен такой вопрос.

Как реализовать: скрипт сверяет время на ПК с эталоном временеи в интернете.

Спасибо

[madmasles]

Centrinar,



Код:

Код: Выделить всё

#include 
$sUrl = 'http://time.jp-net.ru/'
$sSource = _INetGetSource($sUrl)
If @error Or Not $sSource Then Exit
$sNow = StringRegExpReplace($sSource, '(?s).*?дата: (.*?).*?время: (.*?)?.*', '\1  \2')
MsgBox(64, 'Info', 'Интернет: ' & $sNow & @CRLF & 'Компьютер:' & @YEAR & '-' & @MDAY & '-' & @MON & '  ' & _
        @HOUR & ':' & @MIN & ':' & @SEC)

[Creat0R]

А зачем «_INetGetSource»? помоему эта функция уже не актуальна в AutoIt.





Код:

Код: Выделить всё

$sUrl = 'http://time.jp-net.ru/'
$sSource = InetRead($sUrl)
If @error Or Not $sSource Then Exit
$sSource = BinaryToString($sSource)
$sNow = StringRegExpReplace($sSource, '(?s).*(\d{4}-\d{2}-\d{2}).*(\d{2}:\d{2}:\d{2}).*', '\1  \2')
$sInfo = StringFormat('Интернет: %s\nКомпьютер: %04i-%02i-%02i  %02i:%02i:%02i', $sNow, @YEAR, @MDAY, @MON, @HOUR, @MIN , @SEC)
MsgBox(64, 'Info', $sInfo)

[madmasles]

Цитата Creat0R:



А зачем «_INetGetSource»?

[решено] Сверка времени через интернет

А я к ней привык.



PS

Ваш способ изящнее.