+- LCKB (https://lckb.dev/forum)
+-- Forum: ** OLD LCKB DATABASE ** (https://lckb.dev/forum/forumdisplay.php?fid=109)
+--- Forum: Programmers Gateway (https://lckb.dev/forum/forumdisplay.php?fid=196)
+---- Forum: Coders Talk (https://lckb.dev/forum/forumdisplay.php?fid=192)
+---- Thread: toxic-l33t.ddns.net Registration Tool + Part of source (/showthread.php?tid=1773)
- ReturnKratos - 04-02-2013
Hay Today I want shot you a new tool for toxic-l33t.ddns.net
Public Class Form1
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
For Each CurElements As HtmlElement In PageElements
If CurElements.GetAttribute("alt").Contains("Immagine di verifica reCAPTCHA") Then
Dim captchalink As String
captchalink = captchalink & CurElements.GetAttribute("src")
ListBox1.Items.Add(captchalink)
Timer1.Start()
End If
Next
Dim page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("strong")
For Each curpage As HtmlElement In page
ListBox1.Items.Add(curpage.OuterText())
Next
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ListBox1.SetSelected(0, True)
WebBrowser2.Navigate(ListBox1.SelectedItem)
ListBox1.SetSelected(0, False)
ListBox1.SetSelected(5, True)
Label4.Text = ListBox1.SelectedItem
Timer1.Stop()
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
TermsofUse.Show()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If CheckBox1.Checked = True And TextBox3.Text = TextBox4.Text And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" And TextBox7.Text <> "" Then
Try
WebBrowser1.Document.GetElementById("agree_tos").InvokeMember("click")
WebBrowser1.Document.GetElementById("display_name").InnerText = TextBox2.Text
WebBrowser1.Document.GetElementById("password_1").InnerText = TextBox3.Text
WebBrowser1.Document.GetElementById("password_2").InnerText = TextBox4.Text
WebBrowser1.Document.GetElementById("qa_answer").InnerText = TextBox5.Text
WebBrowser1.Document.GetElementById("email_1").InnerText = TextBox7.Text
WebBrowser1.Document.GetElementById("recaptcha_response_field").InnerText = TextBox6.Text
WebBrowser1.Document.GetElementById("register_submit").InvokeMember("click")
Timer3.Start()
Catch ex As Exception
End Try
Else
MsgBox("Cannot Input Your Credential Check it and retry")
End If
If CheckBox1.Checked = False Then
MsgBox("You Must Select Terms of Use")
TermsofUse.Show()
ElseIf TextBox2.Text = "" Then
MsgBox("Username Empty Field")
ElseIf TextBox3.Text = "" Then
MsgBox("Password Empty Field")
ElseIf TextBox4.Text = "" Then
MsgBox("Again Password Empty Field")
ElseIf TextBox5.Text = "" Then
MsgBox("Question Empty Field")
ElseIf TextBox7.Text = "" Then
MsgBox("Email Empty Field")
ElseIf TextBox6.Text = "" Then
MsgBox("CAPTCHA Empty Field")
End If
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If Label4.Text <> "Question" Then
ProgressBar1.Value = 100
End If
Label7.Text = ProgressBar1.Value & " %"
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Dim RegCheck As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("p")
Try
For Each Find As HtmlElement In RegCheck
ListBox2.Items.Add(Find.OuterText())
Timer4.Start()
Timer3.Stop()
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
MsgBox(ListBox2.Items(1) & ListBox2.Items(2) & ListBox2.Items(3))
Timer4.Stop()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs)
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Dim PageElements As HtmlElementCollection = WebBrowser3.Document.GetElementsByTagName("a")
For Each CurElements As HtmlElement In PageElements
If CurElements.GetAttribute("title").Contains("Sign In") Then
Dim ids As String
ids = ids & CurElements.GetAttribute("id")
WebBrowser3.Document.GetElementById(ids).InvokeMember("click")
End If
Next
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
WebBrowser3.Document.GetElementById("ips_username").InnerText = TextBox8.Text
WebBrowser3.Document.GetElementById("ips_password").InnerText = TextBox9.Text
If CheckBox2.Checked = True Then
WebBrowser3.Document.GetElementById("inline_remember").InvokeMember("click")
My.Settings.nick = TextBox8.Text
My.Settings.pass = TextBox9.Text
My.Settings.Save()
End If
Dim PageElements As HtmlElementCollection = WebBrowser3.Document.GetElementsByTagName("input")
For Each CurElements As HtmlElement In PageElements
<input type="submit" class="ipsButton" value="Sign In" tabindex="0">
If CurElements.GetAttribute("value") = "Sign In" Then
CurElements.InvokeMember("click")
End If
Next
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox8.Text = My.Settings.nick
TextBox9.Text = My.Settings.pass
End Sub
End Class
Download Link
2
Log V1 : Register Form
Log V2 : Login Form + Register Form
- filix_93 - 04-02-2013
nice work
- ReturnKratos - 04-02-2013
ty tool updated
- Wizatek - 04-02-2013
Its a nice learning process for u maybe, but i dont see the real purpose for this program to be honest
- ReturnKratos - 04-02-2013
yes i know it does mind for users because you can register on the page but i learn how to edit the html and some ting with htmlcollection & co im newbie in the programming world but i got realy some and some thing to learn thats it the start