Runescape Account Creator!

[master447]

w00t its done i am going to put in client aswell! link here,
if the name has been taken then you get a msg box saying so!
if the name isnt taken then it wont do nething! just go and login to it!
if you have been blocked for creating to many accounts then it tells you that you have been blocked!


http://uppit.com/d/755Q6

 

[skate4lifee]

you forgot to add the source. the reason for this section of the forum is for learning and helping others learn, not to show off.

 

[master447]

heres all the code in it

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("https://create.runescape.com/createaccount.ws?password1=" & TextBox2.Text & "&password2=" & TextBox2.Text & "&termsandcond=1&username=" & TextBox1.Text & "&country=225")
    End Sub
    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        If e.Url.AbsoluteUri = "http://www.runescape.com/" Then e.Cancel = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.DocumentText.Length = (2876) Then
            MsgBox("Sorry the username:" & TextBox1.Text & "has already been taken!")
        End If
        If WebBrowser1.DocumentText.Length > (20500) Then
            MsgBox("Account Created with the username:" & TextBox1.Text & " and the password:" & TextBox2.Text & " has been created!")
        End If
        If WebBrowser1.DocumentText.Length = (1174) Then
            MsgBox("LOL BANNED!!!!!! JK try again in a fiew Mins :P u tried to make to many accounts!")
        End If
    End Sub
End Class

 

[skate4lifee]

please recheck your code, it doesn't seem like the messagebox's would appear. let me try out your code to verify.

 

[The Crunchy]

I'm a person who makes many accounts per day, but I'm not a very experienced coder.. I've noticed your code is somewhat outdated as they have changed the page where you create accounts.. I've gotten it somewhat working, it will create the accounts if it has not exceeded the creation limit and the user has not taken, otherwise it will not create the account, and not tell me what the error is.. Essentially all I need to know is how to let it check what the URL of the webbrowser is so it will know if the account was created, or why not.

Here's what I have so far:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("https://create.runescape.com/index.html" & TextBox2.Text & "&password2=" & TextBox2.Text & "&password1=" & TextBox2.Text & "&agree_terms=1&username=" & TextBox1.Text & "&country=38" & "&agree_privacy=1" & "&day=1" & "&month=8" & "&year=1991")
    End Sub
    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        If e.Url.AbsoluteUri = "http://www.runescape.com/" Then e.Cancel = True
    End Sub


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If e.Url = "https://create.runescape.com/index.html" Then
            MsgBox("USERNAME TAKEN!")
        elseIf
             e.Url = "https://create.runescape.com/accountcreated" Then
            MsgBox("Account Created with the username:" & TextBox1.Text & " and the password:" & TextBox2.Text & " has been created!")
        Else
            MsgBox("Account limit surpassed.")
        End If
    End Sub
End Class

By the way, you get all credit for the code above, as I just made minor changes to the code you had previously.

So, could anybody help me make this more usable?

 

[The Crunchy]

Error 1 Overload resolution failed because no accessible '=' can be called with these arguments:
'Public Shared Operator =(a As String, b As String) As Boolean': Value of type 'System.Uri' cannot be converted to 'String'.
'Public Shared Operator =(uri1 As System.Uri, uri2 As System.Uri) As Boolean': Value of type 'String' cannot be converted to 'System.Uri'. C:\Documents and Settings\Owner\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Form1.vb 12 12 WindowsApplication1
Error 2 Expression expected. C:\Documents and Settings\Owner\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Form1.vb 14 14 WindowsApplication1
Error 3 Property 'Url' is 'ReadOnly'. C:\Documents and Settings\Owner\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Form1.vb 15 14 WindowsApplication1
Error 4 End of statement expected. C:\Documents and Settings\Owner\My Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\Form1.vb 15 68 WindowsApplication1



These are the errors.. I do see what's going wrong, I just don't know the correct way to tell the program to do what I want.

Perhaps if I found a specific thing that happens in each case.. Like, if it finds the message you get when you have too many accounts made, it tells you. If you stay still.. and it's still on the name thing.. I could say, look for the text box containing year.. If it's still there, say the account name is unavailable. And then else "Account Created". I'll try that.

 

There is a way more simple method of doing this. There are account checking and creating URLs, so all you really need to do is import your system files, declare a webclient then navigate to the URL with the given info.

 

[The Crunchy]

Well.. I finished making it just input all the info in the form.. But your way sounds better.. I'll try that.

 

[Milk 4 shake]

The Crunchy u forgot "" in the = () should be = ("") in ur string there