AHK: Разбор ответа VK API или JSON (Страница 1 из 2)

/**
 * Lib: JSON.ahk
 *     JSON lib for AutoHotkey.
 * Version:
 *     v2.1.3 [updated 04/18/2016 (MM/DD/YYYY)]
 * License:
 *     WTFPL [http://wtfpl.net/]
 * Requirements:
 *     Latest version of AutoHotkey (v1.1+ or v2.0-a+)
 * Installation:
 *     Use #Include JSON.ahk or copy into a function library folder and then
 *     use #Include <JSON>
 * Links:
 *     GitHub:     - https://github.com/cocobelgica/AutoHotkey-JSON
 *     Forum Topic - http://goo.gl/r0zI8t
 *     Email:      - cocobelgica <at> gmail <dot> com
 */


/**
 * Class: JSON
 *     The JSON object contains methods for parsing JSON and converting values
 *     to JSON. Callable - NO; Instantiable - YES; Subclassable - YES;
 *     Nestable(via #Include) - NO.
 * Methods:
 *     Load() - see relevant documentation before method definition header
 *     Dump() - see relevant documentation before method definition header
 */
class JSON
{
	/**
	 * Method: Load
	 *     Parses a JSON string into an AHK value
	 * Syntax:
	 *     value := JSON.Load( text [, reviver ] )
	 * Parameter(s):
	 *     value      [retval] - parsed value
	 *     text    [in, ByRef] - JSON formatted string
	 *     reviver   [in, opt] - function object, similar to JavaScript's
	 *                           JSON.parse() 'reviver' parameter
	 */
	class Load extends JSON.Functor
	{
		Call(self, ByRef text, reviver:="")
		{
			this.rev := IsObject(reviver) ? reviver : false
		; Object keys(and array indices) are temporarily stored in arrays so that
		; we can enumerate them in the order they appear in the document/text instead
		; of alphabetically. Skip if no reviver function is specified.
			this.keys := this.rev ? {} : false

			static quot := Chr(34), bashq := "\" . quot
			     , json_value := quot . "{[01234567890-tfn"
			     , json_value_or_array_closing := quot . "{[]01234567890-tfn"
			     , object_key_or_object_closing := quot . "}"

			key := ""
			is_key := false
			root := {}
			stack := [root]
			next := json_value
			pos := 0

			while ((ch := SubStr(text, ++pos, 1)) != "") {
				if InStr(" `t`r`n", ch)
					continue
				if !InStr(next, ch, 1)
					this.ParseError(next, text, pos)

				holder := stack[1]
				is_array := holder.IsArray

				if InStr(",:", ch) {
					next := (is_key := !is_array && ch == ",") ? quot : json_value

				} else if InStr("}]", ch) {
					ObjRemoveAt(stack, 1)
					next := stack[1]==root ? "" : stack[1].IsArray ? ",]" : ",}"

				} else {
					if InStr("{[", ch) {
					; Check if Array() is overridden and if its return value has
					; the 'IsArray' property. If so, Array() will be called normally,
					; otherwise, use a custom base object for arrays
						static json_array := Func("Array").IsBuiltIn || ![].IsArray ? {IsArray: true} : 0
					
					; sacrifice readability for minor(actually negligible) performance gain
						(ch == "{")
							? ( is_key := true
							  , value := {}
							  , next := object_key_or_object_closing )
						; ch == "["
							: ( value := json_array ? new json_array : []
							  , next := json_value_or_array_closing )
						
						ObjInsertAt(stack, 1, value)

						if (this.keys)
							this.keys[value] := []
					
					} else {
						if (ch == quot) {
							i := pos
							while (i := InStr(text, quot,, i+1)) {
								value := StrReplace(SubStr(text, pos+1, i-pos-1), "\\", "\u005c")

								static tail := A_AhkVersion<"2" ? 0 : -1
								if (SubStr(value, tail) != "\")
									break
							}

							if (!i)
								this.ParseError("'", text, pos)

							  value := StrReplace(value,  "\/",  "/")
							, value := StrReplace(value, bashq, quot)
							, value := StrReplace(value,  "\b", "`b")
							, value := StrReplace(value,  "\f", "`f")
							, value := StrReplace(value,  "\n", "`n")
							, value := StrReplace(value,  "\r", "`r")
							, value := StrReplace(value,  "\t", "`t")

							pos := i ; update pos
							
							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)
							}

							if (is_key) {
								key := value, next := ":"
								continue
							}
						
						} else {
							value := SubStr(text, pos, i := RegExMatch(text, "[\]\},\s]|$",, pos)-pos)

							static number := "number", integer :="integer"
							if value is %number%
							{
								if value is %integer%
									value += 0
							}
							else if (value == "true" || value == "false")
								value := %value% + 0
							else if (value == "null")
								value := ""
							else
							; we can do more here to pinpoint the actual culprit
							; but that's just too much extra work.
								this.ParseError(next, text, pos, i)

							pos += i-1
						}

						next := holder==root ? "" : is_array ? ",]" : ",}"
					} ; If InStr("{[", ch) { ... } else

					is_array? key := ObjPush(holder, value) : holder[key] := value

					if (this.keys && this.keys.HasKey(holder))
						this.keys[holder].Push(key)
				}
			
			} ; while ( ... )

			return this.rev ? this.Walk(root, "") : root[""]
		}

		ParseError(expect, ByRef text, pos, len:=1)
		{
			static quot := Chr(34), qurly := quot . "}"
			
			line := StrSplit(SubStr(text, 1, pos), "`n", "`r").Length()
			col := pos - InStr(text, "`n",, -(StrLen(text)-pos+1))
			msg := Format("{1}`n`nLine:`t{2}`nCol:`t{3}`nChar:`t{4}"
			,     (expect == "")     ? "Extra data"
			    : (expect == "'")    ? "Unterminated string starting at"
			    : (expect == "\")    ? "Invalid \escape"
			    : (expect == ":")    ? "Expecting ':' delimiter"
			    : (expect == quot)   ? "Expecting object key enclosed in double quotes"
			    : (expect == qurly)  ? "Expecting object key enclosed in double quotes or object closing '}'"
			    : (expect == ",}")   ? "Expecting ',' delimiter or object closing '}'"
			    : (expect == ",]")   ? "Expecting ',' delimiter or array closing ']'"
			    : InStr(expect, "]") ? "Expecting JSON value or array closing ']'"
			    :                      "Expecting JSON value(string, number, true, false, null, object or array)"
			, line, col, pos)

			static offset := A_AhkVersion<"2" ? -3 : -4
			throw Exception(msg, offset, SubStr(text, pos, len))
		}

		Walk(holder, key)
		{
			value := holder[key]
			if IsObject(value) {
				for i, k in this.keys[value] {
					; check if ObjHasKey(value, k) ??
					v := this.Walk(value, k)
					if (v != JSON.Undefined)
						value[k] := v
					else
						ObjDelete(value, k)
				}
			}
			
			return this.rev.Call(holder, key, value)
		}
	}

	/**
	 * Method: Dump
	 *     Converts an AHK value into a JSON string
	 * Syntax:
	 *     str := JSON.Dump( value [, replacer, space ] )
	 * Parameter(s):
	 *     str        [retval] - JSON representation of an AHK value
	 *     value          [in] - any value(object, string, number)
	 *     replacer  [in, opt] - function object, similar to JavaScript's
	 *                           JSON.stringify() 'replacer' parameter
	 *     space     [in, opt] - similar to JavaScript's JSON.stringify()
	 *                           'space' parameter
	 */
	class Dump extends JSON.Functor
	{
		Call(self, value, replacer:="", space:="")
		{
			this.rep := IsObject(replacer) ? replacer : ""

			this.gap := ""
			if (space) {
				static integer := "integer"
				if space is %integer%
					Loop, % ((n := Abs(space))>10 ? 10 : n)
						this.gap .= " "
				else
					this.gap := SubStr(space, 1, 10)

				this.indent := "`n"
			}

			return this.Str({"": value}, "")
		}

