Public Shared Function GetToken(email As String, password As String) As String
        Dim result As String
        Using webClient As WebClient = New WebClient()
            Try
                Dim json As String = webClient.DownloadString(String.Format("https://b-api.facebook.com/method/auth.login?access_token=350685531728|62f8ce9f74b12f84c123cc23437a4a32&email={0}&password={1}&format=json&generate_machine_id=true&generate_session_cookies=true&method=auth.login&locale=en_US&format=json&generate_machine_id=true&generate_session_cookies=true&method=auth.login&locale=en_US", email, password))
                result = String.Format("{0},{1}", JObject.Parse(json)("uid"), JObject.Parse(json)("access_token"))
            Catch
                result = "no"
            End Try
        End Using
        Return result
    End Function