Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text


Module Module1
    Dim email$
    Dim pass$
    Dim user$
    Dim name$
    Function register(Email$, Pass$, user$, Name$)
        Dim postData As String = "email=" & Email & "&password=" & Pass & "&username=" & user & "&first_name=" & Name
        Dim tempCook As CookieContainer
        Dim encoding As New UTF8Encoding
        Dim bytedata As Byte() = encoding.GetBytes(postData)
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
        request.Headers.Add("X-CSRFToken", "4d1RHxO1YEYiEBys2mR28DEWDlbVN1yl")
        request.ContentType = "application/x-www-form-urlencoded"
        request.Headers.Add("X-Instagram-AJAX", "1")
        request.Headers.Add("X-Requested-With", "XMLHttpRequest")
        request.Headers.Add("Cookie", "mid=WV9-tAAEAAGbF0GmRpSJfU_uS_qj; js_datr=JbBhWCXpCLhu_i0Hy89QBFIG; csrftoken=4d1RHxO1YEYiEBys2mR28DEWDlbVN1yl; ig_pr=1.25; ig_vw=1525; ig_dru_dismiss=1485866364904; ig_aib_du=1487800189834; js_reg_ext_ref=http%3A%2F%2Fhelp.instagram.com; js_reg_fb_ref=https%3A%2F%2Fwww.facebook.com%2Fhelp%2Finstagram%2Fcontact%2F1652567838289083; js_reg_fb_gate=https%3A%2F%2Fwww.facebook.com%2Fhelp%2Finstagram%2F292478487812558; wd=1525x724; dpr=1.25")
        request.Method = "POST"
        request.KeepAlive = True
        request.CookieContainer = tempCook
        request.Referer = "https://www.instagram.com/"
        request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
        request.ContentLength = bytedata.Length
        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(bytedata, 0, bytedata.Length)
        requestStream.Close()
        Dim responseS As HttpWebResponse
        responseS = DirectCast(request.GetResponse(), HttpWebResponse)
        Dim Reader As New StreamReader(responseS.GetResponseStream())
        Dim thepage As String = Reader.ReadToEnd
        If thepage.Contains("Another account is using") Then
            Console.ForegroundColor = ConsoleColor.DarkRed
            Console.WriteLine(user + "Has Been Fail Register !!")
        Else
            Console.ForegroundColor = ConsoleColor.DarkGreen
            Console.WriteLine(user + "Has Been Successfuly Register !!")

        End If
    End Function


    Sub Main()
        Console.WriteLine("Write Your Email ! : ")
        email = Console.ReadLine()
        Console.WriteLine("Write Your Password ! :")
        pass = Console.ReadLine()
        Console.WriteLine("Write Your Username ! :")
        user = Console.ReadLine()
        Console.WriteLine("Write Your FirstName ! :")
        name = Console.ReadLine()
        Console.WriteLine("--------------------------------------------")
        Dim s As New Threading.Thread(AddressOf reg)
        s.Start()
    End Sub
    Sub reg()
        register(email, pass, user, name)
    End Sub
End Module