ArcanecfgFacebookLogin_VB.NET

'Arcanecfg Facebook Login.+
'------------------------+
'Written by Arcanecfg.
'Website: www.WastedWolf.com
'Do NOT remove this.
'------------------------+
'--------- END ----------+
Public Class ArcaneyonFacebookLogin
    Public Function Login(ByVal Email As String, ByVal Password As String) As Boolean
        Dim postData As String = "lsd=AVphHiRP&email=" & Email & "&pass=" & Password & "&lgnrnd=093439_-52j&lgnjs=1380213284&locale=en_GB"
        Dim tempCookies As New System.Net.CookieContainer
        Dim facebookEncoding As New System.Text.UTF8Encoding
        Dim byteData As Byte() = facebookEncoding.GetBytes(postData)
        Dim facebookReq As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create _
            ("https://m.facebook.com/login.php"), System.Net.HttpWebRequest)
        facebookReq.Method = "POST"
        facebookReq.KeepAlive = True
        facebookReq.CookieContainer = tempCookies
        facebookReq.ContentType = "application/x-www-form-urlencoded"
        facebookReq.Referer = "https://m.facebook.com/"
        facebookReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
        facebookReq.ContentLength = byteData.Length
        Dim facebookReqStream As System.IO.Stream = facebookReq.GetRequestStream()
        facebookReqStream.Write(byteData, 0, byteData.Length)
        Dim facebookResponse As System.Net.HttpWebResponse
        facebookResponse = DirectCast(facebookReq.GetResponse(), System.Net.HttpWebResponse)
        tempCookies.Add(facebookResponse.Cookies)
        Dim facebookReqReader As New System.IO.StreamReader(facebookResponse.GetResponseStream())
        Dim facebookSource As String = facebookReqReader.ReadToEnd
        If facebookSource.Contains("logout") Or facebookSource.Contains("Your account is temporarily locked.") Then
            Login = True
        Else
            Login = False
        End If
        Return Login
    End Function
End Class