AHK: Преобразовать строку JSON в объект

Set htmldoc = CreateObject("htmlfile")
Set Script = htmldoc.Script ' то же, что htmldoc.parentWindow
Script.execScript "var eval = eval;", "JScript"

str = _
  "{" & _
  "   ""firstName"": ""Иван""," & _
  "   ""lastName"": ""Иванов""," & _
  "   ""address"": {" & _
  "       ""streetAddress"": ""Московское ш., 101, кв.101""," & _
  "       ""city"": ""Ленинград""," & _
  "       ""postalCode"": 101101" & _
  "   }," & _
  "   ""phoneNumbers"": [" & _
  "       ""812 123-1234""," & _
  "       ""916 123-4567""" & _
  "   ]" & _
  "}"

Set obj = Script.eval("(" & str & ")")
MsgBox obj.firstName
MsgBox obj.address.streetAddress

' ...
Script.execScript "Array.prototype.item = function (i) {return this[i];};", "JScript"
MsgBox obj.phoneNumbers.item(1)

JSON =
(LTrim Join
   {
      "firstName": "Иван",
      "lastName": "Иванов",
      "address": {
          "streetAddress": "Московское ш., 101, кв.101",
          "city": "Ленинград",
          "postalCode": 101101
      },
      "phoneNumbers": [
          "812 123-1234",
          "916 123-4567"
      ]
   }
)
 
htmldoc := ComObjCreate("htmlfile")
Script := htmldoc.Script
Script.execScript("Object.prototype.GetKeys = function () {keys = [],i = 0;for (k in this) { keys[++i] = k}; keys[0] = i;return keys}", "JScript")
 
oJSON := Script.eval("(" . JSON . ")")
keys := oJSON.GetKeys()
 
Loop % keys.0 - 1
   MsgBox, % "key = " . (k := keys[A_Index]) . "`nvalue = " . (IsObject(v := oJSON[k]) ? "Object" : v)

JSON =
(LTrim Join
   {
      "firstName": "Иван",
      "lastName": "Иванов",
      "address": {
          "streetAddress": "Московское ш., 101, кв.101",
          "city": "Ленинград",
          "postalCode": 101101
      },
      "phoneNumbers": [
          "812 123-1234",
          "916 123-4567"
      ]
   }
)
 
JScript =
(
Object.prototype.GetKeys = function () {
   var keys = []
   for (var k in this)
      if (this.hasOwnProperty(k))
         keys.push(k)
   return keys
   }
Object.prototype.IsArray = function () {
   var toStandardString = {}.toString
   return toStandardString.call(this) == '[object Array]'
   }
)
 
htmldoc := ComObjCreate("htmlfile")
Script := htmldoc.Script
Script.execScript(JScript)
 
oJSON := Script.eval("(" . JSON . ")")
keys := oJSON.GetKeys()
 
Loop % keys.length
   list .= (k := keys[A_Index-1]) . " = " . (IsObject(v := oJSON[k]) ? (v.IsArray() ? "Array[]" : "Object{}") : v) . "`n"
 
MsgBox, % list

  var keys = [];
  for (var k in this)

  keys = [];
  for (k in this)

JSON =
(LTrim Join
   {
      "firstName": "Иван",
      "lastName": "Иванов",
      "address": {
          "streetAddress": "Московское ш., 101, кв.101",
          "city": "Ленинград",
          "postalCode": 101101
      },
      "phoneNumbers": [
          "812 123-1234",
          "916 123-4567"
      ]
   }
)

for k, v in GetObjectFromJSON(JSON).address
   MsgBox, % k " = " v

