[решено] Сверка времени через интернет - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Сверка времени через интернет (http://forum.oszone.net/showthread.php?t=204300)

Centrinar

08-04-2011 23:46 1654311

Сверка времени через интернет

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

madmasles

09-04-2011 00:57 1654348

Centrinar,

Код:

#include <INet.au3>



$sUrl = 'http://time.jp-net.ru/'

$sSource = _INetGetSource($sUrl)

If @error Or Not $sSource Then Exit

$sNow = StringRegExpReplace($sSource, '(?s).*?дата: (.*?)</h1>.*?время: (.*?)</h1>?.*', '\1  \2')

MsgBox(64, 'Info', 'Интернет: ' & $sNow & @CRLF & 'Компьютер:' & @YEAR & '-' & @MDAY & '-' & @MON & '  ' & _

        @HOUR & ':' & @MIN & ':' & @SEC)

Creat0R

09-04-2011 01:59 1654363

А зачем «_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

09-04-2011 02:22 1654373

Цитата:

Цитата Creat0R

А зачем «_INetGetSource»? »

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

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

Время: 12:39.