Results 1 to 6 of 6
  1. #1
    chezter65's Avatar
    Join Date
    Feb 2010
    Gender
    male
    Location
    Always in my Chair
    Posts
    327
    Reputation
    16
    Thanks
    3,996
    My Mood
    Amazed

    Question How to create killstreak hack?

    Tutorial Format: Video With Voice, text, images.


    Tutorial Info: I want to learn how to create a hack that counts all my kills.
    Once I'm dead it should reset to 0. I have VB 2010 ultimate. I have also the offset for kill and dead.

    01DAC1FC - K
    00BDFF30 - D

    Can somebody help?

    Thnx

  2. #2
    D3t0N4t3's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Location
    Behind you.
    Posts
    451
    Reputation
    40
    Thanks
    125
    My Mood
    Amused
    I don't know much about Coding @ MW3, but the easiest way can be setting it up to = 1 | += 1
    "Give every day the chance to become the best of your life." - Mark Twain




  3. #3
    Jorndel's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    Norway
    Posts
    8,681
    Reputation
    905
    Thanks
    18,777
    My Mood
    Angelic
    Quote Originally Posted by chezter65 View Post
    Tutorial Format: Video With Voice, text, images.


    Tutorial Info: I want to learn how to create a hack that counts all my kills.
    Once I'm dead it should reset to 0. I have VB 2010 ultimate. I have also the offset for kill and dead.

    01DAC1FC - K
    00BDFF30 - D

    Can somebody help?

    Thnx
    Fast tutorial for you:

    if *something* = *something* then *do something* else *do something else*

    Example usage: (I might have done something wrong, since me and maths...)
    Code:
    Dim Kills As Integer = ReadMeM.Integer(&H01DAC1FC)
    Dim Deaths As Integer = ReadMeM.Integer(&H00BDFF30)
    Dim K As Integer = 0
    Dim D As Integer = 0
    Dim KS As Integer = 0
    
    If Kills != K Then 
    KS += 1
    K = Kills
    End If
    
    If Deaths != D Then
    KS = 0
    D = Deaths
    End If
    /Moved
    -To Coding Section
    Last edited by Jorndel; 04-30-2012 at 11:07 AM.

     
    Contributor 01.27.2012 - N/A
    Donator 07-17-2012 - Current
    Editor/Manager 12-16-12 - N/A
    Minion 01-10-2013 - 07.17.13
    Former Staff 09-20-2012 - 01-10-2013 / 07-17-2013 - Current
    Cocksucker 20-04-2013 - N/A

  4. The Following 2 Users Say Thank You to Jorndel For This Useful Post:

    chezter65 (04-30-2012),Nexrus (05-04-2012)

  5. #4
    chezter65's Avatar
    Join Date
    Feb 2010
    Gender
    male
    Location
    Always in my Chair
    Posts
    327
    Reputation
    16
    Thanks
    3,996
    My Mood
    Amazed
    thnx Jorndel I will investigate

    I can use this is vb ?

  6. #5
    Jorndel's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    Norway
    Posts
    8,681
    Reputation
    905
    Thanks
    18,777
    My Mood
    Angelic
    Quote Originally Posted by chezter65 View Post
    thnx Jorndel I will investigate

    I can use this is vb ?
    Code:
    'API declarations
        Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Int32, ByVal bInheritHandle As Int32, ByVal dwProcessId As Int32) As Int32
        Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
        Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
        Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Int32) As Int32
        'Constants
        Public Const PROCESS_VM_READ = &H10
        Public Const PROCESS_VM_WRITE = (&H20)
        Public Const PROCESS_VM_OPERATION = (&H8)
        Public Const PROCESS_QUERY_INFORMATION = (&H400)
        Public Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION
        Public Const PROCESS_ALL_ACCESS = &H1F0FFF
    
    
        Public Function GetApp() As Long
            Dim TibiaWindows As Process() = Process.GetProcessesByName("*Application Name*") '<<<--- Change this to the happ you want.
            If TibiaWindows.Length = 0 Then
                Return 0
                Exit Function
            End If
            Return TibiaWindows(0).Id
        End Function
    
       Private Function Memory_ReadLong(ByVal Address As Int32) As Long
            Dim vBuffer As Long
            Dim processHandle As IntPtr = OpenProcess(PROCESS_VM_READ, 0, GetApp)
            ReadProcessMemory(processHandle, Address, vBuffer, 4, 0)
            Return vBuffer
            CloseHandle(processHandle)
        End Function
    
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            GetApp() '<<<--- Use this to "read" the application
            MessageBox.Show(Memory_ReadLong(&H0)) '<<<--- This to return the value to you. (You add the offset/address there
        End Sub
    I didn't make this, I just edited it a little to your usage.

    Credit to: Melody - From somewhere else

    Example:

    Code:
    GetApp()
    Dim Kills As Integer = Memory_ReadLong(&H01DAC1FC)
    Dim Deaths As Integer = Memory_ReadLong(&H00BDFF30)
    Dim K As Integer = 0
    Dim D As Integer = 0
    Dim KS As Integer = 0
    
    If Kills != K Then 
    KS += 1
    K = Kills
    End If
    
    If Deaths != D Then
    KS = 0
    D = Deaths
    End If
    And add it in a timer

     
    Contributor 01.27.2012 - N/A
    Donator 07-17-2012 - Current
    Editor/Manager 12-16-12 - N/A
    Minion 01-10-2013 - 07.17.13
    Former Staff 09-20-2012 - 01-10-2013 / 07-17-2013 - Current
    Cocksucker 20-04-2013 - N/A

  7. The Following User Says Thank You to Jorndel For This Useful Post:

    Nexrus (05-04-2012)

  8. #6
    chezter65's Avatar
    Join Date
    Feb 2010
    Gender
    male
    Location
    Always in my Chair
    Posts
    327
    Reputation
    16
    Thanks
    3,996
    My Mood
    Amazed
    very nice

Similar Threads

  1. How To Create A Hack Loader Help!!
    By AZN_Noob in forum Combat Arms Coding Help & Discussion
    Replies: 15
    Last Post: 09-03-2011, 08:44 AM
  2. [Tutorial] How to create simple hack (for noobies)
    By [Hectic] in forum CrossFire Hack Coding / Programming / Source Code
    Replies: 44
    Last Post: 07-27-2011, 12:26 PM
  3. Crossfire how to create a hack?
    By maggicc in forum CrossFire Help
    Replies: 6
    Last Post: 07-20-2011, 08:03 AM
  4. How To Create D3D HACK [PB] ??
    By marvelt in forum C++/C Programming
    Replies: 7
    Last Post: 02-24-2011, 07:07 PM
  5. how to create a hack for combat arms eu?
    By d4n13l in forum Combat Arms Help
    Replies: 2
    Last Post: 05-12-2010, 05:59 AM