How to make your own Runescape Client

Here's My little Tutorial on How to make your own Runescape Client.

Requirements:

• Microsoft Visual Basic 2008/2010 Express

You can download this programm for free here:
Visual Basic 2010 Express | Microsoft Visual Studio

 

Step 1 - Making the New Project:


Click on "New Project" to make a new Project, then choose "Windows Forms Application" and give it a Name you like.

[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/step1.png[/IMG]

After this you should see a window called "Form1".


Step 2 - The Form:

Now go back to the Form and change the Name:

[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/rename.png[/IMG]

And if you want you can change the icon here, but it has to be a ".ico" file:

[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/icon.png[/IMG]

Now go to the left site and search for "webbrowser":

[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/webbrowser.png[/IMG]

Drag it onto the Form and now it should look like this:

[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/webbrowser2.png[/IMG]

Click on the Webbrowser Element and then search for URL on the right site:

[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/url.png[/IMG]

Then simply add this URL:

Code:

---

https://www.runescape.com/game.ws

---

 

For this we'll need The client from above (the simple Client).

Then, double click on the Form (not the Webbrowser) and then you should see the Code, wich looks like this at the moment:

Code:

---

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

---

Now add this line of code under the Private Sub:

Code:

---

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

---

If you Compile it now (F5), you should only see the Webbrowser without the Form.

Now add this under the "Public Class Form1":

Code:

---

#Region "Formmove"
    Dim Point As New System.Drawing.Point()
    Dim U, N As Integer
#End Region

---

Now go back to the Form and resize the Webbrowser:
[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/webresize.png[/IMG]

After this, search in the Toolbox for "Panel" and add it like this, you can also give it a custom background:
[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/panel.png[/IMG]

Now search in the Toolbox for "Label" and it it on the Panel (this is going to be the name):
[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/label.png[/IMG]

Then go back to the Code and add this under the "End Sub":

Code:

---

Private Sub Panel1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If e.Button = MouseButtons.Left Then
            Point = Control.MousePosition
            Point.X = Point.X - (U)
            Point.Y = Point.Y - (N)
            Me.Location = Point
        End If
    End Sub
    Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        U = Control.MousePosition.X - Me.Location.X
        N = Control.MousePosition.Y - Me.Location.Y
    End Sub
    Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        If e.Button = MouseButtons.Left Then
            Point = Control.MousePosition
            Point.X = Point.X - (U)
            Point.Y = Point.Y - (N)
            Me.Location = Point
        End If
    End Sub
    Private Sub Label1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        U = Control.MousePosition.X - Me.Location.X
        N = Control.MousePosition.Y - Me.Location.Y
    End Sub

---

Now add 2 Buttons from the Toolbox to the Label and name them "X" and "_" (Close and minimize) and change the Flatstyle to "Flat".
[IMG]https://i1115.photobucke*****m/albums/k543/dragoon_wuut/buttonz.png[/IMG]

Doubleclick at the "X"-Button and add this:

Code:

---

End

---

Now doubleclick on the "_"-Button and add this:

Code:

---

Me.WindowState = FormWindowState.Minimized

---

Then Compile it again and you should have a full working Ruenscape Client with your own Form!

Here's The Full Code if you are having problems:

Code:

---

Public Class Form1

#Region "Formmove"
    Dim Point As New System.Drawing.Point()
    Dim U, N As Integer
#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    End Sub

    Private Sub Panel1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If e.Button = MouseButtons.Left Then
            Point = Control.MousePosition
            Point.X = Point.X - (U)
            Point.Y = Point.Y - (N)
            Me.Location = Point
        End If
    End Sub
    Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        U = Control.MousePosition.X - Me.Location.X
        N = Control.MousePosition.Y - Me.Location.Y
    End Sub
    Private Sub Label1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        If e.Button = MouseButtons.Left Then
            Point = Control.MousePosition
            Point.X = Point.X - (U)
            Point.Y = Point.Y - (N)
            Me.Location = Point
        End If
    End Sub
    Private Sub Label1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        U = Control.MousePosition.X - Me.Location.X
        N = Control.MousePosition.Y - Me.Location.Y
    End Sub

'The Close Button:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

'The Minimize Button:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub
End Class

---

This is everything, now you just have to Compile it by pressfing the F5 Key on your Keyboard.

After this, close the programm and Save it (Save Project) and go to "Documents > Visual Studio 2010 > Projects > The Folder with the Name you gave your Client > There should be a folder with the same name again, click it > bin > Debug"

For short: "C:\Users\your pc username\Documents\Visual Studio 2010\Projects\Your tools name\Your tools name\bin\Debug"
And there is the .exe, wich you can Copy onto your Desktop.

I hope you this Tutorial has helped you a little bit,
and if it has done it wouldn't hurt to spare a thanks =]

Credits:
@master131 for the code to move the form
Me for the Guide /fosho

Greetings,
Paul

@Paul Great Tutorial Bro : Good Details And Very Useful. Grats For Geting It Stickied. /yes

nice tutorial good job

@Paul I have a better and shorter code for moving around the form

Quote:

---

Originally Posted by Dawgy Dawg

@Paul I have a better and shorter code for moving around the form

---

Ok, This is just my Version of it.

Oh, I was gunna ask if you wanted to try it out.

Quote:

---

Originally Posted by Paul

Ok, This is just my Version of it.

---

Quote:

---

Originally Posted by Dawgy Dawg

Oh, I was gunna ask if you wanted to try it out.

---

No, thanks, i'm too lazy =]