text_file = %A_ScriptDir%\win.html

FileRead, text, %text_file%
;FileRead, text, *P65001 %text_file%  ;прочитать UTF-8 файл

text := ConvertToHtml(text)
msgbox % text

text := Decoding(text, "UTF-8")
msgbox % text

text := ComUnHTML(text)
msgbox % text


Decoding(text, from, to = "CP0")  {
   VarSetCapacity(var, StrPut(text, to)*((to = "utf-16" || to = "cp1200") ? 2 : 1), 0)
   StrPut(text, &var, to)
   Return StrGet(&var, from)
}

ComUnHTML(html) {
	oHTML := ComObjCreate("HtmlFile")
	oHTML.write(html)
	return oHTML.documentElement.outerhtml
}

ConvertToHtml(str2htm)  {
   Loop, parse, str2htm
   {
      if AnsiTestChar(A_LoopField)
         htmlStr .= A_LoopField
      else  {
         Transform, out, HTML, % A_LoopField, 2
         htmlStr .= out
      }
   }
   Return htmlStr
}

AnsiTestChar(char)  {
   VarSetCapacity(buff, 1, 0)
   StrPut(char, &buff, "cp0")
   Return StrGet(&buff, "cp0") == char
}

str := "Переданные вами параметры неверны"
MsgBox, % Decoding(str, "UTF-8")

Decoding(text, from, to = "CP0")  {
   VarSetCapacity(var, StrPut(text, to)*((to = "utf-16" || to = "cp1200") ? 2 : 1), 0)
   StrPut(text, &var, to)
   Return StrGet(&var, from)
}

str := "Широкая электрификация южных губерний даст мощный толчок подъёму сельского хозяйства."
VarSetCapacity(var, StrPut(str, "CP0"), 0)
StrPut(str, &var, "CP0")
MsgBox, % StrGet(&var, "UTF-8")

str := "Переданные вами параметры неверны"
VarSetCapacity(var, StrPut(str, "CP0"), 0)
StrPut(str, &var, "CP0")
MsgBox, % StrGet(&var, "UTF-8")

 Переданные вами параметры неверны