checkpoint_challenge_required
 Private Sub LoginButton_Click(sender As Object, e As EventArgs) Handles LoginButton.Click
        If LoginButton.Text = "Login" Then
            Dim threadx As Thread = New Thread(AddressOf Login)
            threadx.IsBackground = True
            threadx.Start()
        ElseIf LoginButton.Text = "Send Code" Then
            Dim threadx As Thread = New Thread(AddressOf Send_code)
            threadx.IsBackground = True
            threadx.Start()
        End If
    End Sub
checkpoint_challenge_required PasteShr checkpoint_challenge_required
    Public Sub Login()
        Try
            UserText.Enabled = False
            PassText.Enabled = False
            StatusLoginLabel.Text = "Wait....."
            Dim guidnew As String = Guid.NewGuid.ToString.ToLower
            Dim items() As String = guidnew.Split("-")
            UnLoginText1.Text = guidnew
            UnLoginText2.Text = items(4)
            Dim x2 As String = String.Format("{{""phone_id"":""{2}"",""username"":""{0}"",""guid"":""{2}"",""device_id"":""{3}"",""password"":""{1}"",""login_attempt_count"":""0""}}", UserText.Text, PassText.Text, UnLoginText1.Text, UnLoginText2.Text)
checkpoint_challenge_required How to get it for free? checkpoint_challenge_required
            Dim x3 As String = ha("5ad7d6f013666cc93c88fc8af940348bd067b68f0dce3c85122a923f4f74b251", x2) + "."
            Dim bytes As Byte() = Encoding.UTF8.GetBytes("signed_body=" + x3 + x2 + "&ig_sig_key_version=4")
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://i.instagram.com/api/v1/accounts/login/"), HttpWebRequest) : With request
                .Method = "POST"
                .Host = "i.instagram.com"
                .UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
                .KeepAlive = True
                .Proxy = Nothing
                .ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                .ContentLength = bytes.Length
checkpoint_challenge_required How to use it? checkpoint_challenge_required
                .CookieContainer = cookies
            End With
            Dim requestStream As Stream = request.GetRequestStream : requestStream.Write(bytes, 0, bytes.Length) : requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            If New StreamReader(response.GetResponseStream).ReadToEnd().Contains("logged_in_user") Then
                StatusLoginLabel.Text = "Logged in"
            End If
        Catch ex As WebException
            Dim res As HttpWebResponse = DirectCast(ex.Response, HttpWebResponse)
            Dim respon As String = New StreamReader(res.GetResponseStream).ReadToEnd().ToString()
checkpoint_challenge_required How to get it? checkpoint_challenge_required
            Dim coockeis As String = res.Headers.Get("Set-Cookie")
            XCSRFToken = Regex.Match(coockeis, "csrftoken=(.*?);").Groups(1).Value
            If respon.Contains("checkpoint_challenge_required") Then
                idcheck = Regex.Match(respon, "checkpoint_url"": ""(.*?)""").Groups(1).Value
                StatusLoginLabel.Text = "Checkpoint...."
                LoginButton.Text = "Send Code"
                LoginButton.ForeColor = Color.Red
                UserText.Enabled = False
                PassText.Enabled = False
               
checkpoint_challenge_required How to use it? checkpoint_challenge_required
            Else
                StatusLoginLabel.Text = "Erorr"
                UserText.Enabled = True
                PassText.Enabled = True
            End If
        End Try
    End Sub

    Public Sub Send_code()
        Try
checkpoint_challenge_required PasteShr checkpoint_challenge_required
            StatusLoginLabel.Text = "Sending...."
            If PhoneRadio.Checked Then iddd = "0"
            If EmailRadio.Checked Then iddd = "1"
            Dim bytes As Byte() = Encoding.UTF8.GetBytes("choice=" + iddd)
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(idcheck), HttpWebRequest) : With request
                .Method = "POST"
                .Proxy = Nothing
                .Host = "i.instagram.com"
                .UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
                .Headers.Add("Accept-Language", "ar-IQ,ar;q=0.9,en-US;q=0.8,en;q=0.7")
checkpoint_challenge_required How to use it? checkpoint_challenge_required
                .Headers.Add("X-Requested-With", "XMLHttpRequest")
                .ContentType = "application/x-www-form-urlencoded"
                .Headers.Add("Sec-Fetch-Dest", "empty")
                .Headers.Add("Sec-Fetch-Mode", "cors")
                .Headers.Add("Sec-Fetch-Site", "same-origin")
                .Headers.Add("X-CSRFToken: " & XCSRFToken)
                .CookieContainer = cookies
                .ContentLength = bytes.Length
                .KeepAlive = True
            End With
