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

The Normal Client

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.

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

Step 2 - The Form:

Now go back to the Form and change the Name:

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

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

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

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

Then simply add this URL:

Code:

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

Advanced Client with Custom Drag & Drop Form

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:

After this, search in the Toolbox for "Panel" and add it like this, you can also give it a custom background:

Now search in the Toolbox for "Label" and it it on the Panel (this is going to be the name):

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".

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

Greetings,
Paul