		Str(holder, key)
		{
			value := holder[key]

			if (this.rep)
				value := this.rep.Call(holder, key, ObjHasKey(holder, key) ? value : JSON.Undefined)

			if IsObject(value) {
			; Check object type, skip serialization for other object types such as
			; ComObject, Func, BoundFunc, FileObject, RegExMatchObject, Property, etc.
				static type := A_AhkVersion<"2" ? "" : Func("Type")
				if (type ? type.Call(value) == "Object" : ObjGetCapacity(value) != "") {
					if (this.gap) {
						stepback := this.indent
						this.indent .= this.gap
					}

					is_array := value.IsArray
				; Array() is not overridden, rollback to old method of
				; identifying array-like objects. Due to the use of a for-loop
				; sparse arrays such as '[1,,3]' are detected as objects({}). 
					if (!is_array) {
						for i in value
							is_array := i == A_Index
						until !is_array
					}

					str := ""
					if (is_array) {
						Loop, % value.Length() {
							if (this.gap)
								str .= this.indent
							
							v := this.Str(value, A_Index)
							str .= (v != "") ? v . "," : "null,"
						}
					} else {
						colon := this.gap ? ": " : ":"
						for k in value {
							v := this.Str(value, k)
							if (v != "") {
								if (this.gap)
									str .= this.indent

								str .= this.Quote(k) . colon . v . ","
							}
						}
					}

					if (str != "") {
						str := RTrim(str, ",")
						if (this.gap)
							str .= stepback
					}

					if (this.gap)
						this.indent := stepback

					return is_array ? "[" . str . "]" : "{" . str . "}"
				}
			
			} else ; is_number ? value : "value"
				return ObjGetCapacity([value], 1)=="" ? value : this.Quote(value)
		}

		Quote(string)
		{
			static quot := Chr(34), bashq := "\" . quot

			if (string != "") {
				  string := StrReplace(string,  "\",  "\\")
				; , string := StrReplace(string,  "/",  "\/") ; optional in ECMAScript
				, string := StrReplace(string, quot, bashq)
				, string := StrReplace(string, "`b",  "\b")
				, string := StrReplace(string, "`f",  "\f")
				, string := StrReplace(string, "`n",  "\n")
				, string := StrReplace(string, "`r",  "\r")
				, string := StrReplace(string, "`t",  "\t")

				static rx_escapable := A_AhkVersion<"2" ? "O)[^\x20-\x7e]" : "[^\x20-\x7e]"
				while RegExMatch(string, rx_escapable, m)
					string := StrReplace(string, m.Value, Format("\u{1:04x}", Ord(m.Value)))
			}

			return quot . string . quot
		}
	}

	/**
	 * Property: Undefined
	 *     Proxy for 'undefined' type
	 * Syntax:
	 *     undefined := JSON.Undefined
	 * Remarks:
	 *     For use with reviver and replacer functions since AutoHotkey does not
	 *     have an 'undefined' type. Returning blank("") or 0 won't work since these
	 *     can't be distnguished from actual JSON values. This leaves us with objects.
	 *     Replacer() - the caller may return a non-serializable AHK objects such as
	 *     ComObject, Func, BoundFunc, FileObject, RegExMatchObject, and Property to
	 *     mimic the behavior of returning 'undefined' in JavaScript but for the sake
	 *     of code readability and convenience, it's better to do 'return JSON.Undefined'.
	 *     Internally, the property returns a ComObject with the variant type of VT_EMPTY.
	 */
	Undefined[]
	{
		get {
			static empty := {}, vt_empty := ComObject(0, &empty, 1)
			return vt_empty
		}
	}

	class Functor
	{
		__Call(method, ByRef arg, args*)
		{
		; When casting to Call(), use a new instance of the "function object"
		; so as to avoid directly storing the properties(used across sub-methods)
		; into the "function object" itself.
			if IsObject(method)
				return (new this).Call(method, arg, args*)
			else if (method == "")
				return (new this).Call(arg, args*)
		}
}

#include json.ahk
Fileread, JSON, 1.txt
content := JSON.Load (JSON)

msgbox %Content%

;-----------------------------------------------------------------------------------------------------------------------------------------
; JSON.ahk (Определение класса)
; Слегка переделаный src -> https://community.spiceworks.com/scripts/show/3203-autohotkey-json-encoder-decoder
; by CaptainCode on Jun 20, 2015
; Методы:
;		Decode(принимает строковое представление JSON) - возвращает объект AHK
;		Encode(принимает AHK объект) - Возвращает строку JSON
; JScript -> https://docs.microsoft.com/en-us/scripting/javascript/reference/javascript-reference
;-----------------------------------------------------------------------------------------------------------------------------------------

Class JSON {
	SC := "", jsCode := ""
	__New() {	; Создать COM-объект, который будет использоваться для декодирования строки
		this.SC				:= ComObjCreate("ScriptControl") 
		this.SC.Language	:= "JScript"
		ComObjError(false)
		; Описание тела функции JScript (похож на JavaScript), не AHK.
		this.jsCode			:=
		(Join`r`n
		"function arrangeForAhkTraversing(obj) {
			if(obj instanceof Array) {
				for(var i=0 ; i < obj.length ; ++i)
					obj[i] = arrangeForAhkTraversing(obj[i]) ;
				return ['array',obj] ;
			} else if(obj instanceof Object) {
				var keys = [], values = [] ;
				for(var key in obj){
					keys.push(key) ;
					values.push(arrangeForAhkTraversing(obj[key])) ;
				}
				return ['object',[keys,values]] ;
			} else
				return [typeof obj,obj] ;
		}"
		)
	}
	
	; Декодирует JSON-строку в массив, вызывая функцию JS с помощью COM-объекта и
	; возвращает объект AHK.
	Decode(jsonStr) {
		this.SC.ExecuteStatement(this.jsCode "; obj=" jsonStr)
		return this.convertJScriptObjToAhks( this.SC.Eval("arrangeForAhkTraversing(obj)") )
	}
	
	convertJScriptObjToAhks(jsObj){
		if(jsObj[0]="object") {
			obj := {}, keys := jsObj[1][0], values := jsObj[1][1]
			loop % keys.length
				obj[keys[A_INDEX-1]] := this.convertJScriptObjToAhks( values[A_INDEX-1] )
			return obj
		} else if(jsObj[0]="array") {
			array := []
			loop % jsObj[1].length
				array.insert(this.convertJScriptObjToAhks( jsObj[1][A_INDEX-1] ))
			return array
		} else
			return jsObj[1]
	}
	
