Imports System.IO, System.Net, System.Text
Public Class Form1
    Dim Cook As CookieContainer
    Dim csrftoken As String = Nothing
    Public Sub Register()
        'this funcation writed by HusseinRida Please don't share this before enter my name first :)
        Dim TheRequest As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/"), HttpWebRequest) 'ارسال الطلب
        TheRequest.Method = "GET" 'نوع الطلب
        TheRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36" 'واجه مستخدم معينه
        Me.Cook = New CookieContainer() ' الكوكيز
        TheRequest.CookieContainer = Me.Cook 'اعطاء الكوكيز للطلب
        Dim TheResponse As HttpWebResponse = CType(TheRequest.GetResponse(), HttpWebResponse) 'العائد من الطلب
        Dim stream As Stream = TheResponse.GetResponseStream() 'الاجابه تكون Stream
        Dim streamReader As StreamReader = New StreamReader(stream) 'تحويل الاجابة الى نص
        Dim text As String = streamReader.ReadToEnd()
        Dim cookies As CookieCollection = Me.Cook.GetCookies(New Uri("https://www.instagram.com/")) 'جلب كوكيز لرابط معين
        Me.csrftoken = cookies("csrftoken").Value 'هنا معلومات الكوكيز دائماً يكون بيه معلومات تكدر تسحبه عن طريق ادخال اسمها مثل csrftoken
        TheRequest = CType(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest) 'طلب التسجيل
        TheRequest.Method = "POST" 'نوع الطلب
        TheRequest.Accept = "*/*" 'قبول الطلب
        TheRequest.Proxy = Nothing
        TheRequest.ContentType = "application/x-www-form-urlencoded" 'دوماً يكون على هذا الشكل
        TheRequest.Referer = "https://www.instagram.com/" 'بعد التسحيل يذهب الى instagram.com
        TheRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.103 Safari/537.36"
        TheRequest.Headers.Add("X-Requested-With", "XMLHttpRequest") ' ال Header مطلوب دائماً لانه موجود في Request
        TheRequest.Headers.Add("X-Csrftoken", Me.csrftoken) ' جلبنا ال csrftoken لاجلها
        TheRequest.Headers.Add("X-Instagram-Ajax", "1")
        TheRequest.CookieContainer = Me.Cook
        Dim bytes As Byte() = Encoding.ASCII.GetBytes("email=gsndginaaswewre%40gmail.com&password=nojdarxbot&username=g212312sndginre&first_name=Bot4+nojdar")
        stream = TheRequest.GetRequestStream()
        stream.Write(bytes, 0, bytes.Length) ' ارسال ال Bytes
        TheResponse = CType(TheRequest.GetResponse(), HttpWebResponse)
        stream = TheResponse.GetResponseStream()
        streamReader = New StreamReader(stream)
        text = streamReader.ReadToEnd()
        WebBrowser1.DocumentText = text
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Register()
    End Sub
End Class