Home › Forum › Programming › Visual Basic Programming › [Help]Account Generator PB

[Help]Account Generator PB

Posts 1–15 of 15 · Page 1 of 1

I'm trying to make an account generator for Project Blackout and Most of it doesn't work. If you could help it would be appreciated.

Code:

Module Module1
    Public Sub fillinformation()
        Form1.WebBrowser1.Document.GetElementById("tuid").SetAttribute("value", Form1.textbox1.Text)
        Form1.WebBrowser1.Document.GetElementById("tpassword1").SetAttribute("value", Form1.TextBox2.Text)
        Form1.WebBrowser1.Document.GetElementById("tpassword2").SetAttribute("value", Form1.TextBox2.Text)
        Form1.WebBrowser1.Document.GetElementById("temail").SetAttribute("value", Form1.TextBox3.Text)
        Form1.WebBrowser1.Document.GetElementById("tfirst_name").SetAttribute("value", Form1.TextBox4.Text)
        Form1.WebBrowser1.Document.GetElementById("tlast_name").SetAttribute("value", Form1.TextBox5.Text)
        Form1.WebBrowser1.Document.GetElementById("drp4Month").SetAttribute("value", Form1.ComboBox2.Text)
        Form1.WebBrowser1.Document.GetElementById("drp4Day").SetAttribute("value", Form1.ComboBox1.Text)
        Form1.WebBrowser1.Document.GetElementById("drp4Year").SetAttribute("value", Form1.TextBox6.Text)
        Form1.WebBrowser1.Document.GetElementById("male").InvokeMember("click")
        Form1.WebBrowser1.Document.GetElementById("imgCaptcha").SetAttribute("value", Form1.TextBox7.Text)
        Form1.WebBrowser1.Document.GetElementById("chkCheck").InvokeMember("click")
        Form1.WebBrowser1.Document.GetElementById("LoginButton").InvokeMember("click")
    End Sub
    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://pb.ntreev.net/entrypoint/Common/CaptchaCon.ashx?c=fpHbsks6Q6WIahZGMzQXkw==") & pulledOut
        Form1.PictureBox1.ImageLocation = capurl
        Form1.Picturebox1.Show()
    End Sub
End Module

Is this all of your code?

I ask the exact same question as Lolhand...

Did you put a button or a timer, or the sub to execute when the form loads or something? You must do that or it won't do nothing... (since this is obvious and the basic of the basic i'm sorry for asking if you do have this xP) If you don't, then add a button and add this:

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        fillinformation()
    End Sub

And delete the "Form1.", if you put the code into a form, keep it if you stay with the module...
Oh! and instead of a module use a form... (unless your putting your sub into the module and then only using the form to execute, in that case put this:

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Module1.fillinformation()
    End Sub

)

btw I'm going to give you one advice...

If you want to make an accout generator (create multiples acounts) make the username (that you will register with) random... Or the name that you want and the a rand number in the front or something like that...

the 'fillinformation' sub seems good at me, idk for the getcaptcha, what's the current problem?

hum... Probably my first post was stupid....

But, I've checked the code and (if I have the correct site) you have some things missing and small "mistakes"...
The site that I checked was: Sign up - SG Interactive

#1-
Your code for the gender doesn't work... (the id of the gender male isn't "male")
#2-
You tick the TEO box (thats fine) but in this site the TEO is already ticked when you enter the site... So you are accually "Unticking" the box...
#3-
THe year isn't a textbox, its a combob0x...
#4-
Your missing some stuff...

WHat can you do to fix this?
Try adding this:

Code:

WebBrowser1.Document.GetElementById("tlast_name").Focus()
SendKeys.Send(Keys.Tab)
SendKeys.Send(Keys.Enter)                                                                    WebBrowser1.Document.GetElementById("drp4questions").SetAttribute("value", ComboBox4.Text)
WebBrowser1.Document.GetElementById("drp4Year").SetAttribute("value", Combobox3.Text)
WebBrowser1.Document.GetElementById("tanswer").SetAttribute("value", TextBox8.Text)
WebBrowser1.Document.GetElementById("tnickname").SetAttribute("value", TextBox9.Text)
WebBrowser1.Document.GetElementById("drp4questions").SetAttribute("value", ComboBox4.Text)

AND DELLETING this:

Code:

WebBrowser1.Document.GetElementById("chkCheck").InvokeMember("click")
Form1.WebBrowser1.Document.GetElementById("male").InvokeMember("click")
Form1.WebBrowser1.Document.GetElementById("drp4Year").SetAttribute("value", Form1.TextBox6.Text)

PS: I haven't checked the Captcha

I see the problem... its in a Module not in the source

What exactly is your error? Please explain. I have a working one now, and uses the same code.

Originally Posted by willrulz188

I see the problem... its in a Module not in the source

Actually that part of the code CAN be in a module (in that way, with "Form1.something...), thats not a problem... as long as he orders the command to execute from the form...

If there is any error its what I've say (probably), if its not... then I don't know whats the problem....

ANYWAY, we can't keep trying to fix it if he doesn't say whats the problem xP lets just w8...

Originally Posted by TheRealOne

Thats my point I don't think he is using it correctly

Can you please post your Form code?

Originally Posted by TheRealOne

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        fillinformation()
    End Sub

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Module1.fillinformation()
    End Sub

Your better off using a dictionary of names and adding some random numbers so they can be used multiple times in a sitting.

Random Numbers (unless done using a value like current CPU speed/temp or something similar) will be the same pattern every time you start your application.

The problem is known as pseudo random. If you create random numbers and start your application (using rnd) then the first number may be 12 then 24, then 86 then continue on in a random order, if you close your application down and then restart your application, your first number will be 12, then 24, then 86 and continue in the same pattern as before. It's a great idea, but it is best executed with other controllable factors, like multiplying the number by the current CPU speed minus 2, or by the current number of running apps + rnd , or (the one I used for a personal app) allow the "end user" the ability to enter in a number between 1-1000 and use that number to factor into the equation .

Originally Posted by Lolland

Is this all of your code?

no not my code, just replaced lil bits was using a guide for a ca generator on another site and it didn't have any credits

Edit: im not at home so i can't work on this right now

Hmm it looks a lot like my code, could you maybe PM the link to me?

Also, I'd like to see the Form1 code if you may.

Originally Posted by Lolland

Hmm it looks a lot like my code, could you maybe PM the link to me?

Also, I'd like to see the Form1 code if you may.

I cannot remember the name of the website, if its really that important i can look through my history but im lazy lmao. I got this workin, no need for any more help thanks !

Post the solution.

Posts 1–15 of 15 · Page 1 of 1