[TUT]How to make an Account Generator

Hopefully this tutorial explain step-by-step on how to make an account generator in decent detail.

For this tutorial I'll be using the Nexon Passport page.

First off make a form with a webbrowser named webbrowser1, and a module.

Step 1: Learning the HTML.

The first step to making an Account Generator is learning the basics of HTML and stuff.

I recommend checking out this masterful person's video:

That should explain the basics of how to use the Getelementbyid function in VB.NET.

So now knowing the basics of this function, let's put it to use.

Step 2: Inputboxes

First off I need to find the name of the first inputbox.

By looking at the page source of the Nexon passport page I discovered that the first inputbox is named "txtAccountId".

So in our module, I made this sub:

Code:

    Public Sub fillinformation()
        Form1.WebBrowser1.Document.GetElementById("txtAccountId").SetAttribute("value", Form1.textbox1.Text)

    End Sub

And I added a textbox (textbox1) to form1:

After that, I found the rest of the IDs and kept adding to my sub.

My code looked like this:

Code:

    Public Sub fillinformation()
        Form1.WebBrowser1.Document.GetElementById("txtAccountId").SetAttribute("value", Form1.TextBox1.Text)
        Form1.WebBrowser1.Document.GetElementById("pass").SetAttribute("value", Form1.TextBox2.Text)
        Form1.WebBrowser1.Document.GetElementById("passconfirmation").SetAttribute("value", Form1.TextBox2.Text)
        Form1.WebBrowser1.Document.GetElementById("email").SetAttribute("value", Form1.TextBox3.Text)
        Form1.WebBrowser1.Document.GetElementById("emailconfirm").SetAttribute("value", Form1.TextBox3.Text)
        Form1.WebBrowser1.Document.GetElementById("firstname").SetAttribute("value", Form1.TextBox4.Text)
        Form1.WebBrowser1.Document.GetElementById("lastname").SetAttribute("value", Form1.TextBox5.Text)

And my form looked like this:

After that I moved into the dates and shit
Step 3: The com

xes and shit.
This part uses the same principle: Look through the code and find the ID.

After finding the ID my code looked like this:

Code:

    Public Sub fillinformation()
        Form1.WebBrowser1.Document.GetElementById("txtAccountId").SetAttribute("value", Form1.TextBox1.Text)
        Form1.WebBrowser1.Document.GetElementById("pass").SetAttribute("value", Form1.TextBox2.Text)
        Form1.WebBrowser1.Document.GetElementById("passconfirmation").SetAttribute("value", Form1.TextBox2.Text)
        Form1.WebBrowser1.Document.GetElementById("email").SetAttribute("value", Form1.TextBox3.Text)
        Form1.WebBrowser1.Document.GetElementById("emailconfirm").SetAttribute("value", Form1.TextBox3.Text)
        Form1.WebBrowser1.Document.GetElementById("firstname").SetAttribute("value", Form1.TextBox4.Text)
        Form1.WebBrowser1.Document.GetElementById("lastname").SetAttribute("value", Form1.TextBox5.Text)
        Form1.WebBrowser1.Document.GetElementById("month").SetAttribute("value", Form1.ComboBox2.Text)
        Form1.WebBrowser1.Document.GetElementById("day").SetAttribute("value", Form1.ComboBox1.Text)
        Form1.WebBrowser1.Document.GetElementById("year").SetAttribute("value", Form1.TextBox6.Text)
    End Sub

Step 4:Radiobuttons

For radiobuttons, you invoke a click, so for the gender I just set it as default male, and invoked a click.

I added this to my code:

Code:

Form1.WebBrowser1.Document.GetElementById("male").InvokeMember("click")

Step 5: Captcha.
HARDEST PART EVUR.

There are different methods towards this.

For this tutorial we'll use Calebb's.

Nextgen1's method is good too, but mine is about 25 lines of code and a bit less efficient.

So add this sub to your module:

