Page 1 of 2 12 LastLast
Results 1 to 15 of 17
  1. #1
    lappendance's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    3
    My Mood
    Bitchy

    Freeze Addresse other way??

    Hello im really new at Programming hacks ...
    Im programming in Visual Basic and im using this Code:

    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
    I used the memory Class of Jorndel!
    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

  2. #2
    COD3RIN's Avatar
    Join Date
    May 2013
    Gender
    male
    Location
    Posts
    4,941
    Reputation
    315
    Thanks
    22,153
    My Mood
    Busy
    i think you need new code for that! i don't know if the new and old code are same today


    Love you.
    ~Kenshit13
    Quote Originally Posted by cheaterman26 View Post
    COD3RIN PUT A BACKDOOR ON HIS OWN CHEAT HE HACK MY COMPUTER AND MY STEAM, DON'T TRUST THIS GUYS !

  3. #3
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,710
    My Mood
    Cheerful
    Quote Originally Posted by lappendance View Post
    Hello im really new at Programming hacks ...
    Im programming in Visual Basic and im using this Code:



    I used the memory Class of Jorndel!
    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:

    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
    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:
    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-15-2013 at 12:35 AM.

  4. #4
    lappendance's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    3
    My Mood
    Bitchy
    Ohhh
    THANKS @Lovroman and COD3RIN! You really helpt me!!

  5. #5
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,710
    My Mood
    Cheerful
    Quote Originally Posted by lappendance View Post
    Ohhh
    THANKS @Lovroman and COD3RIN! You really helpt me!!

    No problem!
    If you need anything else, send me PM or post here .

  6. #6
    lappendance's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    3
    My Mood
    Bitchy
    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??
    Attached Thumbnails Attached Thumbnails
    Errors.JPG  


  7. #7
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,710
    My Mood
    Cheerful
    Quote Originally Posted by lappendance View Post
    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 04:54 AM.

  8. #8
    lappendance's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    3
    My Mood
    Bitchy
    Last edited by lappendance; 06-15-2013 at 04:59 AM.

  9. #9
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,710
    My Mood
    Cheerful
    Quote Originally Posted by lappendance View Post
    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:
    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
    Class1.vb:
    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

  10. The Following User Says Thank You to Lovroman For This Useful Post:

    TheMaskedOne (06-16-2013)

  11. #10
    lappendance's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    3
    My Mood
    Bitchy
    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??

  12. #11
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,710
    My Mood
    Cheerful
    Quote Originally Posted by lappendance View Post
    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):

    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
    Or:
    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
    Second one will do what you want(I hope xD).

    @lappendance
    Last edited by Lovroman; 06-15-2013 at 06:39 AM.

  13. #12
    lappendance's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    3
    My Mood
    Bitchy
    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...

  14. #13
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,710
    My Mood
    Cheerful
    Quote Originally Posted by lappendance View Post
    ohh yea thank you a lot!!

    No problem!
    You can have only one perk, yes.
    If you want to use perks without equping them you have to disable perkchecking..but I'm not sure how.
    Last edited by Lovroman; 06-15-2013 at 07:08 AM.

  15. #14
    lappendance's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    3
    My Mood
    Bitchy
    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??

  16. #15
    Lovroman's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    9,430
    Reputation
    611
    Thanks
    9,710
    My Mood
    Cheerful
    Quote Originally Posted by lappendance View Post
    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??
    Pause while shooting, search for unknown inital value as 4-bytes, stop shooting, search for 0, pause while shooting again and search for increased value.
    Repeat until you get only few addresses. Freeze two of them on 0=>rapid fire, rapid knife & rapid tacticals

Page 1 of 2 12 LastLast

Similar Threads

  1. [Help] freezing addresses
    By fadee in forum Visual Basic Programming
    Replies: 15
    Last Post: 02-01-2010, 05:20 PM
  2. [Help] other way to get V.I.P?
    By o0swaldo0 in forum CrossFire Hacks & Cheats
    Replies: 10
    Last Post: 11-10-2009, 11:16 AM
  3. Freeze Address?
    By solarkingdoms in forum Combat Arms Hacks & Cheats
    Replies: 6
    Last Post: 07-31-2008, 01:46 PM
  4. Freezing Address
    By blipi in forum C++/C Programming
    Replies: 9
    Last Post: 02-05-2008, 09:11 AM