unicode转中文

#NoEnv
SetBatchLines -1
Process , Priority, , High


F1::
转换前字符:="\u0041\u0048\u004b\uff0c\u6c38\u8fdc\u7684\u795e\uff01"
转换后字符:= 转码(转换前字符)
MsgBox, % 转换前字符 "`n" 转换后字符 
Return


F8::ExitApp

;==============================================================================
    转码(value){

      i := 0
      while (i := InStr(value, "\",, i+1)) {
        if !(SubStr(value, i+1, 1) == "u")
          this.ParseError("\", text, pos - StrLen(SubStr(value, i+1)))

        uffff := Abs("0x" . SubStr(value, i+2, 4))
        if (A_IsUnicode || uffff < 0x100)
          value := SubStr(value, 1, i-1) . Chr(uffff) . SubStr(value, i+6)
      }
    Return,value
  }
  ;==============================================================================