Public Function http() As Object

        Dim s As String = String.Format(String.Concat(New String() {"email=aaertgvfjjf@gmail.com&password=&username=aaer&first_name="}), New Object(-1) {})
        Dim request As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/attempt/"), HttpWebRequest)
        request.Method = "POST"
        request.KeepAlive = True
        request.Referer = "https://www.instagram.com/"
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"
        request.Accept = ("*/*")
        request.Headers.Add("X-Requested-With: XMLHttpRequest")
        request.Headers.Add("X-CSRFToken: KkMbff7sxXs1tBXybsZL49RGSUU1H2ob")
        request.ContentType = "application/x-www-form-urlencoded"
        request.Headers.Add("Cookie: rur=ASH; mid=Wo7RwwAEAAEMPY5ePXQGXhymVxfT; ig_vw=586; ig_pr=1; ig_vh=514; ig_or=landscape-primary; urlgen="{\"time\": 1519309679}:1eosUE:XnfncAG8-Sw1BnuJX5TFFzKT7ds"; csrftoken=KkMbff7sxXs1tBXybsZL49RGSUU1H2ob")
        Dim bytes As Byte() = Encoding.ASCII.GetBytes(s)
        request.ContentLength = bytes.Length
        Dim requestStream As Stream = request.GetRequestStream
        requestStream.Write(bytes, 0, bytes.Length)
        requestStream.Flush()
        requestStream.Close()
        Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
        Using reader As StreamReader = New StreamReader(response.GetResponseStream)
            Dim str4 As String = reader.ReadToEnd
            MsgBox(str4)
            reader.Close()
        End Using
        response.Close()

    End Function