Code:

     
    Public Sub getcaptcha()
        Dim capurl As String
        Dim inner1 As String = Form1.WebBrowser1.Document.Body.InnerHtml

        Dim inner As String = inner1
        Dim findStart As String, pulledOut As String
        findStart = "properties="
        Dim start As Integer, [end] As Integer
        start = inner.IndexOf(findStart)
        inner = inner.Remove(0, start + findStart.Length)
        [end] = inner.IndexOf("""")
        inner = inner.Remove([end], inner.Length - [end])
        pulledOut = inner
        capurl = ""
        capurl = ("http://passport.nexon.net/Registration/FormShieldHttpHandler.aspx?__formShieldID=captchaF  S&generate=image&properties=") & pulledOut
        Form1.PictureBox1.ImageLocation = capurl
        Form1.Picturebox1.Show()
    End Sub

As well as a Picturebox, a textbox and a button to load the captcha.

Don't forget to add:

Code:

Form1.WebBrowser1.Document.GetElementById("captchatextbox").SetAttribute("value", Form1.TextBox7.Text)

To your fillinformation sub.

My form then looked like this:

Step 6: Final Touches and Making the Fill button.

All you have left is to check and un-check some things, and click the button.

That code is this:

Code:

        Form1.WebBrowser1.Document.GetElementById("termsofuse").InvokeMember("click")
        Form1.WebBrowser1.Document.GetElementById("submit").InvokeMember("click")

You're done!

Don't forget to add more features to yours, such as random information, or a better GUI!

Nice tutorial

This is usefull for beginners to learn how to use html in visual basic

http://www.mpgh.net/forum/33-visual-...-checkbox.html

Further tip:

If you can't find the ID ffs simply use Tab.

Tab until you reach the button and hit enter.

Or focus on a textbox before and then hit tab and then enter.

webbrowser1.document.getelementbyid("id").focus
Sendkeys.Send({TAB})
Sendkeys.Send({TAB})
Sendkeys.Send({ENTER})

Originally Posted by Blubb1337

http://www.mpgh.net/forum/33-visual-...-checkbox.html

Further tip:

If you can't find the ID ffs simply use Tab.

Tab until you reach the button and hit enter.

Or focus on a textbox before and then hit tab and then enter.

webbrowser1.document.getelementbyid("id").focus
Sendkeys.Send({TAB})
Sendkeys.Send({TAB})
Sendkeys.Send({ENTER})

Sendkeys is for choobs

GetElementbyid ftw

Nice tutorial

SendKeys and GetElementByID both have their own value. When GetElement method fails, Sendkeys comes in. But Sendkeys is really faulty method as the control can lost focus at any second.

Originally Posted by Zoom

Sendkeys is for choobs

GetElementbyid ftw

Nice tutorial

Yea getelementbyid is especially useful when the names of the elements are hidden...Duh!

lolland get firebug it makes it ALOT easier to do this it takes me like 5 minutes or less to make an acc gen with captcha and all that.

Edit:
gratz on minion budd-e

Originally Posted by Blubb1337

http://www.mpgh.net/forum/33-visual-...-checkbox.html

Further tip:

If you can't find the ID ffs simply use Tab.

Tab until you reach the button and hit enter.

Or focus on a textbox before and then hit tab and then enter.

webbrowser1.document.getelementbyid("id").focus
Sendkeys.Send({TAB})
Sendkeys.Send({TAB})
Sendkeys.Send({ENTER})

I made my first account generator like that, and I handed it in to my teacher along with the code, and he wasn't impressed

He said doing it that way was like building a robot to press keys when making a spammer, instead of making a simple program.

Dang it, now everyone and there brother will have account generators! Anyway, nice tutorial, i already made my own though.

Well duh, if the name is hidden idk how to do it. If not, which is usually the case, one sure uses getelementbyid.

Now Quick Everyone Go Make One And Say Its Yours

Nice Tut.

Already made one ^_^

Lol, Very nice tut indeed. I was actually looking on google the other day for this :P

Can you please help me?

For the final stage of the creation I'm doing this for the "DONE" button
[php]
Form1.WebBrowser1.Document.GetElementById("btnSubm it").InvokeMember("click")
[/php]

Only thing is it doesn't work. All it does is refresh the captcha in my webbrowser.

Try WebBrowser1.Document.Forms(0).InvokeMember("submit ")

By the way, that video tutorial is just pointless

No bumping old threads.

[TUT]How to make an Account Generator

Similar Threads

Tags for this Thread