[Release] Mw3 VB Ingame Trainer Source Code(outdated adresses)

[barata]

Hello guys this is a very old project i made in VB(no comments) Mw3 INGAME trainer.

Lets Start:



and



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

[Yamato]

Make mw3 modloader

[iAegle]

VB

[barata]

VB

will forgive you in heaven (or no )

Thanks Barata...

[iAegle]

VB

will forgive you in heaven (or no )

Thanks Barata...

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

[barata]

VB

will forgive you in heaven (or no )

Thanks Barata...

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

BTW: Fast answer

Thanks Barata...

[lolbie]

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

[aosma8]

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.