How to create killstreak hack?

[chezter65]

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

[D3t0N4t3]

I don't know much about Coding @ MW3, but the easiest way can be setting it up to = 1 | += 1

[Jorndel]

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...)

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

[chezter65]

thnx Jorndel I will investigate

I can use this is vb ?

[Jorndel]

thnx Jorndel I will investigate

I can use this is vb ?

'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:

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

[chezter65]

very nice