ItsMods

Full Version: Mw3 VB Ingame Trainer Source Code(outdated adresses)
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Hello guys this is a very old project i made in VB(no comments) Mw3 INGAME trainer.

Lets Start:

[Image: mw3v12.png]

and

[Image: mw3v122.png]

Its how it looks...

Now the source code:

Code:
Public Class Form1
    Dim Ammo As Integer = 0
    Dim Explo As Integer = 0
    Dim Equi As Integer = 0
    Dim Heal As Integer = 0
    Dim ff As Integer = 0
    Dim Op As Integer = 0
    Dim curpos As Integer = 1

    Dim service As Object

    Public Const MOD_ALT As Integer = &H1 'Alt key

    Public Const WM_HOTKEY As Integer = &H312


    Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer

    Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ''Me.Hide()
        Label10.Text = Now
        Timer1.Start()
        Timer2.Start()
        Timer3.Start()
        Timer4.Start()
        gamproc = "iw5sp"
        hd()
        Call RegisterHotKey(Me.Handle, 15, 0&, Keys.Delete)
        Call RegisterHotKey(Me.Handle, 11, 0&, Keys.NumPad8)
        Call RegisterHotKey(Me.Handle, 12, 0&, Keys.NumPad2)
        Call RegisterHotKey(Me.Handle, 13, 0&, Keys.NumPad4)
        Call RegisterHotKey(Me.Handle, 14, 0&, Keys.NumPad6)
    End Sub



    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Call UnregisterHotKey(Me.Handle, 7)
        Call UnregisterHotKey(Me.Handle, 8)
        Call UnregisterHotKey(Me.Handle, 9)
        Call UnregisterHotKey(Me.Handle, 10)
        Call UnregisterHotKey(Me.Handle, 11)
        Call UnregisterHotKey(Me.Handle, 12)
        Call UnregisterHotKey(Me.Handle, 13)
        Call UnregisterHotKey(Me.Handle, 14)
        Call UnregisterHotKey(Me.Handle, 15)
        Call UnregisterHotKey(Me.Handle, 16)
    End Sub

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

        If m.Msg = WM_HOTKEY Then
            Dim id As IntPtr = m.WParam
            Select Case (id.ToString)
                Case "6"
                    If Op = 0 Then
                        Me.Show()
                        Me.TopMost = True
                        Op = 1
                    Else
                        Me.Hide()
                        Me.TopMost = False
                        Op = 0
                    End If

                Case "8"

                    If curpos >= 1 And curpos < 5 Then
                        curpos += 1
                    End If

                Case "7"

                    If curpos <= 5 And curpos > 1 Then
                        curpos -= 1
                    End If

                Case "9"

                    If curpos = 1 Then
                        Ammo = 0
                        Label11.Text = "Off"
                        Label11.ForeColor = Color.Red
                    End If
                    If curpos = 2 Then
                        Equi = 0
                        Label12.Text = "Off"
                        Label12.ForeColor = Color.Red
                    End If
                    If curpos = 3 Then
                        Explo = 0
                        Label13.Text = "Off"
                        Label13.ForeColor = Color.Red
                    End If
                    If curpos = 4 Then
                        Heal = 0
                        Label14.Text = "Off"
                        Label14.ForeColor = Color.Red
                    End If
                    If curpos = 5 Then
                        ff = 0
                        Label15.Text = "Off"
                        Label15.ForeColor = Color.Red
                    End If

                Case "10"

                    If curpos = 1 Then
                        Ammo = 1
                        Label11.Text = "On"
                        Label11.ForeColor = Color.Lime
                    End If
                    If curpos = 2 Then
                        Equi = 1
                        Label12.Text = "On"
                        Label12.ForeColor = Color.Lime
                    End If
                    If curpos = 3 Then
                        Explo = 1
                        Label13.Text = "On"
                        Label13.ForeColor = Color.Lime
                    End If
                    If curpos = 4 Then
                        Heal = 1
                        Label14.Text = "On"
                        Label14.ForeColor = Color.Lime
                    End If
                    If curpos = 5 Then
                        ff = 1
                        Label15.Text = "On"
                        Label15.ForeColor = Color.Lime
                    End If

                Case "11"

                    Me.Location = Me.Location - New Point(0, 10)

                Case "12"

                    Me.Location = Me.Location + New Point(0, 10)

                Case "13"

                    Me.Location = Me.Location - New Point(10, 0)

                Case "14"

                    Me.Location = Me.Location + New Point(10, 0)

                Case "15"

                    Form2.Close()
                    Me.Close()

                Case "16"

                    If ff = 0 Then
                        ff = 1
                        Label15.Text = "On"
                        Label15.ForeColor = Color.Lime
                    Else
                        ff = 0
                        Label15.Text = "Off"
                        Label15.ForeColor = Color.Red
                    End If

            End Select
        End If
        MyBase.WndProc(m)
    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        Label10.Text = Now
    End Sub

    Private Sub Timer3_Tick(sender As System.Object, e As System.EventArgs) Handles Timer3.Tick
        Select Case curpos
            Case "1"
                l1.ForeColor = Color.Green
                l2.ForeColor = Color.MediumBlue
                l3.ForeColor = Color.MediumBlue
                l4.ForeColor = Color.MediumBlue
                l5.ForeColor = Color.MediumBlue
            Case "2"
                l2.ForeColor = Color.Green
                l1.ForeColor = Color.MediumBlue
                l3.ForeColor = Color.MediumBlue
                l4.ForeColor = Color.MediumBlue
                l5.ForeColor = Color.MediumBlue
            Case "3"
                l3.ForeColor = Color.Green
                l1.ForeColor = Color.MediumBlue
                l2.ForeColor = Color.MediumBlue
                l4.ForeColor = Color.MediumBlue
                l5.ForeColor = Color.MediumBlue
            Case "4"
                l4.ForeColor = Color.Green
                l1.ForeColor = Color.MediumBlue
                l3.ForeColor = Color.MediumBlue
                l2.ForeColor = Color.MediumBlue
                l5.ForeColor = Color.MediumBlue
            Case "5"
                l5.ForeColor = Color.Green
                l1.ForeColor = Color.MediumBlue
                l3.ForeColor = Color.MediumBlue
                l4.ForeColor = Color.MediumBlue
                l2.ForeColor = Color.MediumBlue
        End Select
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Ammo = 1 Then
            W4Bytes(&H12A9898, 999)
            W4Bytes(&H12A9910, 999)
            W4Bytes(&H12A9934, 999)
            W4Bytes(&H12A98B0, 999)
            W4Bytes(&H12A98A0, 999)
            W4Bytes(&H12A991C, 999)
        End If
        If Explo = 1 Then
            W4Bytes(&H12A991C, 999)
            W4Bytes(&H12A9928, 4)
        End If
        If Equi = 1 Then
            W4Bytes(&H12A9940, 999)
            W4Bytes(&H12A994C, 999)
        End If
        If Heal = 1 Then
            W4Bytes(&H10BF428, 999999)
        End If
        If ff = 1 Then
            ''My.Computer.Keyboard.SendKeys("j") you only need to bind a key to "j" in the config
        End If
    End Sub

    Private Sub Timer4_Tick(sender As System.Object, e As System.EventArgs) Handles Timer4.Tick
        service = GetObject("winmgmts:")
        For Each Process In service.InstancesOf("Win32_Process")
            If Process.Name = "iw5sp.exe" Then
                Me.Show()
                Me.TopMost = True
                Act()
                Timer4.Stop()
            End If
        Next
    End Sub


    Public Sub Act()
        Call RegisterHotKey(Me.Handle, 16, 0&, Keys.F1)
        Call RegisterHotKey(Me.Handle, 6, 0&, Keys.Insert)
        Call RegisterHotKey(Me.Handle, 7, 0&, Keys.Up)
        Call RegisterHotKey(Me.Handle, 8, 0&, Keys.Down)
        Call RegisterHotKey(Me.Handle, 9, 0&, Keys.Left)
        Call RegisterHotKey(Me.Handle, 10, 0&, Keys.Right)
    End Sub

    Public Sub hd()
        Me.Hide()
    End Sub
