Thread Rating:
  • 1 Vote(s) - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Release Mw3 VB Ingame Trainer Source Code(outdated adresses)
#1
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...

Don't worry if things aren't the way you planned, in the end everything will solve itself...
Reply

#2
OMA Make mw3 modloader
Reply

#3
VB Troll
(08-10-2011, 12:58)Pozzuh Wrote:
Se7en Wrote:Stealed, from cod4 mod ...
look who's talking

[Release] Old School Mod v2.2
[Release] Scroll menu

Reply

#4
(01-20-2012, 17:11)iAegle Wrote: VB Troll

OMA will forgive you in heaven (or no Troll )

Thanks Barata...
Don't worry if things aren't the way you planned, in the end everything will solve itself...
Reply

#5
(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?
(08-10-2011, 12:58)Pozzuh Wrote:
Se7en Wrote:Stealed, from cod4 mod ...
look who's talking

[Release] Old School Mod v2.2
[Release] Scroll menu

Reply

#6
(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...
Don't worry if things aren't the way you planned, in the end everything will solve itself...
Reply

#7
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
Reply

#8
(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.
Reply



Possibly Related Threads…
Thread Author Replies Views Last Post
  [Release] [SOURCE] Random Weapons. [HARD] Tony. 1 4,080 11-08-2013, 11:11
Last Post: Nekochan
  Help source random weapons [HARD] Tony. 4 4,654 11-08-2013, 05:25
Last Post: [HARD] Tony.
  [Request] Health and Points on hud source robinvm 7 5,536 10-27-2013, 08:23
Last Post: robinvm
  Help Code color crosshairs koren30 3 3,977 10-02-2013, 19:26
Last Post: koren30
  [Release] [SOURCE] DOOR V2.0 [HARD] Tony. 5 5,293 09-26-2013, 14:01
Last Post: Nekochan
  Help Playing sounds ingame? Some 2 3,356 09-10-2013, 10:42
Last Post: Yamato
  Help need help?how to make plugins code hXnarutoXone 12 8,464 09-01-2013, 18:30
Last Post: Bandarigoda123
  Help Need Help with C# code tubwux 2 3,289 08-27-2013, 18:18
Last Post: tubwux
  Does somebody got adresses? freedemosforyou 8 3,524 08-24-2013, 10:44
Last Post: d0h!
  [Request] Compile this code please dozsa0 4 4,098 08-10-2013, 21:02
Last Post: Nukem

Forum Jump:


Users browsing this thread:
1 Guest(s)

Forum Powered By MyBB, Theme by © 2002-2024 Melroy van den Berg.