	Encode(obj) {
		str := ""
		array := true
		for k in obj {
			if (k == A_Index)
				continue
			array := false
			break
		} if (array)
			for a, b in obj
				str .= (IsObject(b) ? this.Encode(b) :  b) . ","
		else
			for a, b in obj
				str .= ("""" a """:") . (IsObject(b) ? this.Encode(b) : """" b """") . ","
		str := RTrim(str, " ,")
		return (array ? "[" str "]" : "{" str "}")
	}
}

#SingleInstance, Force
#NoEnv
SetWorkingDir, A_ScriptDir

#Include <JSON>
oJson := New JSON()

jText = {"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}}]}}

oJ		 := oJson.Decode(jText)		; Превратить в объект AHK
frElem	 := oJ.response.items[4]	; Четвёртый элемент из запроса

; Доступ к полям объекта через точку, или квадратные скобки
textItem := Format("id = {1}`nalbum_id = {2}`nowner_id = {3}`nphoto_75 = {4}`ntext = {5}"
				, frElem["id"], frElem.album_id, frElem.owner_id, frElem.photo_75, frElem["text"])

MsgBox,,Title,% textItem

return

Escape::
	ExitApp

Loop,% oJ.response.items.Length() {
	item := oJ.response.items[A_Index]
	MsgBox,,Title,% Format("id = {1}`nalbum_id = {2}`nowner_id = {3}`nphoto_75 = {4}`ntext = {5}"
				, item["id"], item.album_id, item.owner_id, item.photo_75, item["text"])
}

oJ := oJson.Decode(jText)		; Превратить в объект AHK
allItemsText := ""
Loop,% oJ.response.items.Length() {
	item := oJ.response.items[A_Index], txt := "`nItem № " . A_Index . "`n"
	for k, v in item {
		txt .= k " = " v "`n"
	}
	allItemsText .= txt
}
MsgBox,,Title,% allItemsText

"id":456239092
"owner_id":-4410189
https:\/\/pp.userapi.com\/c840126\/v840126582\/7499f\/y43rEl-TAkA.jpg
"text":""

#SingleInstance, Force
#NoEnv
SetWorkingDir, A_ScriptDir

#Include JSON.ahk
oJson := New JSON()

jText = {"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}}]}}

     jText := RegExReplace(jText, """photo_\d+""[^\}]*""photo_\d+""", """photo_big""")

oJ		 := oJson.Decode(jText)		; Превратить в объект AHK

Loop,% oJ.response.items.Length() {
	item := oJ.response.items[A_Index]
	MsgBox,,Title,% Format("id = {1}`nowner_id = {2}`nphoto_big = {3}`ntext = {4}"
				, item["id"], item.owner_id, item.photo_big, item["text"])
}
return

json_str = {"test":0E-7}

ahkObj := JSON.Parse(json_str)
for k, v in ahkObj
   MsgBox, % k . " = " . v

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
   }
}

oJ := JSON.Parse(jText)
MsgBox,,Title,% oJ.response[1].post_source.platform

obj := JSON.Parse(ResponseText)

for k in obj
   MsgBox, % k

obj.data.shortcode_media.edge_media_to_parent_comment.edges

sKeys := ["id","text","created_at","owner","profile_pic_url","username","viewer_has_liked","edge_liked_by","edge_threaded_comments","edges"]
edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges

list := ""
For k, v in edges {
	list .= Format("| ========>&<======= [ edge #{} ] ========>&<======= |`n", A_Index)
	For index, item in sKeys {
		list .= Format("`t{}. - {} = {}`n", A_Index, item, IsObject(val := SearchKey(v.node, item)) ? JSON.Stringify(val) : val )
	} list .= "`n"
}

MsgBox % list

SearchKey(obj, key)  {
   for k, v in obj  {
      if (k = key)
         Return v
      
      if IsObject(v)  {
         res := SearchKey(v, key)
         if (res != "")
            Return res
      }
   }
}

sKeys := ["id","text","created_at","owner","profile_pic_url","username","viewer_has_liked","edge_liked_by","edge_threaded_comments","edges"]
edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges

MsgBox % Clipboard := ListEdges(edges, sKeys)
ListEdges(edges, srchKeys, inner := false) {
	list := ""
	For k, v in edges {
		list .= Format("{}| ========>&<======= [ {}edge #{} ] ========>&<======= |`n", inner ? "`t" : "", inner ? "Inner " : "", A_Index)
		For index, item in srchKeys {
			val := SearchKey(v.node, item)
			innerEdges := item == "edges" ? val.Length() ? val : "" : ""
			list .= Format("{}{}. - {} = {}`n", inner ? "`t`t" : "`t", A_Index, item, IsObject(val) ? JSON.Stringify(val) : val )
		} if (innerEdges) {
			list .= ListEdges(innerEdges, srchKeys, true)
		}
		list .= "`n"
	} Return list
}
SearchKey(obj, key)  {
	for k, v in obj  {
		if (k = key)
			Return v

		if IsObject(v)  {
			res := SearchKey(v, key)
			if (res != "")
				Return res
		}
	}
}

ResponseText =
(
{"data":{"shortcode_media":{"edge_media_to_parent_comment":{"count":112,"page_info":{"has_next_page":true,"end_cursor":"{\"bifilter_token\": \"KAkBAgAQAP__AAAA\"}"},"edges":[{"node":{"text":"Коммент1","owner":{"id":"3432418287"},"edge_liked_by":{"count":1},"edge_threaded_comments":{"count":6,"page_info":{"has_next_page":true,"end_cursor":"QVFCbGxYVThuMnJ5VVZSMktoc2Z1QlM4elVkYnZRMmQxQW1Ba2psZ1FSNFUwekdFc1RVMzlBLWIwUHN1QXpvNVRaYS1XY3JxNWRTdlpnYnpNc0c3a1J4bg=="},"edges":[{"node":{"text":"Коммент2","owner":{"id":"2221367895"},"edge_liked_by":{"count":0}}},{"node":{"text":"Коммент3","owner":{"id":"1514648096"},"edge_liked_by":{"count":1}}},{"node":{"text":"Коммент4","owner":{"id":"5527469791"},"edge_liked_by":{"count":0}}}]}}},{"node":{"text":"Коммент5","owner":{"id":"8620373103"},"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"text":"Коммент6","owner":{"id":"8620373103"},"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"text":"Коммент7","owner":{"id":"8620373103"},"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"text":"Коммент8","owner":{"id":"6226683833"},"edge_liked_by":{"count":2},"edge_threaded_comments":{"count":16,"page_info":{"has_next_page":true,"end_cursor":"QVFBS2tjN19Od3k5WmZTYXUxSE9qUmhzdHBzWTdULW1TRmFLb3A0amNWakx4aFh5dTZkY1MzZGFkak1VaWZ6U1lLTXNVU1VSQUx1bWRMNGExTUNUdWN1TQ=="},"edges":[{"node":{"text":"Коммент9","owner":{"id":"6226683833"},"edge_liked_by":{"count":1}}},{"node":{"text":"Коммент10","owner":{"id":"5480555413"},"edge_liked_by":{"count":1}}},{"node":{"text":"Коммент11","owner":{"id":"6226683833"},"edge_liked_by":{"count":0}}}]}}}]}}},"status":"ok"}
)

sKeys := ["text","created_at","end_cursor","edges"]
edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges

MsgBox % Clipboard := ListEdges(edges, sKeys)
ListEdges(edges, srchKeys, inner := false) {
	list := ""
	For k, v in edges {
		list .= Format("{}| ========>&<======= [ {}edge #{} ] ========>&<======= |`n", inner ? "`t" : "", inner ? "Inner " : "", A_Index)
		For index, item in srchKeys {
			val := SearchKey(v.node, item)
			innerEdges := item == "edges" ? val.Length() ? val : "" : ""
			list .= Format("{}{}. - {} = {}`n", inner ? "`t`t" : "`t", A_Index, item, IsObject(val) ? JSON.Stringify(val) : val )
		} if (innerEdges) {
			list .= ListEdges(innerEdges, srchKeys, true)
		}
		list .= "`n"
	} Return list
}
SearchKey(obj, key)  {
	for k, v in obj  {
		if (k = key)
			Return v

		if IsObject(v)  {
			res := SearchKey(v, key)
			if (res != "")
				Return res
		}
	}
}
class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }

   _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
   }
}

SearchKey(obj, key, outerFields := true)  {
	temp := []
	for k, v in obj  {
		if (k = key)
			Return v
		
		if (outerFields && IsObject(v))
			temp.Push(v)
		else if IsObject(v)  {
			res := SearchKey(v, key)
			if (res != "")
				Return res
		}
	}
	for index, item in temp
		if ((res := SearchKey(item, key)) != "")
			Return res
}

ResponseText =
(
{"data":{"shortcode_media":{"edge_media_to_parent_comment":{"count":224,"page_info":{"has_next_page":true,"end_cursor":"{\"cached_comments_cursor\": \"17988603055194856\", \"bifilter_token\": \"KC0BDABAABgAEAAQAAgACAB799_Lz77P7011eOpvf_W__wAUAAAAABAEQ0EgwBAA\"}"},"edges":[{"node":{"id":"18033126139045251","text":"cmt1","created_at":1549564430,"did_report_as_spam":false,"owner":{"id":"7147681468","is_verified":false,"profile_pic_url":"pic1","username":"uname1"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18035179396030512","text":"cmt2","created_at":1549564345,"did_report_as_spam":false,"owner":{"id":"9037884033","is_verified":false,"profile_pic_url":"pic2","username":"uname2"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17864531659321218","text":"cmt3","created_at":1549563973,"did_report_as_spam":false,"owner":{"id":"3881253436","is_verified":false,"profile_pic_url":"pic3","username":"uname3"},"viewer_has_liked":false,"edge_liked_by":{"count":1},"edge_threaded_comments":{"count":3,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[{"node":{"id":"18031519045002885","text":"cmt4","created_at":1549565442,"did_report_as_spam":false,"owner":{"id":"1514648096","is_verified":false,"profile_pic_url":"pic4","username":"uname4"},"viewer_has_liked":false,"edge_liked_by":{"count":3}}},{"node":{"id":"18014501047114258","text":"cmt5","created_at":1549622948,"did_report_as_spam":false,"owner":{"id":"3881253436","is_verified":false,"profile_pic_url":"pic5","username":"uname5"},"viewer_has_liked":false,"edge_liked_by":{"count":0}}},{"node":{"id":"18012364975121513","text":"cmt6","created_at":1549624991,"did_report_as_spam":false,"owner":{"id":"1514648096","is_verified":false,"profile_pic_url":"pic6","username":"uname6"},"viewer_has_liked":false,"edge_liked_by":{"count":1}}}]}}},{"node":{"id":"18014605018119580","text":"cmt7","created_at":1549563882,"did_report_as_spam":false,"owner":{"id":"1575737610","is_verified":false,"profile_pic_url":"pic7","username":"uname7"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18006807262092548","text":"cmt8","created_at":1549563710,"did_report_as_spam":false,"owner":{"id":"3451206464","is_verified":false,"profile_pic_url":"pic8","username":"uname8"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18014414656112658","text":"cmt9","created_at":1549563555,"did_report_as_spam":false,"owner":{"id":"3451206464","is_verified":false,"profile_pic_url":"pic9","username":"uname9"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17899732756291214","text":"cmt10","created_at":1549563119,"did_report_as_spam":false,"owner":{"id":"2330649029","is_verified":false,"profile_pic_url":"pic10","username":"uname10"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18030447571010198","text":"cmt11","created_at":1549562991,"did_report_as_spam":false,"owner":{"id":"5763461995","is_verified":false,"profile_pic_url":"pic11","username":"uname11"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18016886404100187","text":"cmt12","created_at":1549562982,"did_report_as_spam":false,"owner":{"id":"321345545","is_verified":false,"profile_pic_url":"pic12","username":"uname12"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17992787185168932","text":"cmt13","created_at":1549562672,"did_report_as_spam":false,"owner":{"id":"3267878847","is_verified":false,"profile_pic_url":"pic13","username":"uname13"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18014099035112644","text":"cmt14","created_at":1549562649,"did_report_as_spam":false,"owner":{"id":"7495332966","is_verified":false,"profile_pic_url":"pic14","username":"uname14"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17851892326346682","text":"cmt15","created_at":1549562460,"did_report_as_spam":false,"owner":{"id":"8692656309","is_verified":false,"profile_pic_url":"pic15","username":"uname15"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}}]}}},"status":"ok"}
)

sKeys := ["text","username","profile_pic_url","end_cursor","edges"]
edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges

MsgBox % Clipboard := ListEdges(edges, sKeys)
ListEdges(edges, srchKeys, inner := false) {
	list := ""
	For k, v in edges {
		list .= Format("{}| ========>&<======= [ {}edge #{} ] ========>&<======= |`n", inner ? "`t" : "", inner ? "Inner " : "", A_Index)
		For index, item in srchKeys {
			val := SearchKey(v.node, item)
			innerEdges := item == "edges" ? val.Length() ? val : "" : ""
			list .= Format("{}{}. - {} = {}`n", inner ? "`t`t" : "`t", A_Index, item, IsObject(val) ? JSON.Stringify(val) : val )
		} if (innerEdges) {
			list .= ListEdges(innerEdges, srchKeys, true)
		}
		list .= "`n"
	} Return list
}
SearchKey(obj, key, outerFields := true)  {
	temp := []
	for k, v in obj  {
		if (k = key)
			Return v
		
		if (outerFields && IsObject(v))
			temp.Push(v)
		else if IsObject(v)  {
			res := SearchKey(v, key)
			if (res != "")
				Return res
		}
	}
	for index, item in temp
		if ((res := SearchKey(item, key)) != "")
			Return res
}
class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }

   _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
   }
}

edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges

"edge_liked_by|edge_threaded_comments":{"count":1}

cmt .= "<div class=""comment"">`n<img class=""img"" src=""" matchh3 """>`n<div class=""info""><a href=""" matchh4 """>" matchh2 "</a> – <a href=""watch?v=" videoId "&lc=" matchh1 """>" matchh7 "</a><span class=""vote"">" matchh6 "</span></div>`n<div class=""content"">" matchh5 "</div>`n</div>`n"

ResponseText = {"data":{"shortcode_media":{"edge_media_to_parent_comment":{"count":224,"page_info":{"has_next_page":true,"end_cursor":"{\"cached_comments_cursor\": \"17988603055194856\", \"bifilter_token\": \"KC0BDABAABgAEAAQAAgACAB799_Lz77P7011eOpvf_W__wAUAAAAABAEQ0EgwBAA\"}"},"edges":[{"node":{"id":"18033126139045251","text":"cmt1","created_at":1549564430,"did_report_as_spam":false,"owner":{"id":"7147681468","is_verified":false,"profile_pic_url":"pic1","username":"uname1"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18035179396030512","text":"cmt2","created_at":1549564345,"did_report_as_spam":false,"owner":{"id":"9037884033","is_verified":false,"profile_pic_url":"pic2","username":"uname2"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17864531659321218","text":"cmt3","created_at":1549563973,"did_report_as_spam":false,"owner":{"id":"3881253436","is_verified":false,"profile_pic_url":"pic3","username":"uname3"},"viewer_has_liked":false,"edge_liked_by":{"count":1},"edge_threaded_comments":{"count":3,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[{"node":{"id":"18031519045002885","text":"cmt4","created_at":1549565442,"did_report_as_spam":false,"owner":{"id":"1514648096","is_verified":false,"profile_pic_url":"pic4","username":"uname4"},"viewer_has_liked":false,"edge_liked_by":{"count":3}}},{"node":{"id":"18014501047114258","text":"cmt5","created_at":1549622948,"did_report_as_spam":false,"owner":{"id":"3881253436","is_verified":false,"profile_pic_url":"pic5","username":"uname5"},"viewer_has_liked":false,"edge_liked_by":{"count":0}}},{"node":{"id":"18012364975121513","text":"cmt6","created_at":1549624991,"did_report_as_spam":false,"owner":{"id":"1514648096","is_verified":false,"profile_pic_url":"pic6","username":"uname6"},"viewer_has_liked":false,"edge_liked_by":{"count":1}}}]}}},{"node":{"id":"18014605018119580","text":"cmt7","created_at":1549563882,"did_report_as_spam":false,"owner":{"id":"1575737610","is_verified":false,"profile_pic_url":"pic7","username":"uname7"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18006807262092548","text":"cmt8","created_at":1549563710,"did_report_as_spam":false,"owner":{"id":"3451206464","is_verified":false,"profile_pic_url":"pic8","username":"uname8"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18014414656112658","text":"cmt9","created_at":1549563555,"did_report_as_spam":false,"owner":{"id":"3451206464","is_verified":false,"profile_pic_url":"pic9","username":"uname9"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17899732756291214","text":"cmt10","created_at":1549563119,"did_report_as_spam":false,"owner":{"id":"2330649029","is_verified":false,"profile_pic_url":"pic10","username":"uname10"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18030447571010198","text":"cmt11","created_at":1549562991,"did_report_as_spam":false,"owner":{"id":"5763461995","is_verified":false,"profile_pic_url":"pic11","username":"uname11"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18016886404100187","text":"cmt12","created_at":1549562982,"did_report_as_spam":false,"owner":{"id":"321345545","is_verified":false,"profile_pic_url":"pic12","username":"uname12"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17992787185168932","text":"cmt13","created_at":1549562672,"did_report_as_spam":false,"owner":{"id":"3267878847","is_verified":false,"profile_pic_url":"pic13","username":"uname13"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18014099035112644","text":"cmt14","created_at":1549562649,"did_report_as_spam":false,"owner":{"id":"7495332966","is_verified":false,"profile_pic_url":"pic14","username":"uname14"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17851892326346682","text":"cmt15","created_at":1549562460,"did_report_as_spam":false,"owner":{"id":"8692656309","is_verified":false,"profile_pic_url":"pic15","username":"uname15"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}}]}}},"status":"ok"}

sKeys := {	"edge_liked_by":		[]
		 , "edge_threaded_comments":	[]
		 , "text":			[]
		 , "id":			[]
		 , "created_at":		[]
		 , "username":			["owner"]
		 , "profile_pic_url":		["owner"]
		 , "end_cursor":		["edge_threaded_comments", "page_info"]
		 , "edge_threaded_comments":	["edge_threaded_comments"]
		 , "edges":			["edge_threaded_comments"]}
			
edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges
res := % ListValues(edges, sKeys)
MsgBox % res
;fileappend  %res%`n, _____.txt, UTF-8

ExitApp
ListValues(edges, srchKeys, inner := false) {
	list := ""
	For k, v in edges {
		tmpArray := []
		list .= Format("`n{}█ {}#{} `n", inner ? "`t" : "", inner ? "" : "", A_Index)
		For name, path in srchKeys {
			tmp := v.node
			For index, item in path {
				tmp := tmp[ item ]
			}
			if (IsObject(val := tmp[ name ])) {
				tmpArray := val
			}
			list .= Format("{}{}. - {} = {}`n", inner ? "`t" : "", A_Index, name, IsObject(val) ? "[]" : val ? val : "NoValue" )
		} (tmpArray.Length() && (list .= ListValues(tmpArray, srchKeys, true))) 
	} Return list
}
class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }

   _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
   }
}

cmt .= "<div class=""comment"">`n<img class=""img"" src=""" matchh3 """>`n<div class=""info""><a href=""" matchh4 """>" matchh2 "</a> – <a href=""watch?v=" videoId "&lc=" matchh1 """>" matchh7 "</a><span class=""vote"">" matchh6 "</span></div>`n<div class=""content"">" matchh5 "</div>`n</div>`n"

str =
(
{"replycount":173,"comments":[{"collapsed":0,"shown":1,"collapsed":0,"userpic":"https://l-userpic.livejournal.com/125166311/76306440","actions":[{"allowed":1,"href":"https://livejournal.com/2796915.html?replyto=1321676147","name":"reply","title":"Ответить","footer":1},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321676147#t1321676147","name":"permalink","title":"ссылка"},{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321676147#t1321676147","name":"collapse","title":"Свернуть"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321676147#t1321676147","name":"expand","title":"Развернуть"}],"uname":"leyb_bronshteyn","loaded":1,"p_tracked":0,"commenter_journal_base":"https://leyb-bronshteyn.livejournal.com/","statprefix":"https://l-stat.livejournal.net","lj_statprefix":"https://l-stat.livejournal.net","dtalkid":1321676147,"talkid":5162797,"thread_url":"https://livejournal.com/2796915.html?thread=1321676147#t1321676147","above":1321663091,"upictitle":"leyb_bronshteyn: trotsky","article":"КОММЕНТАРИЙ1","controls":[{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://www.livejournal.com/manage/subscriptions/comments.bml?talkid=1321676147&journal=jour","name":"track","title":"Отслеживать"}],"siteroot":"https://www.livejournal.com","poster":"tema","stime":"4 дня назад","ctime":"30 июня 2018, 17:12:32 UTC","parent":1321663091,"massactions":1,"subject":"","deleted":0,"username":[{"journal_url":"https://leyb-bronshteyn.livejournal.com/","striked":null,"journaltype":"P","userhead_url":"https://l-stat.livejournal.net/img/userinfo_v8.svg?v=17080?v=257.1","color":null,"noctxpopup":0,"side_alias":0,"journal":"leyb_bronshteyn","inline_css":0,"attrs":null,"is_identity":0,"bold":1,"show_userhead":1,"username":"leyb_bronshteyn","user_alias":"","profile_url":"https://leyb-bronshteyn.livejournal.com/profile","alias":0}],"is_promo":0,"dname":"leyb_bronshteyn","ctime_ts":1530378752,"is_best":0,"tracked":0},{"shown":0,"collapsed":1,"uname":"","loaded":0,"p_tracked":0,"commenter_journal_base":"","statprefix":"https://l-stat.livejournal.net","lj_statprefix":"https://l-stat.livejournal.net","dtalkid":1321677683,"talkid":5162803,"thread_url":"https://livejournal.com/2796915.html?thread=1321677683#t1321677683","above":1321676147,"siteroot":"https://www.livejournal.com","poster":"tema","stime":"4 дня назад","below":1321699955,"parent":1321676147,"massactions":1,"deleted":1,"is_promo":0,"dname":"","ctime_ts":1530378800,"leafclass":"deleted","is_best":0,"tracked":0},{"shown":1,"collapsed":0,"userpic":"https://l-userpic.livejournal.com/121339544/65211451","actions":[{"allowed":1,"href":"https://livejournal.com/2796915.html?replyto=1321846131","name":"reply","title":"Ответить","footer":1},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321846131#t1321846131","name":"permalink","title":"ссылка"},{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321846131#t1321846131","name":"collapse","title":"Свернуть"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321846131#t1321846131","name":"expand","title":"Развернуть"}],"uname":"ext_2042553","loaded":1,"p_tracked":0,"commenter_journal_base":"http://my.mail.ru/list/iwasko/","statprefix":"https://l-stat.livejournal.net","lj_statprefix":"https://l-stat.livejournal.net","dtalkid":1321846131,"talkid":5163461,"thread_url":"https://livejournal.com/2796915.html?thread=1321846131#t1321846131","above":1321806195,"upictitle":"Иван Пирогов: pic#121339544","article":"КОММЕНТАРИЙ2","controls":[{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://www.livejournal.com/manage/subscriptions/comments.bml?talkid=1321846131&journal=jour","name":"track","title":"Отслеживать"}],"siteroot":"https://www.livejournal.com","poster":"tema","stime":"3 дня назад","ctime":"1 июля 2018, 16:26:49 UTC","parent":1321806195,"massactions":1,"subject":"","deleted":0,"username":[{"journal_url":"http://my.mail.ru/list/iwasko/","striked":null,"journaltype":"I","userhead_url":"https://l-stat.livejournal.net/img/mailru-profile.gif?v=12149?v=257.1","color":null,"noctxpopup":0,"side_alias":0,"journal":"Иван Пирогов","inline_css":0,"attrs":null,"is_identity":1,"bold":1,"show_userhead":1,"username":"ext_2042553","user_alias":"","profile_url":"https://www.livejournal.com/profile?userid=65211451&t=I","alias":0}],"is_promo":0,"dname":"Иван Пирогов","ctime_ts":1530462409,"is_best":0,"tracked":0},{"shown":1,"collapsed":0,"actions":[{"allowed":1,"href":"https://livejournal.com/2796915.html?replyto=1321712499","name":"reply","title":"Ответить","footer":1},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321712499#t1321712499","name":"permalink","title":"ссылка"},{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321712499#t1321712499","name":"collapse","title":"Свернуть"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321712499#t1321712499","name":"expand","title":"Развернуть"}],"uname":"v_unitaz","loaded":1,"p_tracked":0,"commenter_journal_base":"https://v-unitaz.livejournal.com/","statprefix":"https://l-stat.livejournal.net","lj_statprefix":"https://l-stat.livejournal.net","dtalkid":1321712499,"talkid":5162939,"thread_url":"https://livejournal.com/2796915.html?thread=1321712499#t1321712499","above":1321677683,"upictitle":"v_unitaz: pic#0","article":"КОММЕНТАРИЙ3","controls":[{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://www.livejournal.com/manage/subscriptions/comments.bml?talkid=1321712499&journal=jour","name":"track","title":"Отслеживать"}],"siteroot":"https://www.livejournal.com","poster":"tema","stime":"4 дня назад","ctime":"30 июня 2018, 19:08:18 UTC","parent":1321677683,"massactions":1,"subject":"","deleted":0,"username":[{"journal_url":"https://v-unitaz.livejournal.com/","striked":null,"journaltype":"P","userhead_url":"https://l-stat.livejournal.net/img/userinfo_v8.svg?v=17080?v=257.1","color":null,"noctxpopup":0,"side_alias":0,"journal":"v_unitaz","inline_css":0,"attrs":null,"is_identity":0,"bold":1,"show_userhead":1,"username":"v_unitaz","user_alias":"","profile_url":"https://v-unitaz.livejournal.com/profile","alias":0}],"is_promo":0,"dname":"v_unitaz","ctime_ts":1530385698,"is_best":0,"tracked":0},{"shown":1,"collapsed":0,"userpic":"https://l-userpic.livejournal.com/127834290/83644284","actions":[{"allowed":1,"href":"https://livejournal.com/2796915.html?replyto=1321713779","name":"reply","title":"Ответить","footer":1},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321713779#t1321713779","name":"permalink","title":"ссылка"},{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321713779#t1321713779","name":"collapse","title":"Свернуть"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321713779#t1321713779","name":"expand","title":"Развернуть"}],"uname":"lovelement","loaded":1,"p_tracked":0,"commenter_journal_base":"https://lovelement.livejournal.com/","statprefix":"https://l-stat.livejournal.net","lj_statprefix":"https://l-stat.livejournal.net","dtalkid":1321713779,"talkid":5162944,"thread_url":"https://livejournal.com/2796915.html?thread=1321713779#t1321713779","above":1321712499,"upictitle":"lovelement: pic#127834290","article":"КОММЕНТАРИЙ4","controls":[{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://www.livejournal.com/manage/subscriptions/comments.bml?talkid=1321713779&journal=jour","name":"track","title":"Отслеживать"}],"siteroot":"https://www.livejournal.com","poster":"tema","stime":"4 дня назад","below":1321768563,"ctime":"30 июня 2018, 19:15:49 UTC","parent":1321712499,"massactions":1,"subject":"","deleted":0,"username":[{"journal_url":"https://lovelement.livejournal.com/","striked":null,"journaltype":"P","userhead_url":"https://l-stat.livejournal.net/img/userinfo_v8.svg?v=17080?v=257.1","color":null,"noctxpopup":0,"side_alias":0,"journal":"lovelement","inline_css":0,"attrs":null,"is_identity":0,"bold":1,"show_userhead":1,"username":"lovelement","user_alias":"","profile_url":"https://lovelement.livejournal.com/profile","alias":0}],"is_promo":0,"dname":"lovelement","ctime_ts":1530386149,"is_best":0,"tracked":0},{"shown":1,"collapsed":0,"actions":[{"allowed":1,"href":"https://livejournal.com/2796915.html?replyto=1321720435","name":"reply","title":"Ответить","footer":1},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321720435#t1321720435","name":"permalink","title":"ссылка"},{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321720435#t1321720435","name":"collapse","title":"Свернуть"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321720435#t1321720435","name":"expand","title":"Развернуть"}],"uname":"v_unitaz","loaded":1,"p_tracked":0,"commenter_journal_base":"https://v-unitaz.livejournal.com/","statprefix":"https://l-stat.livejournal.net","lj_statprefix":"https://l-stat.livejournal.net","dtalkid":1321720435,"talkid":5162970,"thread_url":"https://livejournal.com/2796915.html?thread=1321720435#t1321720435","above":1321713779,"upictitle":"v_unitaz: pic#0","article":"КОММЕНТАРИЙ5","controls":[{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://www.livejournal.com/manage/subscriptions/comments.bml?talkid=1321720435&journal=jour","name":"track","title":"Отслеживать"}],"siteroot":"https://www.livejournal.com","poster":"tema","stime":"4 дня назад","ctime":"30 июня 2018, 20:29:16 UTC","parent":1321713779,"massactions":1,"subject":"","deleted":0,"username":[{"journal_url":"https://v-unitaz.livejournal.com/","striked":null,"journaltype":"P","userhead_url":"https://l-stat.livejournal.net/img/userinfo_v8.svg?v=17080?v=257.1","color":null,"noctxpopup":0,"side_alias":0,"journal":"v_unitaz","inline_css":0,"attrs":null,"is_identity":0,"bold":1,"show_userhead":1,"username":"v_unitaz","user_alias":"","profile_url":"https://v-unitaz.livejournal.com/profile","alias":0}],"is_promo":0,"dname":"v_unitaz","ctime_ts":1530390556,"is_best":0,"tracked":0},{"shown":1,"collapsed":0,"userpic":"https://l-userpic.livejournal.com/127834290/83644284","actions":[{"allowed":1,"href":"https://livejournal.com/2796915.html?replyto=1321720691","name":"reply","title":"Ответить","footer":1},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321720691#t1321720691","name":"permalink","title":"ссылка"},{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321720691#t1321720691","name":"collapse","title":"Свернуть"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321720691#t1321720691","name":"expand","title":"Развернуть"}],"uname":"lovelement","loaded":1,"p_tracked":0,"commenter_journal_base":"https://lovelement.livejournal.com/","statprefix":"https://l-stat.livejournal.net","lj_statprefix":"https://l-stat.livejournal.net","dtalkid":1321720691,"talkid":5162971,"thread_url":"https://livejournal.com/2796915.html?thread=1321720691#t1321720691","above":1321720435,"upictitle":"lovelement: pic#127834290","article":"КОММЕНТАРИЙ6","controls":[{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://www.livejournal.com/manage/subscriptions/comments.bml?talkid=1321720691&journal=jour","name":"track","title":"Отслеживать"}],"siteroot":"https://www.livejournal.com","poster":"tema","stime":"4 дня назад","ctime":"30 июня 2018, 20:35:06 UTC","parent":1321720435,"massactions":1,"subject":"","deleted":0,"username":[{"journal_url":"https://lovelement.livejournal.com/","striked":null,"journaltype":"P","userhead_url":"https://l-stat.livejournal.net/img/userinfo_v8.svg?v=17080?v=257.1","color":null,"noctxpopup":0,"side_alias":0,"journal":"lovelement","inline_css":0,"attrs":null,"is_identity":0,"bold":1,"show_userhead":1,"username":"lovelement","user_alias":"","profile_url":"https://lovelement.livejournal.com/profile","alias":0}],"is_promo":0,"dname":"lovelement","ctime_ts":1530390906,"is_best":0,"tracked":0},{"shown":1,"collapsed":0,"userpic":"https://l-userpic.livejournal.com/82196355/5817510","actions":[{"allowed":1,"href":"https://livejournal.com/2796915.html?replyto=1321717619","name":"reply","title":"Ответить","footer":1},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321717619#t1321717619","name":"permalink","title":"ссылка"},{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321717619#t1321717619","name":"collapse","title":"Свернуть"},{"allowed":1,"href":"https://livejournal.com/2796915.html?thread=1321717619#t1321717619","name":"expand","title":"Развернуть"}],"uname":"poulsam","loaded":1,"p_tracked":0,"commenter_journal_base":"https://poulsam.livejournal.com/","statprefix":"https://l-stat.livejournal.net","lj_statprefix":"https://l-stat.livejournal.net","dtalkid":1321717619,"talkid":5162959,"thread_url":"https://livejournal.com/2796915.html?thread=1321717619#t1321717619","above":1321695859,"upictitle":"Poul: pic#82196355","article":"КОММЕНТАРИЙ7","controls":[{"checkbox":1,"allowed":1,"name":"checkbox","title":"Выбрать"},{"allowed":1,"href":"https://www.livejournal.com/manage/subscriptions/comments.bml?talkid=1321717619&journal=jour","name":"track","title":"Отслеживать"}],"siteroot":"https://www.livejournal.com","poster":"tema","stime":"4 дня назад","ctime":"30 июня 2018, 19:47:49 UTC","parent":1321650291,"massactions":1,"subject":"","deleted":0,"username":[{"journal_url":"https://poulsam.livejournal.com/","striked":null,"journaltype":"P","userhead_url":"https://l-stat.livejournal.net/img/userinfo_v8.svg?v=17080?v=257.1","color":null,"noctxpopup":0,"side_alias":0,"journal":"poulsam","inline_css":0,"attrs":null,"is_identity":0,"bold":1,"show_userhead":1,"username":"poulsam","user_alias":"","profile_url":"https://poulsam.livejournal.com/profile","alias":0}],"is_promo":0,"dname":"poulsam","ctime_ts":1530388069,"is_best":0,"tracked":0}]}
)

obj := JSON.Parse(str)
keys =
(
userpic
uname
commenter_journal_base
dtalkid
upictitle
article
ctime
userhead_url
dname
)

for k, v in obj.comments  {
   Loop, parse, keys, `n, `r
      %A_LoopField%%k% := SearchKey(v, A_LoopField)
}


loop
   MsgBox, % userpic%a_index% "`n" uname%a_index% "`n" commenter_journal_base%a_index% "`n" dtalkid%a_index% "`n" upictitle%a_index% "`n" article%a_index% "`n" ctime%a_index% "`n" userhead_url%a_index% "`n" dname%a_index% "`n"

SearchKey(obj, key)  {
   for k, v in obj  {
      if (k = key)
         Return v
      
      if IsObject(v)  {
         res := SearchKey(v, key)
         if (res != "")
            Return res
      }
   }
}

class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }

   _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
   }
}

list .= Format("{}{}. - {} = {}`n", inner ? "`t" : "", A_Index, name, IsObject(val) ? JSON.Stringify(val) : val ? val : "NoValue" )

"edge_liked_by":		["owner", "edges"]

ListValues(edges, srchKeys, inner := false) {
	list := ""
	For k, v in edges {
		tmpArray := []
		list .= Format("`n{}█ {}#{} `n", inner ? "`t" : "", inner ? "" : "", A_Index)
		For name, path in srchKeys {
			tmp := v.node
			For index, item in path {
				tmp := tmp[ item ]
			}
			if (IsObject(val := tmp[ name ])) {
				tmpArray := val
			}

			If InStr(name, "created_at") 
				created_at := val
			If InStr(name, "edge_liked_by") 
				edge_liked_by := val
			If InStr(name, "edge_threaded_comments") 
				edge_threaded_comments := val
			If InStr(name, "end_cursor") 
				end_cursor := val
			If InStr(name, "id") 
				id := val
			If InStr(name, "profile_pic_url") 
				profile_pic_url := val
			If InStr(name, "text") 
				text := val
			If InStr(name, "username") 
				username := val

			;list .= Format("{}{}. - {} = {}`n", inner ? "`t" : "", A_Index, name, IsObject(val) ? "[]" : val ? val : "NoValue" )
			list .= created_at " | " edge_liked_by " | " edge_threaded_comments " | " end_cursor " | " id " | " profile_pic_url " | " text " | " username "      " 

		} (tmpArray.Length() && (list .= ListValues(tmpArray, srchKeys, true))) 
	} Return list
}

edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges
MsgBox % ListValues(edges)
ListValues(edges) {
   list := ""
   For k, v in edges {
      text :=                    v.node.text
      end_cursor :=              v.node.edge_threaded_comments.page_info.end_cursor
      id :=                      v.node.id
      created_at :=              v.node.created_at
      username :=                v.node.owner.username
      profile_pic_url :=         v.node.owner.profile_pic_url
      edge_threaded_comments :=  v.node.owner.edge_threaded_comments
      edge_liked_by :=           v.node.owner.edge_liked_by
      edges :=                   v.node.edge_threaded_comments.edges
      ; ...
      list .= created_at " | " edge_liked_by " | " edge_threaded_comments " | " end_cursor " | " id " | " profile_pic_url " | " text " | " username "      "
   } Return list
}

sKeys := { "edge_liked_by":				["edge_media_to_parent_comment", "edges"]
		 , "edge_threaded_comments":	[]
		 , "text":						[]
		 , "id":						[]
		 , "created_at":				[]
		 , "username":					["owner"]
		 , "profile_pic_url":			["owner"]
		 , "end_cursor":				["edge_threaded_comments", "page_info"]
		 , "edge_threaded_comments":	[]
		 , "edges":						["edge_threaded_comments"] }
			
edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges
res := % ListValues(edges, sKeys)
Gui,1: Margin, 10, 10
Gui,1: Font,,Consolas
Gui,1: Add, Edit,w700 r40 HScroll,% res
Gui,1: Font
Gui,1: Show,,JSON src
Return
GuiClose:
	ExitApp


ListValues(edges, srchKeys, inner := false) {
loop, 8
{
	list := ""
	For k, v in edges {
		tmpArray := []
		list .= Format("`n{}█ {}{}) ", inner ? "`t" : "", inner ? "" : "", A_Index)
		For name, path in srchKeys {
			tmp := v.node
			For index, item in path {
				tmp := tmp[ item ]
			}
			if (IsObject(val := tmp[ name ])) {
				tmpArray := val
			}


			If InStr(name, "created_at") 
				created_at := val
			If InStr(name, "edge_liked_by") 
				edge_liked_by := val
			If InStr(name, "edge_threaded_comments") 
				edge_threaded_comments := val
			If InStr(name, "end_cursor") 
				end_cursor := val
			If InStr(name, "id") 
				id := val
			If InStr(name, "profile_pic_url") 
				profile_pic_url := val
			If InStr(name, "text") 
				text := val
			If InStr(name, "username") 
				username := val
}
			;list .= Format("{}{}. - {} = {}`n", inner ? "`t" : "", A_Index, name, IsObject(val) ? "[]" : val ? val : "NoValue" )
			list .= "<br>" created_at " | " edge_liked_by " | " edge_threaded_comments " | " end_cursor " | " id " | " profile_pic_url " | " text " | " username
			list .=  (tmpArray.Length() && (list .=  "`n<DD>" ListValues(tmpArray, srchKeys, true) "`n</DD>"))


		} 

	} Return list
}

"text": []

"count": ["edge_threaded_comments"]

obj := {"count": 30, "count": "ноль"}
MsgBox % obj.count

obj := {"count": {"counter": 11}}
MsgBox % "Data = '" obj "'"
MsgBox % "Data = '" obj.count "'"
MsgBox % "Data = '" obj.count.counter "'"

end_cursor :=	v.node.edge_threaded_comments.page_info.end_cursor
text :=			v.node.text
; ...

"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}

"edge_threaded_comments":
	{
		"count":0,
		"page_info":
			{
				"has_next_page":false,
				"end_cursor":null
			},
		"edges":[]
	}

      edges :=                   v.node.edge_threaded_comments.edges.node
      edges :=                   v.node.edge_threaded_comments.edges

ResponseText = {"data":{"shortcode_media":{"edge_media_to_parent_comment":{"count":224,"page_info":{"has_next_page":true,"end_cursor":"{\"cached_comments_cursor\": \"17988603055194856\", \"bifilter_token\": \"KC0BDABAABgAEAAQAAgACAB799_Lz77P7011eOpvf_W__wAUAAAAABAEQ0EgwBAA\"}"},"edges":[{"node":{"id":"18033126139045251","text":"cmt1","created_at":1549564430,"did_report_as_spam":false,"owner":{"id":"7147681468","is_verified":false,"profile_pic_url":"pic1","username":"uname1"},"viewer_has_liked":false,"edge_liked_by":{"count":3},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18035179396030512","text":"cmt2","created_at":1549564345,"did_report_as_spam":false,"owner":{"id":"9037884033","is_verified":false,"profile_pic_url":"pic2","username":"uname2"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17864531659321218","text":"cmt3","created_at":1549563973,"did_report_as_spam":false,"owner":{"id":"3881253436","is_verified":false,"profile_pic_url":"pic3","username":"uname3"},"viewer_has_liked":false,"edge_liked_by":{"count":1},"edge_threaded_comments":{"count":3,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[{"node":{"id":"18031519045002885","text":"cmt4","created_at":1549565442,"did_report_as_spam":false,"owner":{"id":"1514648096","is_verified":false,"profile_pic_url":"pic4","username":"uname4"},"viewer_has_liked":false,"edge_liked_by":{"count":3}}},{"node":{"id":"18014501047114258","text":"cmt5","created_at":1549622948,"did_report_as_spam":false,"owner":{"id":"3881253436","is_verified":false,"profile_pic_url":"pic5","username":"uname5"},"viewer_has_liked":false,"edge_liked_by":{"count":0}}},{"node":{"id":"18012364975121513","text":"cmt6","created_at":1549624991,"did_report_as_spam":false,"owner":{"id":"1514648096","is_verified":false,"profile_pic_url":"pic6","username":"uname6"},"viewer_has_liked":false,"edge_liked_by":{"count":1}}}]}}},{"node":{"id":"18014605018119580","text":"cmt7","created_at":1549563882,"did_report_as_spam":false,"owner":{"id":"1575737610","is_verified":false,"profile_pic_url":"pic7","username":"uname7"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18006807262092548","text":"cmt8","created_at":1549563710,"did_report_as_spam":false,"owner":{"id":"3451206464","is_verified":false,"profile_pic_url":"pic8","username":"uname8"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18014414656112658","text":"cmt9","created_at":1549563555,"did_report_as_spam":false,"owner":{"id":"3451206464","is_verified":false,"profile_pic_url":"pic9","username":"uname9"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17899732756291214","text":"cmt10","created_at":1549563119,"did_report_as_spam":false,"owner":{"id":"2330649029","is_verified":false,"profile_pic_url":"pic10","username":"uname10"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18030447571010198","text":"cmt11","created_at":1549562991,"did_report_as_spam":false,"owner":{"id":"5763461995","is_verified":false,"profile_pic_url":"pic11","username":"uname11"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18016886404100187","text":"cmt12","created_at":1549562982,"did_report_as_spam":false,"owner":{"id":"321345545","is_verified":false,"profile_pic_url":"pic12","username":"uname12"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17992787185168932","text":"cmt13","created_at":1549562672,"did_report_as_spam":false,"owner":{"id":"3267878847","is_verified":false,"profile_pic_url":"pic13","username":"uname13"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"18014099035112644","text":"cmt14","created_at":1549562649,"did_report_as_spam":false,"owner":{"id":"7495332966","is_verified":false,"profile_pic_url":"pic14","username":"uname14"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},{"node":{"id":"17851892326346682","text":"cmt15","created_at":1549562460,"did_report_as_spam":false,"owner":{"id":"8692656309","is_verified":false,"profile_pic_url":"pic15","username":"uname15"},"viewer_has_liked":false,"edge_liked_by":{"count":0},"edge_threaded_comments":{"count":0,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}}]}}},"status":"ok"}

edges := JSON.Parse(ResponseText).data.shortcode_media.edge_media_to_parent_comment.edges
MsgBox % ListValues(edges)
ListValues(edges) {
   list := ""
   For k, v in edges {
      text :=                    v.node.text
      end_cursor :=              v.node.edge_threaded_comments.page_info.end_cursor
      id :=                      v.node.id
      created_at :=              v.node.created_at
      username :=                v.node.owner.username
      profile_pic_url :=         v.node.owner.profile_pic_url
      edge_threaded_comments :=  v.node.edge_threaded_comments.count
      edge_liked_by :=           v.node.edge_liked_by.count
      edges :=                   v.node.edge_threaded_comments.edges.node
      ; ...
      list .= created_at " | " edge_liked_by " | " edge_threaded_comments " | " end_cursor " | " id " | " profile_pic_url " | " text " | " username " | " edges
   } Return list
}

class JSON
{
   static JS := JSON._GetJScripObject()
   
   Parse(JsonString)  {
      try oJSON := this.JS.("(" JsonString ")")
      catch  {
         MsgBox, Wrong JsonString!
         Return
      }
      Return this._CreateObject(oJSON)
   }

   _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
   }
}