End Class

If someone wants to take it as base i dont mind you just need to update the adresses.

Thanks Barata...

OMA Make mw3 modloader
VB Troll
(01-20-2012, 17:11)iAegle Wrote: [ -> ]VB Troll

OMA will forgive you in heaven (or no Troll )

Thanks Barata...
(01-20-2012, 17:13)barata Wrote: [ -> ]
(01-20-2012, 17:11)iAegle Wrote: [ -> ]VB Troll

OMA will forgive you in heaven (or no Troll )

Thanks Barata...

OMA forgives me, but not you coz u posted something made in VB Troll Try to remake it in C# and post it again with the right addresses?
(01-20-2012, 17:16)iAegle Wrote: [ -> ]
(01-20-2012, 17:13)barata Wrote: [ -> ]
(01-20-2012, 17:11)iAegle Wrote: [ -> ]VB Troll

OMA will forgive you in heaven (or no Troll )

Thanks Barata...

OMA forgives me, but not you coz u posted something made in VB Troll Try to remake it in C# and post it again with the right addresses?

[Image: challenge-accepted.png]

BTW: Fast answer Troll

Thanks Barata...
lol'd at this
ingame trainer xD
this is just a trainer that runs in front of everything but when you have fullscreen it doesn't work...

so nothing special
(01-20-2012, 18:49)lolbie Wrote: [ -> ]lol'd at this
ingame trainer xD
this is just a trainer that runs in front of everything but when you have fullscreen it doesn't work...

so nothing special

Soo what, he is contributing to the community by posting source code, if you have nothing good to say don't say anything at all.