Get List Reactions Facebook

GetListReactions.au3

; #FUNCTION# ====================================================================================================================
; Name ..........: _GetReactions
; Description ...: Lấy user like từ ID Post
; Syntax ........: _GetReactions(ByRef $link)
; Parameters ....: ByRef $link          - Link.
; Return values .: Success : Trả về sớ lượng Reactions bài viết và Danh Sách User Reactions Bài viết
;                  Failure : @error set về 0
; Author ........: Trojan Nguyen
; ===============================================================================================================================
Func _GetReactions(ByRef $link)
 If $link="" then Return SetError(1,0,False)
 $JsonObj = Json_Decode(_INetGetSource($link))
 $i = 0
 While 1
  $id = Json_Get($JsonObj, '["data"][' & $i & ']["id"]')  
  If @error then ExitLoop  
  $name = Json_Get($JsonObj, '["data"][' & $i & ']["name"]')        
  If @error then ExitLoop
  Json_Put($Array, "."&$id&"[id]", $id)
  Json_Put($Array, "."&$id&"[name]", $name)
  $i += 1
 Wend
 $next = Json_Get($JsonObj, '["paging"]["next"]')  
 If @error Then Return $i-1
 If $next<>"" and not @error Then
  _GetReactions($next); Gọi đệ quy
 EndIf
 Return $i-1
EndFunc