[madmasles]

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)