;~ HttpSetProxy(1)
$sCity = 'Kiev'
$sTime = StringRegExpReplace(BinaryToString(InetRead('http://time100.ru/' & $sCity, 17), 4), '(?is).*">(\d{2}(?::\d{2}){2}).*', '$1')
If @extended = 1 Then
ConsoleWrite($sCity & ': ' & $sTime & @LF)
Else
ConsoleWrite('Error!' & @LF)
EndIf