NBhwa6Hj

1 Public Sub register()
2
3        Try
4
5            Dim proxie As WebProxy = New WebProxy(proxies(GetRandom(0, proxies.Count - 1)))
6            publicproxy = proxie
7            Dim email As String = RandomString(6, 10) + "@gmail.com"
8            Dim password As String = "sw2xishere"
9            Dim user As String = RandomString(6, 11)
10
11            Dim postData As String = "email=" & email & "&password=" & password & "&username=" & user & "&first_name=" & "Sw2x is here"
12            Dim tempCook As CookieContainer
13            Dim encoding As New UTF8Encoding
14            Dim bytedata As Byte() = encoding.GetBytes(postData)
15            Dim request As HttpWebRequest = DirectCast(WebRequest.Create("https://www.instagram.com/accounts/web_create_ajax/"), HttpWebRequest)
16            request.Headers.Add("X-CSRFToken", "aBIjhglsmHjGwPzTakFcJjv8JA1RJbEn")
17            request.ContentType = "application/x-www-form-urlencoded"
18            request.Headers.Add("X-Instagram-AJAX", "1")
19            request.Headers.Add("X-Requested-With", "XMLHttpRequest")
20            request.Headers.Add("Cookie", "mid=WnHI3wALAAEIa76mzCBt0f7Dvapo; js_datr=JbBhWCXpCLhu_i0Hy89QBFIG; csrftoken=aBIjhglsmHjGwPzTakFcJjv8JA1RJbEn; ig_pr=1; ig_vw=958; 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")
21            request.Method = "POST"
22            request.Proxy = proxie
23
24            request.KeepAlive = True
25            request.CookieContainer = tempCook
26            request.Referer = "https://www.instagram.com/"
27            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)"
28            request.ContentLength = bytedata.Length
29            Label3.Text = "Proxy: " & proxie.Address.ToString.Replace("http://", "").Replace("https://", "").Replace("/", "")
30
31            Dim requestStream As Stream = request.GetRequestStream()
32            requestStream.Write(bytedata, 0, bytedata.Length)
33
34            requestStream.Close()
35            Dim responseS As HttpWebResponse
36            responseS = DirectCast(request.GetResponse(), HttpWebResponse)
37            Dim Reader As New StreamReader(responseS.GetResponseStream())
38            Dim thepage As String = Reader.ReadToEnd
39            If thepage.Contains("Another account is using") Then
40
41
42
43            Else
44
45                '  Dim flag As Boolean = login(user, password, uuid, proxy)
46
47                ' if flag Then
48                ' MsgBox(flag)
49                '  ReportSpam(GrabID(NsTextBox1.Text), proxy)
50				' End If
51
52
53                Dim file As System.IO.StreamWriter
54                file = My.Computer.FileSystem.OpenTextFileWriter("Accounts.txt", True)
55                file.WriteLine(user & ":" & password)
56                file.Close()
57
58
59                accounts += 1
60                Label1.Text = "Registred: " & accounts
61
62
63
64
65            End If
66
67
68
69            Dim t As New Threading.Thread(AddressOf register)
70            threadlist.Add(t)
71            t.IsBackground = True
72            t.Start()
73
74
75        Catch ex As Exception
76            '  MsgBox(ex.Message)
77        End Try
78
79    End Sub