checkpoint_challenge_required How to dowload it? checkpoint_challenge_required
            Dim requestStream As Stream = request.GetRequestStream : requestStream.Write(bytes, 0, bytes.Length) : requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            If New StreamReader(response.GetResponseStream).ReadToEnd().Contains("CHALLENGE") Then
                StatusLoginLabel.Text = "Sended"
                code = InputBox("Enter Code : ")

                Dim T As Thread = New Thread(AddressOf StartLoginx)
                T.Start()
            End If
        Catch ex As WebException : End Try
checkpoint_challenge_required How to get it for free? checkpoint_challenge_required
    End Sub

    Public Sub StartLoginx()
        Try
            StatusLoginLabel.Text = "Wait....."
            Dim bytes As Byte() = Encoding.UTF8.GetBytes("security_code=" + code)
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(idcheck), HttpWebRequest) : With request
                .Method = "POST"
                .Proxy = Nothing
                .Host = "i.instagram.com"
checkpoint_challenge_required PasteShr checkpoint_challenge_required
                .Accept = "*/*"
                .UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
                .Headers.Add("Accept-Language", "ar-IQ,ar;q=0.9,en-US;q=0.8,en;q=0.7")
                .Headers.Add("X-Requested-With", "XMLHttpRequest")
                .ContentType = "application/x-www-form-urlencoded"
                .Headers.Add("Sec-Fetch-Dest", "empty")
                .Headers.Add("Sec-Fetch-Mode", "cors")
                .Headers.Add("Sec-Fetch-Site", "same-origin")
                .Headers.Add("X-CSRFToken: " & XCSRFToken)
                .CookieContainer = cookies
checkpoint_challenge_required PasteShr checkpoint_challenge_required
                .ContentLength = bytes.Length
                .KeepAlive = True
            End With
            Dim requestStream As Stream = request.GetRequestStream : requestStream.Write(bytes, 0, bytes.Length) : requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            Dim respon As String = New StreamReader(response.GetResponseStream).ReadToEnd().ToString()
            If respon.Contains("csrf_token") Then
                xs = Regex.Match(respon, "csrf_token"":""(.*?)""").Groups(1).Value
                Login1(xs)
            End If
checkpoint_challenge_required How to use it? checkpoint_challenge_required
        Catch ex As WebException
            Dim res As HttpWebResponse = DirectCast(ex.Response, HttpWebResponse)
            Dim respon As String = New StreamReader(res.GetResponseStream).ReadToEnd().ToString()
            If respon.Contains("CHALLENGE") Then
                StatusLoginLabel.Text = "Erorr Code"
            End If
        End Try
    End Sub

    Public Sub Login1(ByVal csrf_token As String)
checkpoint_challenge_required PasteShr checkpoint_challenge_required
        Try
            Dim x2 As String = String.Format("{{""phone_id"":""{2}"",""_csrftoken"":""{4}"",""username"":""{0}"",""guid"":""{2}"",""device_id"":""{3}"",""password"":""{1}"",""login_attempt_count"":""1""}}", UserText.Text, PassText.Text, UnLoginText1.Text, UnLoginText2.Text, csrf_token)
            Dim x3 As String = ha("1cd3ed5c2c15b66a3f2aa50d195ec80a12841d0dc7b904d426f5eedcbb79ae5d", x2) + "."
            Dim bytes As Byte() = Encoding.UTF8.GetBytes("signed_body=" + x3 + x2 + "&ig_sig_key_version=4")
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://i.instagram.com/api/v1/accounts/login/"), HttpWebRequest) : With request
                .Method = "POST"
                .Host = "i.instagram.com"
                .UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
                .KeepAlive = True
                .Proxy = Nothing
checkpoint_challenge_required How to get it? checkpoint_challenge_required
                .ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                .ContentLength = bytes.Length
                .CookieContainer = cookies
            End With
            Dim requestStream As Stream = request.GetRequestStream : requestStream.Write(bytes, 0, bytes.Length) : requestStream.Close()
            Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
            If New StreamReader(response.GetResponseStream).ReadToEnd().Contains("logged_in_user") Then
                StatusLoginLabel.Text = "Logged in"
                GetSettings()
            End If
checkpoint_challenge_required How to get it for free? checkpoint_challenge_required
        Catch ex As WebException : End Try
    End Sub
    Public Sub GetSettings()
        Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create("https://i.instagram.com/api/v1/accounts/current_user/?edit=true"), HttpWebRequest)
        httpWebRequest.Method = "GET"
        httpWebRequest.KeepAlive = True
        httpWebRequest.UserAgent = "Instagram 9.7.0 Android (24/7.0; 420dpi; 1080x1920; samsung; SM-N920P; nobleltespr; samsungexynos7420; ar_IQ)"
        httpWebRequest.CookieContainer = cookies
        Using streamReader As StreamReader = New StreamReader(httpWebRequest.GetResponse().GetResponseStream())
            Dim input As String = streamReader.ReadToEnd()
checkpoint_challenge_required How to get it? checkpoint_challenge_required
            myid = Regex.Match(input, "pk"": (.*?),").Groups(1).Value
        End Using
    End Sub
   
checkpoint_challenge_required