[TUT]How to make an Account Generator

[Lolland]

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:

    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:

    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 comxes 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:

    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:

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:

     
    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 = ("https://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:

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:

        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!

[qddW$#%^jtyjtyj]

Nice tutorial

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

[Blubb1337]

https://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})

[Zoom]

https://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

[Hassan]

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.

[Blubb1337]

Sendkeys is for choobs

GetElementbyid ftw

Nice tutorial

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

[trevor206]

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

[MugNuf]

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

[Lolland]

https://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.

[Blubb1337]

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

[GameTrainerMaker]

Now Quick Everyone Go Make One And Say Its Yours

Nice Tut.

Already made one ^_^

[MvRouC12]

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

[ubanooba]

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.

[Blubb1337]

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

By the way, that video tutorial is just pointless

[Lolland]

No bumping old threads.