Get a value from Json object

[GoJakie]

I dont know if this is possible in excel and need your advice. If I enter the below url in the browser,I get a Json object with a "is_verified" parameter either true or false.
https://graph.facebook.com/fql?q=SELECT is_verified FROM page WHERE username="nokia"
This is what i get

{
   "data": [
      {
         "is_verified": true
      }
   ]
}

The above link has a nokia pagename, In excel, in the range A1:A782, I have list of facebook pagename, Is it possible to get the status via Json object in excel vba?

 

[GoJakie]

Will WinHTTPRequest help here? please give me a start...

 

[Kyle123]

Yes, just send a request in the normal way and use instr to test if "true" is in the response

 

[GoJakie]

trying a lot but no success

Function Verify(sPagename As String) As String

  Static oHTTP As WinHttpRequest
  sURL="https://graph.facebook.com/fql?q=SELECT is_verified FROM page WHERE username=" & sPagename

  If oHTTP Is Nothing Then Set oHTTP = New WinHttpRequest

  On Error GoTo Oops
  With oHTTP
    .Open "GET", sURL
    .Send

what do i do here ??????

    Exit Function
  End With

Oops:
  Verify = False
End Function

 

[Kyle123]

Function Verify(sPagename As String) As Boolean


  Static oHTTP As WinHttpRequest
  sURL="https://graph.facebook.com/fql?q=SELECT is_verified FROM page WHERE username=" & sPagename


  If oHTTP Is Nothing Then Set oHTTP = New WinHttpRequest


  On Error GoTo Oops
  With oHTTP
    .Open "GET", sURL, FALSE
    .Send
    if instr(.responseText, "true") > 0 then Verify = True
what do i do here ??????


    Exit Function
  End With


Oops:
  Verify = False
End Function

 

[GoJakie]

It was still not giving the correct result after checking it once again, I found a silly mistake in defining the sURL
The correct way was sURL = "https://graph.facebook.com/fql?q=SELECT is_verified FROM page WHERE username=" & "'" & sPagename & "'"

Issue resolved. Thanks for your help