Imports System.Net
Imports System.IO
Imports System.Threading
Imports System.Web.Script.Serialization 'Reference needed!
Class FacebookAPI
 
    Private URL As String = "http://graph.facebook.com/"
 
    Public Event Completed(ByVal sender As Object, ByVal e As FacebookEventArgs)
    Public Event [Error](ByVal sender As Object, ByVal ex As Exception)
 
    Public Sub FetchData(ByVal ID As String)
        Try
            Using WC As New WebClient
                WC.DownloadStringAsync(New Uri(URL & ID & "?fields=id,username,name,first_name,last_name,gender,picture,cover"))
                AddHandler WC.DownloadStringCompleted, AddressOf DeserializeData
            End Using
        Catch ex As Exception
            RaiseEvent Error(Me, ex)
        End Try
    End Sub
 
    Private Sub DeserializeData(sender As Object, e As DownloadStringCompletedEventArgs)
        Try
            If e.Cancelled Then Return
            If e.Error IsNot Nothing Then Return
            Dim t As New Thread(Sub()
                                    Dim args As New FacebookEventArgs
                                    For Each node As KeyValuePair(Of String, Object) In New JavaScriptSerializer().Deserialize(Of Dictionary(Of String, Object))(e.Result)
                                        Dim str As String = node.Value.ToString
                                        Select Case node.Key
                                            Case "id" : args.ID = str
                                            Case "username" : args.Username = str
                                            Case "name" : args.Name = str
                                            Case "first_name" : args.FirstName = str
                                            Case "last_name" : args.LastName = str
                                            Case "gender" : args.Gender = str
                                            Case "picture"
                                                Dim picJSON As Object = Nothing
                                                Dim picURL As Object = Nothing
                                                If DirectCast(node.Value, Dictionary(Of String, Object)).TryGetValue("data", picJSON) Then
                                                    If DirectCast(picJSON, Dictionary(Of String, Object)).TryGetValue("url", picURL) Then
                                                        args.PictureURL = picURL.ToString
                                                        args.Picture = ConvertImage(picURL.ToString)
                                                    End If
                                                End If
                                            Case "cover"
                                                Dim coverDict As Dictionary(Of String, Object) = DirectCast(node.Value, Dictionary(Of String, Object))
                                                If coverDict.ContainsKey("offset_y") Then args.CoverOffset = Integer.Parse(coverDict("offset_y").ToString)
                                                If coverDict.ContainsKey("source") Then
                                                    args.CoverURL = coverDict("source").ToString
                                                    args.Cover = ConvertImage("https://fbcdn-sphotos-g-a.akamaihd.net/hphotos-ak-ash3/" & args.CoverURL.Substring(55, args.CoverURL.Length - 55).ToString)
                                                End If
                                        End Select
                                    Next
                                    RaiseEvent Completed(Me, args)
                                End Sub)
            t.Start()
        Catch ex As Exception
            RaiseEvent Error(Me, ex)
        End Try
    End Sub
 
    Private Function ConvertImage(ByVal URL As String) As Image
        Try
            Using WC As New WebClient()
                Using MS As New MemoryStream(WC.DownloadData(URL))
                    Using B As New Bitmap(MS)
                        Return B
                    End Using
                End Using
            End Using
        Catch ex As Exception
            RaiseEvent Error(Me, ex)
            Return Nothing
        End Try
    End Function
 
 
    Public Class FacebookEventArgs
        Inherits EventArgs
 
        Public ID As String
        Public Username As String
        Public Name As String
        Public FirstName As String
        Public LastName As String
        Public Gender As String
        Public PictureURL As String
        Public CoverURL As String
        Public CoverOffset As Integer
        Public Picture As Image
        Public Cover As Image
 
    End Class
 
End Class