GetObjectFromJSON(string)
{
   FirstSim := SubStr(string, 1, 1)
   mode := FirstSim = "{" ? "collection" : FirstSim = "[" ? "array" : FirstSim = """" ? ""
      . "str" : RegExMatch(FirstSim, "[\d]") ? "num" : "Error"
   if (mode = "collection")
   {
      Obj := {}, StartPos := 2
      While StartPos := RegExMatch(string, """(.*?)"":\s*", Found, StartPos)
      {
         RegExMatch(string, "P)([\[\{""\d])", Found_, StartPos += StrLen(Found))
         Content := GetContent(SubStr(string, StartPos))
         Obj[Found1] := GetObjectFromJSON(Content)
         StartPos := Found_Pos1 + StrLen(Content)
      }
   }
   else if (mode = "array")
   {
      Obj := [], StartPos := 2
      While RegExMatch(string, "P)([\[\{""\d])", Found_, StartPos)
      {
         Content := GetContent(SubStr(string, Found_Pos1))
         Obj.Insert(GetObjectFromJSON(Content))
         StartPos := Found_Pos1 + StrLen(Content)
      }
   }
   else if (mode = "str")
      Obj := RegExReplace(SubStr(string, 2, -1), "\\(.)", "$1")
   else if (mode = "num")
      Obj := string
   else
      MsgBox, Ошибка! Первый символ входящего объекта не может быть "%FirstSim%"!
   Return Obj
}

