Simple Hack made by vb6.0

[_Anonymous_]

This is simple hack feature read and right process memory


form1:

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

&H7C5104E8

and quantity of 1
where we change the value to 999


module1:

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

source code.rar - Jotti's malware scan
https://www.virustotal.com/en/file/2...is/1373044123/

[[MPGH]Flengo]

VB6 Portable removed. Not really needed.

/Approved

[dino42]

What kind of hack is it when you compile it?

[edi689]

Can someone teach me how to use these kind of hacks plese?

[_Anonymous_]

Can someone teach me how to use these kind of hacks plese?

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

[Dare*]

This is a noob question, but how do you compile it? Is there some program i need?

[Riddick]

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++

Link here to MS sites: Download | Microsoft Visual Studio 2012

Google "Cheat Engine 6.3" to find it........

[Dare*]

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++

Link here to MS sites [Link]

Google "Cheat Engine 6.3" to find it........

Already got MSV Ultimate, but don't have Cheat Engine. Thank you!

[dino42]

Thanks! +Rep

[miauw1991]

i dont know how to use this in cheat engine. i see form1 ( i see where it is) but then with the codes under it i dont understand what to do