MsgBox, % GetTime()

GetTime() {
    WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    WebRequest.Open("GET", "https://www.timeanddate.com/worldclock/russia/moscow")
    WebRequest.Send()
    return RegExReplace(WebRequest.ResponseText, "s).+id=ct class=h1>(.+?)</span>.+?id=ctdat>(.+?)</span>.+", "$1`n$2")
}

Код рабочий, при условии верно настроенных часов на компе.

F1::
    Time := A_NowUTC
    Time += 3, h
    hTime := SubStr(Time, 9, 2)
    mTime := SubStr(Time, 11, 2)
    MsgBox % hTime ":" mTime
Return