This is simple hack feature read and right process memory
form1:
Code:
Private Sub Command1_Click()
If ReadALong("Alliance of Valiant Arms", &H7C5104E8, 1) Then
Call WriteALong("Alliance of Valiant Arms", &H7C5104E8, 999)
MsgBox "Hack successfully loaded!", vbInformation
End If
End Sub
where the address
Code:
&H7C5104E8
and quantity of 1
where we change the value to 999
module1:
Code:
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal SomeValueIsStoredHere As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Function WriteALong(TheGame As String, TheAddress As Long, ThisIsTheValue As Long)
Dim SomeValueIsStoredHere As Long
Dim SomeValueIsStoredHereToo As Long
Dim SomeValue As Long
SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
If (SomeValue = 0) Then
Exit Function
End If
WriteProcessMemory SomeValue, TheAddress, ThisIsTheValue, 4, 0&
CloseHandle hProcess
End Function
Public Function ReadALong(TheGame As String, TheAddress As Long, TheValue As Long)
Dim SomeValueIsStoredHere As Long
Dim SomeValueIsStoredHereToo As Long
Dim SomeValue As Long
SomeValueIsStoredHere = FindWindow(vbNullString, TheGame)
GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo
SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
If (SomeValue = 0) Then
Exit Function
End If
ReadProcessMem SomeValue, TheAddress, TheValue, 4, 0&
CloseHandle hProcess
End Function
Note: if you compile this antivirus detects as it is TR/ATRAPS.GEN
Just sharing and don't Hate pls
source code and vb6.0 portable included
credits to microsoft
Can someone teach me how to use these kind of hacks plese?
Originally Posted by edi689
Can someone teach me how to use these kind of hacks plese?
Originally Posted by dino42
What kind of hack is it when you compile it?
if you modify it or you know how to find base memory and offset using CE then you can create:
UAV hack
SuperWeapons
Euro 3BOX
name changer and more with this can be posible
but it's only work in 64bit while 32bit need to be inject
This is a noob question, but how do you compile it? Is there some program i need?
Originally Posted by Dare*
This is a noob question, but how do you compile it? Is there some program i need?
Learn to use Cheat Engine in AVA (needs bypass) and then download Visual Basic and VisualC++, which allows you to compile the .exe or dll in C++
Originally Posted by edi689
