Thread: Token VBCode

Results 1 to 6 of 6
  1. #1
    PinkiePie1's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Posts
    21
    Reputation
    10
    Thanks
    22

    Exclamation Token VBCode

    Hello i need help with the code for a Token hack this is how i wrote it This is in Visual Basic

    I don't know how to make those code things yet Sorry for that i hope you can help me still.

    Public Class Form1
    Dim MW3 As New Trainer

    Private Mybytes As Byte() = {&HFF}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MW3.Hack("iw5mp")
    MW3.SetByte(&H1CD4343, Mybytes)
    End Sub
    End Class

    I got the Bytes and &H1CD4343 from This Thread
    http://www.mpgh.net/forum/404-call-d...ss-thread.html
    Please someone help me

    Thanks.
    I don't Beg for Nothing!






  2. #2
    Eidolon's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    Vanished
    Posts
    822
    Reputation
    54
    Thanks
    4,034
    My Mood
    Angelic
    Using a maskedtextbox and limited tokens;

    Dim Mylist3 As Integer() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles TokenButton.Click
    If MaskedTextBox1.Text > 30 Then
    MsgBox("Please select a number between 0 and 30")
    Else
    MW3.Hack("iw5mp")
    MW3.SetInt(&H1CD1243, Mylist3(MaskedTextBox1.Text))
    End If
    End Sub

  3. #3
    PinkiePie1's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Posts
    21
    Reputation
    10
    Thanks
    22
    Quote Originally Posted by Anonymouss View Post
    Using a maskedtextbox and limited tokens;

    Dim Mylist3 As Integer() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles TokenButton.Click
    If MaskedTextBox1.Text > 30 Then
    MsgBox("Please select a number between 0 and 30")
    Else
    MW3.Hack("iw5mp")
    MW3.SetInt(&H1CD1243, Mylist3(MaskedTextBox1.Text))
    End If
    End Sub

    Thanks really appreciated it!
    I don't Beg for Nothing!






  4. #4
    Jorndel's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    Norway
    Posts
    8,674
    Reputation
    905
    Thanks
    18,538
    My Mood
    Angelic
    Quote Originally Posted by PinkiePie1 View Post
    Hello i need help with the code for a Token hack this is how i wrote it This is in Visual Basic

    I don't know how to make those code things yet Sorry for that i hope you can help me still.

    Public Class Form1
    Dim MW3 As New Trainer

    Private Mybytes As Byte() = {&HFF}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MW3.Hack("iw5mp")
    MW3.SetByte(&H1CD4343, Mybytes)
    End Sub
    End Class

    I got the Bytes and &H1CD4343 from This Thread
    http://www.mpgh.net/forum/404-call-d...ss-thread.html
    Please someone help me

    Thanks.
    Well, you just have to use the integer value.
    Because the SetByte function don't wonk in VB.
    This was coded in C# and converted to VB.
    So, juse use the set byte.
    Unless you know how to do:
    Go in the Class, edit the Byte() in the SetByte to Integer()
    and then you can use the list of hex values.

    (I dunno why bytes don't work in VB.)

     
    Contributor 01.27.2012 - N/A
    Donator 07-17-2012 - Current
    Editor/Manager 12-16-12 - N/A
    Minion 01-10-2013 - 07.17.13
    Former Staff 09-20-2012 - 01-10-2013 / 07-17-2013 - Current
    Cocksucker 20-04-2013 - N/A

  5. #5
    PinkiePie1's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Posts
    21
    Reputation
    10
    Thanks
    22
    Thanks guys really appreciated everything
    Last edited by PinkiePie1; 01-09-2012 at 11:17 AM.
    I don't Beg for Nothing!






  6. #6
    master131's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    8,802
    Reputation
    3165
    Thanks
    73,314
    My Mood
    Breezy
    /marked as solved
    Donate:
    BTC: 1GEny3y5tsYfw8E8A45upK6PKVAEcUDNv9


    Handy Tools/Hacks:
    Extreme Injector v3.6.1 *NEW* Windows 10 compatible!
    A powerful and advanced injector in a simple GUI.
    Can scramble DLLs on injection making them harder to detect and even make detected hacks work again!

    Minion Since: 13th January 2011
    Moderator Since: 6th May 2011
    Global Moderator Since: 29th April 2012
    Super User/Unknown Since: 23rd July 2013
    'Game Hacking' Team Since: 30th July 2013

    --My Art--
    [Roxas - Pixel Art, WIP]
    [Natsu - Drawn]
    [Natsu - Coloured]


    All drawings are coloured using Photoshop.

    --Gifts--
    [Kyle]

Similar Threads

  1. get 3 respawn tokens from my simple task
    By jeevin in forum Combat Arms Discussions
    Replies: 14
    Last Post: 02-20-2010, 09:57 PM
  2. [Help] Z Tokens?
    By vonkillalot in forum BattleOn Games Hacks, Cheats & Trainers
    Replies: 16
    Last Post: 12-28-2009, 12:08 PM
  3. hi im token
    By Token in forum General
    Replies: 24
    Last Post: 04-11-2009, 02:07 PM
  4. Token MPGH flame thread.
    By tednugent in forum General
    Replies: 36
    Last Post: 12-27-2007, 06:38 PM
  5. Lineage 2 Walker 10.6.1 + Token To Private Servers
    By Flawless in forum General Game Hacking
    Replies: 0
    Last Post: 01-24-2006, 06:04 AM