Excel 查找facebook页面名列表的已验证状态

我有782个Facebook页面链接，它们的页面名在excel文件中。我想知道有多少是由FB验证的。所以我开始寻找解决办法。我得到了一些与我的问题无关的文章，而那些相关的文章只有有限的信息或是我无法理解的东西。在搜索了一点后，我有一些家庭写了下面给出的代码，但它不回显验证状态。如果我需要检查782个页面名，我如何使用它。请帮忙

<?php
function verified($pagename){
    // Query in FQL
    $fql  = "SELECT is_verified";
    $fql .= " FROM page WHERE username = '$pagename'";
    $fqlURL = "https://api.facebook.com/method/fql.query?format=json&query=" . urlencode($fql);

    // Facebook Response is in JSON
    $response = file_get_contents($fqlURL);
    return json_decode($response);
}

$fb = verified('nokia');
echo $fb[0]->is_verified;

?>

这是文件

https://developers.facebook.com/docs/reference/fql/page/

---

我需要帮助修复代码，如果我必须检查782个页面名，我需要做什么。目前，我已经将所有这些链接放在mysql myTable表中，并进行了尝试。感谢您的帮助。

我相信已验证状态不再出现在页面表中，它不会显示在文档中：

此外，FQL已被弃用，不再适用于较新的应用程序，请参阅更改日志：

---

不幸的是，我认为没有办法检查页面是否被验证。使用FQL实现这一点的唯一方法是使用2010年4月21日之前创建的应用程序。也就是说，在v2.1问世之前，没有FQL。

我通过excel vba完成了它

    Function Status(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 Status = True


        Exit Function
      End With


    Oops:
      Status = False
    End Function

它需要添加对Microsoft WinHTTP服务的引用

---

谢谢您的关注。

我编辑了我的问题。根据旧链接，已验证状态在页面表中非常多，如果FQL已弃用，如何实现预期结果？请帮忙。谢谢什么旧链接？我看不到验证状态-除非您指的是旧FQL链接，否则只有在文档中搜索FQL时，该链接才可用。关于如何实现这一点，请参阅我答案的最后一部分-使用旧应用程序。而FQL在v2.1中不再可用。请参阅更改日志。我希望您阅读我编辑的部分。我理解fql在v2.1中不是avb，我的意思是，当我转到此url时，我得到一个json对象的文档已从username=nokia页面验证，要通过2.1浏览器获得它，我可以通过nokia/？fields=is验证

    Function Status(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 Status = True


        Exit Function
      End With


    Oops:
      Status = False
    End Function