GetContent(string)
{
   FirstSim := SubStr(string, 1, 1)
   inverse := FirstSim = "{" ? "}" : FirstSim = "[" ? "]" : FirstSim = """" ? """" : ""
   if (inverse = "")
      Content := RegExReplace(string, "([\de.-]+).*", "$1")
   else if (inverse = """")
      Content := RegExReplace(string, "(.*?[^\\]"").*", "$1")
   else
   {
      i := 0
      Loop, parse, string
      {
         Content .= A_LoopField
         i += ((A_LoopField = FirstSim && PrevSim != "\") ? 1 : (A_LoopField = inverse && PrevSim != "\") ? -1 : 0)
         if i = 0
            break
         PrevSim := A_LoopField
      }
   }
   Return Content
}

str = {"response":{"count":1327,"items":[{"id":456239092,"album_id":43057155,"owner_id":-4410189,"user_id":468722286,"photo_75":"https:\/\/pp.userapi.com\/c840126\/v840126582\/7499d\/-WVOjdnpJZI.jpg","photo_130":"https:\/\/pp.userapi.com\/c840126\/v840126582\/7499e\/uQcruFXFMdk.jpg","photo_604":"https:\/\/pp.userapi.com\/c840126\/v840126582\/7499f\/y43rEl-TAkA.jpg","width":450,"height":600,"text":"","date":1516419054,"likes":{"user_likes":0,"count":0},"reposts":{"count":0}},{"id":456239078,"album_id":42994275,"owner_id":-4410189,"user_id":178805115,"photo_75":"https:\/\/pp.userapi.com\/c639429\/v639429115\/286c2\/zjw36aXGsrg.jpg","photo_130":"https:\/\/pp.userapi.com\/c639429\/v639429115\/286c3\/6pqM4Ptzqzo.jpg","photo_604":"https:\/\/pp.userapi.com\/c639429\/v639429115\/286c4\/bVjh384ZaLs.jpg","width":600,"height":300,"text":"http:\/\/fas.st\/UF5a3","date":1498331078,"likes":{"user_likes":0,"count":0},"reposts":{"count":0}},{"id":456239077,"album_id":203534724,"owner_id":-4410189,"user_id":178805115,"photo_75":"https:\/\/pp.userapi.com\/c639429\/v639429115\/286bb\/jUH3jjLme28.jpg","photo_130":"https:\/\/pp.userapi.com\/c639429\/v639429115\/286bc\/dvTzcguDpI0.jpg","photo_604":"https:\/\/pp.userapi.com\/c639429\/v639429115\/286bd\/6uf84mYlyu8.jpg","width":600,"height":300,"text":"http:\/\/fas.st\/UF5a3","date":1498331077,"likes":{"user_likes":0,"count":0},"reposts":{"count":0}},{"id":456239049,"album_id":43023085,"owner_id":-4410189,"user_id":100,"photo_75":"https:\/\/pp.userapi.com\/c638723\/v638723276\/2bfe0\/8F1vthi-tjo.jpg","photo_130":"https:\/\/pp.userapi.com\/c638723\/v638723276\/2bfe1\/KxtmhBBZuY4.jpg","photo_604":"https:\/\/pp.userapi.com\/c638723\/v638723276\/2bfe2\/ZoT63tAPvHg.jpg","photo_807":"https:\/\/pp.userapi.com\/c638723\/v638723276\/2bfe3\/zbDlM4tkBS8.jpg","photo_1280":"https:\/\/pp.userapi.com\/c638723\/v638723276\/2bfe4\/sKgl1iXF-5o.jpg","width":877,"height":561,"text":"Эскиз к роману в стихах А.С.Пушкина \"Евгений Онегин\". Автор Lena Ashraf.","date":1492174953,"likes":{"user_likes":0,"count":1},"reposts":{"count":0}}]}}

obj := JSON.Parse(str)
MsgBox, % obj.response.items[1].id

class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }
   
   Stringify(obj)  {
      if IsObject( obj )  {
         isArray := true
         for key in obj
            if !( key = A_Index || isArray := false )
               break
            
         for k, v in obj
            str .= ( A_Index = 1 ? "" : "," ) . ( isArray ? "" : this.Stringify(k) . ":" ) . this.Stringify(v)

         return isArray ? "[" str "]" : "{" str "}"
      }
      else if (obj*1)
         return obj
      
      for k, v in [["\", "\\"], [A_Tab, "\t"], ["""", "\"""], ["/", "\/"], ["`n", "\n"], ["`r", "\r"], [Chr(12), "\f"], [Chr(08), "\b"]]
         obj := StrReplace( obj, v[1], v[2] )
      
      while RegexMatch( obj, "[^\x20-\x7e]", key )  {
         str := Asc( key )
         val := "\u" . Chr( ( ( str >> 12 ) & 15 ) + ( ( ( str >> 12 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( ( str >> 8 ) & 15 ) + ( ( ( str >> 8 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( ( str >> 4 ) & 15 ) + ( ( ( str >> 4 ) & 15 ) < 10 ? 48 : 55 ) )
               . Chr( ( str & 15 ) + ( ( str & 15 ) < 10 ? 48 : 55 ) )
         obj := StrReplace(obj, key, val)
      }
      Return """" obj """"
   }
   
   GetFromUrl(url, body := "", contentType := "", userAgent := "")  {
      ; в случае удачи будет возвращена строка, в случае ошибки — массив с одним элементом-строкой с описанием ошибки
      try  {
         XmlHttp := ComObjCreate("Microsoft.XmlHttp")
         XmlHttp.Open("GET", url, false)
         ( contentType && XmlHttp.SetRequestHeader("Content-Type", contentType) )
         ( userAgent && XmlHttp.SetRequestHeader("User-Agent", userAgent) )
         XmlHttp.Send(body)
      }
      catch e
         Return ["Error!`n" . e.Message]
      status := XmlHttp.Status
      Return status = 200 ? XmlHttp.ResponseText : ["Error! Status: " . status . ", ResponseText: " . XmlHttp.ResponseText]
   }

   _GetJScripObject()  {
      VarSetCapacity(tmpFile, (MAX_PATH := 260) << !!A_IsUnicode, 0)
      DllCall("GetTempFileName", Str, A_Temp, Str, "AHK", UInt, 0, Str, tmpFile)
      
      FileAppend,
      (
      <component>
      <public><method name='eval'/></public>
      <script language='JScript'></script>
      </component>
      ), % tmpFile
      
      JS := ObjBindMethod( ComObjGet("script:" . tmpFile), "eval" )
      FileDelete, % tmpFile
      JSON._AddMethods(JS)
      Return JS
   }

   _AddMethods(ByRef JS)  {
      JScript =
      (
         Object.prototype.GetKeys = function () {
            var keys = []
            for (var k in this)
               if (this.hasOwnProperty(k))
                  keys.push(k)
            return keys
         }
         Object.prototype.IsArray = function () {
            var toStandardString = {}.toString
            return toStandardString.call(this) == '[object Array]'
         }
      )
      JS.("delete ActiveXObject; delete GetObject;")
      JS.(JScript)
   }

   _CreateObject(ObjJS)  {
      res := ObjJS.IsArray()
      if (res = "")
         Return ObjJS
      
      else if (res = -1)  {
         obj := []
         Loop % ObjJS.length
            obj[A_Index] := this._CreateObject(ObjJS[A_Index - 1])
      }
      else if (res = 0)  {
         obj := {}
         keys := ObjJS.GetKeys()
         Loop % keys.length
            k := keys[A_Index - 1], obj[k] := this._CreateObject(ObjJS[k])
      }
      Return obj
   }
}