loooool

Imports System.Net
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            If InstagramLogin(user.Text, pass.Text, CookieJar) Then
                MsgBox("Account Yes")
            Else
                MsgBox("Error Account")
            End If
        Catch ex As Exception
            ProjectData.SetProjectError(ex)
            ProjectData.ClearProjectError()
            MsgBox("Try Again For Error in network")
        End Try
    End Sub
    Private Function InstagramLogin(ByVal UserName As String, ByVal Password As String, ByVal Cookies As CookieContainer) As Boolean
        Const LoginURL As String = "https://www.instagram.com/accounts/login/"
        Const LoginPostURL As String = LoginURL & "ajax/"

        Dim LoginPage As String = HttpGet(LoginURL, Cookies)
        Dim CSRFToken As String = Regex.Match(LoginPage, ("""csrf_token"":""(\w+)""")).Groups(1).Value

        UserName = WebUtility.HtmlEncode(UserName)
        Password = WebUtility.HtmlEncode(Password)
        Dim Post As String = String.Format("username={0}&password={1}", UserName, Password)
        Dim PostData() As Byte = Encoding.ASCII.GetBytes(Post)

        Dim Request As HttpWebRequest
        Request = DirectCast(WebRequest.Create(LoginPostURL), HttpWebRequest)
        Request.Method = "POST"
        Request.KeepAlive = True
        Request.CookieContainer = Cookies
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.Accept = "*/*"
        Request.UserAgent = UserAgent
        Request.ContentLength = PostData.Length
        Request.Referer = LoginURL
        Request.AllowAutoRedirect = True

        Request.Headers.Add("X-Instagram-AJAX", "1")
        Request.Headers.Add("X-CSRFToken", CSRFToken)
        Request.Headers.Add("X-Requested-With", "XMLHttpRequest")

        Dim PostStream As Stream = Request.GetRequestStream()
        PostStream.Write(PostData, 0, PostData.Length)
        PostStream.Close()

        Dim Response As HttpWebResponse
        Response = DirectCast(Request.GetResponse(), HttpWebResponse)
        Cookies.Add(Response.Cookies)

        Dim Reader As New StreamReader(Response.GetResponseStream())
        Dim AuthResponse As String = Reader.ReadToEnd()
        MsgBox(AuthResponse)
        Return AuthResponse.Contains("true")
    End Function
    Public CookieJar As New CookieContainer()
    Const UserAgent As String = "Mozilla/5.0 (Windows NT 6.3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.154 Safari/537.36"
    Private Function HttpGet(ByVal Page As String, ByVal Cookies As CookieContainer, Optional ByVal Referrer As String = Nothing) As String
        Dim Request As HttpWebRequest
        Request = DirectCast(WebRequest.Create(Page), HttpWebRequest)
        Request.Method = "GET"
        Request.KeepAlive = True
        Request.CookieContainer = Cookies
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.UserAgent = UserAgent
        Request.Referer = Referrer
        Request.AllowAutoRedirect = True

        Dim Response As HttpWebResponse
        Response = CType(Request.GetResponse(), HttpWebResponse)
        Cookies.Add(Response.Cookies)

        Dim Reader As New StreamReader(Response.GetResponseStream())
        Return Reader.ReadToEnd()
    End Function
end class