rrx

  Dim s As String = String.Concat(New String() {"email=alisniper", text, "snipero02xv%40hotmail.com&password=alialaila030eidkdc-&username=", text, "&first_name=Hi Im Ali Sniper"})
                        Dim requset As HttpWebRequest = CType(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/attempt/"), HttpWebRequest)
                        requset.Method = "POST"
                        requset.Host = "www.instagram.com"
                        requset.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:16.0) Gecko/20100101 Firefox/16.0"
                        requset.Headers.Add("X-CSRFToken", "whzdNapSWe0ZnoDXMfRAilKnuzo0vC9b")
                        requset.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
                        requset.Headers.Add("X-Requested-With", "XMLHttpRequest")
                        requset.Headers.Add("Cookie", "rur=FRC; csrftoken=whzdNapSWe0ZnoDXMfRAilKnuzo0vC9b; mid=WSTULQALAAG3soO_J_LfNnM_QVMT; ig_vw=1366; ig_pr=1")
                        requset.KeepAlive = True
                        requset.AllowAutoRedirect = True
                        requset.Referer = "https://www.instagram.com/"
                        requset.Timeout = 1000000
                        Dim bytes As Byte() = Encoding.ASCII.GetBytes(s)
                        requset.ContentLength = CLng(bytes.Length)
                        Dim stre As Stream = requset.GetRequestStream()
                        stre.Write(bytes, 0, bytes.Length)
                        stre.Flush()
                        stre.Close()
                                              If New StreamReader((CType(expr_93.GetResponse(), HttpWebResponse)).GetResponseStream()).ReadToEnd().Contains("true") Then
                            msgbox("Avi")
                        Else
                            msgbox("taken")
                        End If
                         End If