i think you need new code for that! i don't know if the new and old code are same today
Hello im really new at Programming hacks ...
Im programming in Visual Basic and im using this Code:
I used the memory Class of Jorndel!Private Ammo As Integer() = {1023}
Private NAmmo As Integer() = {20}
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Timer1.Enabled = True
MW3.Hack("iw5sp")
MW3.SetInt(&H138213C, Ammo(ComboBox1.SelectedIndex))
MW3.Hack("iw5sp")
MW3.SetInt(&H1382118, Ammo(ComboBox1.SelectedIndex))
MW3.Hack("iw5sp")
MW3.SetInt(&H13820A0, Ammo(ComboBox1.SelectedIndex))
MW3.Hack("iw5sp")
MW3.SetInt(&H13820B8, Ammo(ComboBox1.SelectedIndex))
Else
Timer1.Enabled = False
MW3.Hack("iw5sp")
MW3.SetInt(&H138213C, NAmmo(ComboBox1.SelectedIndex))
MW3.Hack("iw5sp")
MW3.SetInt(&H1382118, NAmmo(ComboBox1.SelectedIndex))
MW3.Hack("iw5sp")
MW3.SetInt(&H13820A0, NAmmo(ComboBox1.SelectedIndex))
MW3.Hack("iw5sp")
MW3.SetInt(&H13820B8, NAmmo(ComboBox1.SelectedIndex))
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Call MW3.SetInt(&H138213C, Ammo(ComboBox1.SelectedIndex))
Call MW3.SetInt(&H1382118, Ammo(ComboBox1.SelectedIndex))
Call MW3.SetInt(&H13820A0, Ammo(ComboBox1.SelectedIndex))
Call MW3.SetInt(&H13820B8, Ammo(ComboBox1.SelectedIndex))
End Sub
This is i think really bad... because with ComboBoxes is only good for rank/Prestige hack.
But i dont know any other way... i want only freeze the Value of the Addresse not Change it....
Can anyone Help me??plss
You use old Jorndel's memory class.
I recommend you to use his new class:
If you want to freeze the value of address, you will have to use this,new,class because old one doesn't have Read functions.Code:#Region "Basic Stuff" <DllImport("kernel32.dll")> _ Private Shared Function ReadProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <[In](), Out()> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32 End Function <DllImport("kernel32.dll")> _ Private Shared Function WriteProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, <[In](), Out()> buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32 End Function <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _ Public Shared Function GetKeyState(ByVal virtualKeyCode As Keys) As Short End Function Private pHandel As IntPtr Public Function Process_Handle(ProcessName As String) As Boolean Try Dim ProcList As Process() = Process.GetProcessesByName(ProcessName) If ProcList.Length = 0 Then Return False Else pHandel = ProcList(0).Handle Return True End If Catch ex As Exception Console.Beep() Console.WriteLine("Process_Handle - " + ex.Message) Return False End Try End Function Private Function Read(Address As Integer, Length As Integer) As Byte() Dim Buffer As Byte() = New Byte(Length - 1) {} Dim Zero As IntPtr = IntPtr.Zero ReadProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero) Return Buffer End Function Private Sub Write(Address As Integer, Value As Integer) Dim Buffer As Byte() = BitConverter.GetBytes(Value) Dim Zero As IntPtr = IntPtr.Zero WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero) End Sub #End Region 'This is the part you want to edit #Region "Write Functions (Integer & String)" Public Sub WriteInteger(Address As Integer, Value As Integer) Write(Address, Value) End Sub Public Sub WriteString(Address As Integer, Text As String) Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text) Dim Zero As IntPtr = IntPtr.Zero WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero) End Sub Public Sub WriteBytes(Address As Integer, Bytes As Byte()) Dim Zero As IntPtr = IntPtr.Zero WriteProcessMemory(pHandel, New IntPtr(Address), Bytes, CUInt(Bytes.Length), Zero) End Sub Public Sub WriteNOP(Address As Integer) Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90} Dim Zero As IntPtr = IntPtr.Zero WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero) End Sub #End Region #Region "Read Functions (Integer & String)" Public Function ReadInteger(Address As Integer, Optional Length As Integer = 4) As Integer Return BitConverter.ToInt32(Read(Address, Length), 0) End Function Public Function ReadString(Address As Integer, Optional Length As Integer = 4) As String Return New ASCIIEncoding().GetString(Read(Address, Length)) End Function Public Function ReadBytes(Address As Integer, Length As Integer) As Byte() Return Read(Address, Length) End Function #End Region #Region "Extra" Public Function HotKey(Key As Keys) As Boolean Return Convert.ToBoolean(GetKeyState(Key)) End Function Private Check_res As Boolean = True Public Function Check_Value(Value As String) As Integer For Each a As Char In Value If Char.IsNumber(a, 0) Then Check_res = True Else Check_res = False Return 0 Exit For End If Next Return Convert.ToInt32(Value) End Function #End Region
Code:Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Call MW3.SetInt(&H138213C, ReadInteger(&H138213C)) Call MW3.SetInt(&H1382118, ReadInteger(&H1382118)) Call MW3.SetInt(&H13820A0, ReadInteger(&H13820A0)) Call MW3.SetInt(&H13820B8, ReadInteger(&H13820B8)) End Sub
Last edited by Lovroman; 06-14-2013 at 11:35 PM.
Ohhh
THANKS @Lovroman and COD3RIN! You really helpt me!!
Hey @Lovroman i use the code you said me but im so a big noob that i dont know why this happens...:
Can you pls help me??
Can you please upload image on img.ur and put link in [img] tags([img]---link---[/img])?
Thanks!
@lappendance
Last edited by Lovroman; 06-15-2013 at 03:54 AM.
Last edited by lappendance; 06-15-2013 at 03:59 AM.
Sorry for late answer, I had to remake and test code(I'm not very good in VB.NET so I'm slow )...
I used both classes in this code I posted yesterady ...Here is new code that uses only new class:
Form1.vb:
Class1.vb:Code:Public Class Form1 Dim MW3 As New Class1 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If MW3.Process_Handle("iw5sp") Then MW3.WriteInteger(&H138213C, MW3.ReadInteger(&H138213C)) MW3.WriteInteger(&H1382118, MW3.ReadInteger(&H1382118)) MW3.WriteInteger(&H13820A0, MW3.ReadInteger(&H13820A0)) MW3.WriteInteger(&H13820B8, MW3.ReadInteger(&H13820B8)) End If End Sub End Class
Code:Imports System.Text Imports System.Runtime.InteropServices Public Class Class1 #Region "Basic Stuff" <DllImport("kernel32.dll")> _ Private Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32 End Function <DllImport("kernel32.dll")> _ Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32 End Function <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _ Public Shared Function GetKeyState(ByVal virtualKeyCode As Keys) As Short End Function Private pHandel As IntPtr Public Function Process_Handle(ByVal ProcessName As String) As Boolean Try Dim ProcList As Process() = Process.GetProcessesByName(ProcessName) If ProcList.Length = 0 Then Return False Else pHandel = ProcList(0).Handle Return True End If Catch ex As Exception Console.Beep() Console.WriteLine("Process_Handle - " + ex.Message) Return False End Try End Function Private Function Read(ByVal Address As Integer, ByVal Length As Integer) As Byte() Dim Buffer As Byte() = New Byte(Length - 1) {} Dim Zero As IntPtr = IntPtr.Zero ReadProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero) Return Buffer End Function Private Sub Write(ByVal Address As Integer, ByVal Value As Integer) Dim Buffer As Byte() = BitConverter.GetBytes(Value) Dim Zero As IntPtr = IntPtr.Zero WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero) End Sub #End Region 'This is the part you want to edit #Region "Write Functions (Integer & String)" Public Sub WriteInteger(ByVal Address As Integer, ByVal Value As Integer) Write(Address, Value) End Sub Public Sub WriteString(ByVal Address As Integer, ByVal Text As String) Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text) Dim Zero As IntPtr = IntPtr.Zero WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero) End Sub Public Sub WriteBytes(ByVal Address As Integer, ByVal Bytes As Byte()) Dim Zero As IntPtr = IntPtr.Zero WriteProcessMemory(pHandel, New IntPtr(Address), Bytes, CUInt(Bytes.Length), Zero) End Sub Public Sub WriteNOP(ByVal Address As Integer) Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90} Dim Zero As IntPtr = IntPtr.Zero WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero) End Sub #End Region #Region "Read Functions (Integer & String)" Public Function ReadInteger(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As Integer Return BitConverter.ToInt32(Read(Address, Length), 0) End Function Public Function ReadString(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As String Return New ASCIIEncoding().GetString(Read(Address, Length)) End Function Public Function ReadBytes(ByVal Address As Integer, ByVal Length As Integer) As Byte() Return Read(Address, Length) End Function #End Region #Region "Extra" Public Function HotKey(ByVal Key As Keys) As Boolean Return Convert.ToBoolean(GetKeyState(Key)) End Function Private Check_res As Boolean = True Public Function Check_Value(ByVal Value As String) As Integer For Each a As Char In Value If Char.IsNumber(a, 0) Then Check_res = True Else Check_res = False Return 0 Exit For End If Next Return Convert.ToInt32(Value) End Function #End Region End Class
@lappendance
TheMaskedOne (06-16-2013)
Yea works but the code means when i uncheck the checkbox the value is normal and decrease... but this dont work...and it work not really because it dont freeze the ammo??
1)Not all addresses work
2)This is better way(two timers):
Or:Code:Public Class Form1 Dim MW3 As New Class1 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If MW3.Process_Handle("iw5sp") Then MW3.WriteInteger(&H1382118, 15) MW3.WriteInteger(&H13820A0, 15) End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If CheckBox1.Checked = True Then Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub End Class
Second one will do what you want(I hope xD).Code:Public Class Form1 Dim MW3 As New Class1 Dim Ammo1 As Integer Dim Ammo2 As Integer Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If MW3.Process_Handle("iw5sp") Then Ammo1 = MW3.ReadInteger(&H1382118) Ammo2 = MW3.ReadInteger(&H13820A0) End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If MW3.Process_Handle("iw5sp") Then MW3.WriteInteger(&H1382118, Ammo1) MW3.WriteInteger(&H13820A0, Ammo2) End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick If CheckBox1.Checked = True Then Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub End Class
@lappendance
Last edited by Lovroman; 06-15-2013 at 05:39 AM.
ohh yea thank you a lot!!
---------- Post added at 06:07 AM ---------- Previous post was at 06:04 AM ----------
Now i have another question.... i programm a little solo hack... I increase Rapid Fire(Slighe of hands),no Spread(Stady Aim), Insta ADS(Quickdraw) BUT you only can have 1 perk or not?? If i have this perks it works perfektly but without not...
Oh no:P thats to complicatet for me i know that there is a way to find out the firespeed and make a rapid fire hack without the perkstrategy..
But how can i find it?? Shooting and exact value or Float??