9QitbLAJ

1Public Function check(ByVal x) As Object
2        Dim PX As String = Me.proxy(random.[Next](0, Me.proxy.Length - 1))
3        Dim aacpr As String = PX.Split(":")(0)
4        Dim aacpo As Integer = PX.Split(":")(1)
5        Dim usa As String = us(userchk)
6        TextBox5.Text = (PX)
7        Try
8            Dim strArrays() As String = {"email=aslaam.asl.q.a%2BewlfletrgrtgrtregtreHaj%40gmail.com&password=AaAass231&username=", x, "&first_name=Alkaymary"}
9            Dim str As String = String.Concat(strArrays)
10            Dim length As HttpWebRequest = DirectCast(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/attempt/"), HttpWebRequest)
11            length.Method = "POST"
12            length.Host = "www.instagram.com"
13            length.Proxy = New WebProxy(aacpr, aacpo)
14            length.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36"
15            length.Headers.Add("X-CSRFToken", "eCdGqzxvh8GE5JQugAvvKVWHOXBHCrBU")
16            length.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
17            length.Headers.Add("X-Requested-With", "XMLHttpRequest")
18            length.Headers.Add("Cookie", "csrftoken=eCdGqzxvh8GE5JQugAvvKVWHOXBHCrBU; mid=" + mid)
19            length.KeepAlive = True
20            length.Referer = "https://www.instagram.com/"
21            length.Timeout = 5000000
22            Dim bytes As Byte() = Encoding.ASCII.GetBytes(str)
23            length.ContentLength = CLng(CInt(bytes.Length))
24            Dim requestStream As Stream = length.GetRequestStream()
25            requestStream.Write(bytes, 0, CInt(bytes.Length))
26            requestStream.Flush()
27            requestStream.Close()
28            If ((New StreamReader(DirectCast(length.GetResponse(), HttpWebResponse).GetResponseStream())).ReadToEnd().Contains("true")) Then
29                Changer("alkaymary.checker.user." + usa + "@gmail.com", usa)
30            Else
31                TextBox4.AppendText(usa + vbCrLf)
32            End If
33        Catch exception As System.Exception
34        End Try
35        TextBox6.Text += 1
36    End Function