Считать время с сайта и передать в Label

#Region Includes
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#EndRegion Includes
#NoTrayIcon

$Form1 = GUICreate("Точное время в Кишиневе", 300, 200, -1, -1)

GUICtrlCreateLabel("Точное время в Кишиневе", 10, 50, 150, 20, $WS_BORDER)
$Label_Time = GUICtrlCreateLabel("", 165, 50, 125, 20, $WS_BORDER)

$GetTime = GUICtrlCreateButton("Получить точное время", 10, 80, 280, 25)

GUISetState(@SW_SHOW)

_GetTime($Label_Time)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GetTime
			_GetTime($Label_Time)

		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func _GetTime($_Label_Time)
	$sHTML = BinaryToString(InetRead("http://skolko.in/kishinev/", 1))

	$sDate = StringRegExpReplace($sHTML, '^(?six).*(\d{4}):(\d{2}):(\d{2}):\d{2}:\d{2}:\d{2}.*', '\1/\2/\3')
	$sTime = StringRegExpReplace($sHTML, '^(?six).*\d{4}:\d{2}:\d{2}:(\d{2}:\d{2}:\d{2}).*', '\1')
	$sTimeZone = StringRegExpReplace($sHTML, '^(?six).*"tz","(\d{1})".*', '\1')

	$sCurrentTime = _DateAdd("h", $sTimeZone, $sDate & " " & $sTime)

	$sCurrentTime = StringMid($sCurrentTime, StringInStr($sCurrentTime, " ") + 1, StringLen($sCurrentTime) - StringInStr($sCurrentTime, " "))

	GUICtrlSetData($_Label_Time, $sCurrentTime)
EndFunc

HotKeySet('{Esc}', '_Exit')
HotKeySet('^2', '_GetTime_Kishinev')
ToolTip('Нажми Ctrl+2 и узнай' & @LF & 'время в Кишиневе.', 0, 0)
While 1
	Sleep(50)
WEnd

Func _GetTime_Kishinev()
	Local $s_URL = 'http://24timezones.com/ru_vremia/kishinev_mestnoe_vremia.php', _
			$i_Flag = 1, $s_Sourse, $s_Time = 'Error'
	HotKeySet('^2')
	If Ping('24timezones.com') Then
		$s_Sourse = InetRead($s_URL, 17)
		If Not @error Then
			If StringInStr($s_Sourse, '5554462D38') Then $i_Flag = 4
			$s_Sourse = BinaryToString($s_Sourse, $i_Flag)
			$s_Time = StringRegExpReplace($s_Sourse, '(?s).*?currentTime">(.*?)</span?.*', '$1')
		EndIf
	EndIf
	HotKeySet('^2', '_GetTime_Kishinev')
	ToolTip('Сейчас в Кишиневе:' & @LF & $s_Time, 0, 0)
EndFunc   ;==>_GetTime_Kishinev

Func _Exit()
	Exit
EndFunc   ;==>_Exit

#include <IE.au3>

HotKeySet('{Esc}', '_Exit')

$oIE = _IECreate('http://24timezones.com/ru_vremia/kishinev_mestnoe_vremia.php', 0, 0)
$oTime = _IEGetObjById($oIE, 'currentTime')
If @error Then _Exit()
AdlibRegister('_GetTime_Kishinev', 1000)
While 1
	Sleep(50)
WEnd

Func _GetTime_Kishinev()
	Local $s_Time = _IEPropertyGet($oTime, 'innertext')
	If @error Then Return
	ToolTip('Сейчас в Кишиневе:' & @LF & $s_Time, 0, 0)
EndFunc   ;==>_GetTime_Kishinev

Func _Exit()
	_IEQuit($oIE)
	Exit
EndFunc   ;==>_Exit

#Region Includes
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#EndRegion Includes
#NoTrayIcon

$Form1 = GUICreate("Точное время в Кишиневе", 300, 200, -1, -1)

GUICtrlCreateLabel("Точное время в Кишиневе", 10, 50, 150, 20, $WS_BORDER)
$Label_Time = GUICtrlCreateLabel("", 165, 50, 125, 20, $WS_BORDER)

$GetTime = GUICtrlCreateButton("Получить точное время", 10, 80, 280, 25)

GUISetState(@SW_SHOW)

_GetTime($Label_Time)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GetTime
            _GetTime($Label_Time)

        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _GetTime($_Label_Time)
    $sHTML = BinaryToString(InetRead("http://www.timeanddate.com/worldclock/city.html?n=177", 1))

    $sCurrentTime = StringRegExpReplace($sHTML, '^(?six).*Current\ Time.*(\d{2}:\d{2}:\d{2})</strong>\ .*', '\1')

    ConsoleWrite($sCurrentTime & @CR)
    GUICtrlSetData($_Label_Time, $sCurrentTime)
EndFunc

; http://book.itep.ru/4/44/sntp4416.htm

#Include <Date.au3>

Global Const $Server = 'pool.ntp.org'

$tPacket = DllStructCreate('byte[68]')
$tNTP = DllStructCreate('byte Header[4];byte RootDelay[4];byte RootDispersion[4];byte ReferenceIdentifier[4];byte ReferenceTimestamp[8];byte OriginateTimestamp[8];byte ReceiveTimestamp[8];byte TransmitTimestamp[8];byte KeyIdentifier[4];byte MessageDigest[16]', DllStructGetPtr($tPacket))

; Header = 0x1B000000 = 00011011 00000000 00000000 00000000b (LI = 00b VN = 011b Mode = 011b Stratum = 00000000b Poll = 00000000b Precision = 00000000b)

DllStructSetData($tNTP, 'Header', Binary('0x1B000000'))

$bPacket = DllStructGetData($tPacket, 1)

UDPStartup()
$Socket = UDPOpen(TCPNameToIP($Server), 123)
UDPSend($Socket, $bPacket)
While 1
	$bPacket = UDPRecv($Socket, 68, 1)
	If (@error) Or ($bPacket) Then
		ExitLoop
	EndIf
	Sleep(100)
WEnd
UDPCloseSocket($Socket)
UDPShutdown()

DllStructSetData($tPacket, 1, $bPacket)

$Time = Number(StringLeft(DllStructGetData($tNTP, 'TransmitTimestamp'), 10)) ; Seconds elapsed since 00:00:00 January 1st, 1900 without DST and time zone

ConsoleWrite(_DateAdd('s', $Time, '1900/01/01 00:00:00') & @CR)