GetListComment Facebook

GetListComment.au3

; #FUNCTION# ====================================================================================================================
; Name ..........: _GetCMT
; Description ...: Lấy comment từ ID Post
; Syntax ........: _GetCMT(ByRef $link)
; Parameters ....: ByRef $link          - Link.
; Return values .: Success : Trả về danh sach ID user bình luận
;                  Failure : @error set về 0
; Author ........: Trojan Nguyen
; ===============================================================================================================================
Func _GetCMT(ByRef $link)
 If $link="" then Return SetError(1,0,False)
 $JsonObj = Json_Decode(_INetGetSource($link))
 $i = 0
 While 1
  $id = Json_Get($JsonObj, '["comments"]["data"][' & $i & ']["from"]["id"]')  
  If @error then ExitLoop    
  $name = Json_Get($JsonObj, '["comments"]["data"][' & $i & ']["from"]["name"]')     
  If @error then ExitLoop
  Json_Put($ArrayCMT, "."&$id&"[id]", $id)
  Json_Put($ArrayCMT, "."&$id&"[name]", $name)
;~   _ArrayAdd($ArrayCMT, $id)
  $i += 1
 Wend
 $next = Json_Get($JsonObj, '["paging"]["next"]')  
 If @error Then Return True
 If $next<>"" and not @error Then
  _GetCMT($next); Gọi đệ quy
 EndIf
 Return True
EndFunc