Obtenir l'ID de l'utilisateur depuis facebook

Question

Je me demande s'il est encore possible d'obtenir un identifiant d'utilisateur Facebook si je n'ai «que» le profil de l'utilisateur (nom d'utilisateur/lien du profil)?

Par exemple:

https://www.facebook.com/zuck 

J'ai essayé de le faire avec le SDK et API graphique, mais il semble que toutes les solutions précédentes ne fonctionnent pas. Pourriez-vous s'il vous plaît me donner un indice? Je voudrais aller plus loin mais je ne suis pas sûr de la manière correcte.

Answer 1

Vous pouvez le faire avec Excel. Je mets les macros que j'utilise. Vous devez placer le nom dans la première colonne et générer l'ID dans la deuxième colonne lorsque vous exécutez la macro GenerateFaceIds. (Vous devez être connecté à Facebook dans IExplorer)

Sub GenerateFaceIds() 
    Dim total As Long 
    total = 1 

    Do Until IsEmpty(Cells(total, 1)) = True 
    If (Cells(total, 2) = "") Then 
     Call faceId(total) 
    End If 
    total = total + 1 
    Loop 

    MsgBox ("OK") 
End Sub 

Sub faceId(row As Long) 
    On Error GoTo ErrHandler 

    Dim appIE As Object 
    Set appIE = CreateObject("internetexplorer.application") 

    Dim id As String 
    id = Cells(row, 1) 

    With appIE 
     .Navigate "https://www.facebook.com/" + id 
     .Visible = False 
    End With 

    Do While appIE.Busy 
    DoEvents 
    Loop 

    Text = appIE.Document.Body.innerHTML 

    posinter = InStr(Text, "profile_owner") 
    profile_owner = Mid(Text, posinter + 16, 15) 

    posinter2 = InStr(profile_owner, """") 
    If posinter2 > 0 Then 
     profile_owner = Left(profile_owner, posinter2 - 1) 
    End If 

    Cells(row, 2) = profile_owner 

    appIE.Quit 
    Set appIE = Nothing 

ExitSub: 

    Exit Sub 

ErrHandler: 
    'MsgBox "Something's wrong" 

    appIE.Quit 
    Set appIE = Nothing 

    Resume ExitSub 
    Resume 

End Sub 

Résultat:

Zuck 4