01-20-2012, 15:16
Hello guys this is a very old project i made in VB(no comments) Mw3 INGAME trainer.
Lets Start:
![[Image: mw3v12.png]](http://img441.imageshack.us/img441/7343/mw3v12.png)
and
![[Image: mw3v122.png]](http://img534.imageshack.us/img534/4241/mw3v122.png)
Its how it looks...
Now the source code:
If someone wants to take it as base i dont mind you just need to update the adresses.
Thanks Barata...
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 ClassIf 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...
Make mw3 modloader
![[Image: challenge-accepted.png]](http://oquejesusfaria.files.wordpress.com/2011/11/challenge-accepted.png)
