Results 1 to 7 of 7
  1. #1
    Paul's Avatar
    Join Date
    Mar 2011
    Gender
    male
    Posts
    6,296
    Reputation
    473
    Thanks
    1,061
    My Mood
    Sleepy

    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

    Greetings,
    Paul
    Last edited by Paul; 06-01-2012 at 07:20 AM.


  2. The Following 6 Users Say Thank You to Paul For This Useful Post:

    Amkay (06-03-2012),Katy (06-30-2012),King Sam (10-19-2014),mullerrice (03-24-2013),Ricardo15-07 (06-04-2012),vaporak10 (07-07-2012)

  3. #2
    Amkay's Avatar
    Join Date
    Nov 2011
    Gender
    male
    Location
    Underground...
    Posts
    1,018
    Reputation
    80
    Thanks
    592
    My Mood
    Sneaky
    @Paul Great Tutorial Bro : Good Details And Very Useful. Grats For Geting It Stickied.
    Last edited by Amkay; 06-03-2012 at 09:59 AM.

  4. The Following User Says Thank You to Amkay For This Useful Post:

    Paul (06-03-2012)

  5. #3
    Ricardo15-07's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Location
    Netherlands
    Posts
    34
    Reputation
    10
    Thanks
    91
    nice tutorial good job

  6. #4
    DawgiiStylz's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    Dawg House
    Posts
    7,811
    Reputation
    219
    Thanks
    2,896
    My Mood
    Tired
    @Paul I have a better and shorter code for moving around the form

  7. #5
    Paul's Avatar
    Join Date
    Mar 2011
    Gender
    male
    Posts
    6,296
    Reputation
    473
    Thanks
    1,061
    My Mood
    Sleepy
    Quote Originally Posted by Dawgy Dawg View Post
    @Paul I have a better and shorter code for moving around the form
    Ok, This is just my Version of it.


  8. #6
    DawgiiStylz's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    Dawg House
    Posts
    7,811
    Reputation
    219
    Thanks
    2,896
    My Mood
    Tired
    Oh, I was gunna ask if you wanted to try it out.
    Quote Originally Posted by Paul View Post


    Ok, This is just my Version of it.

  9. #7
    Paul's Avatar
    Join Date
    Mar 2011
    Gender
    male
    Posts
    6,296
    Reputation
    473
    Thanks
    1,061
    My Mood
    Sleepy
    Quote Originally Posted by Dawgy Dawg View Post
    Oh, I was gunna ask if you wanted to try it out.
    No, thanks, i'm too lazy


Similar Threads

  1. [HELP]How to make your OWN Chams
    By true1playa in forum Combat Arms Hacks & Cheats
    Replies: 13
    Last Post: 08-07-2008, 03:15 PM
  2. [Tutorial] How to make your own undetected module in VB6
    By markfracasso11 in forum Visual Basic Programming
    Replies: 17
    Last Post: 10-15-2007, 09:34 AM
  3. [Tutorial] How to make your own undetected module in VB6
    By markfracasso11 in forum WarRock - International Hacks
    Replies: 22
    Last Post: 09-25-2007, 05:35 AM
  4. (TUT)how to make your own warrock menu
    By aprill27 in forum WarRock - International Hacks
    Replies: 0
    Last Post: 09-21-2007, 03:46 PM
  5. How to make your own radiostation?
    By nasir91 in forum General
    Replies: 3
    Last Post: 04-30-2007, 07:25 AM