Cara Membuat Cheat Game Dengan Vb6

Nah kali iini artikelnya akan membahas cara membuat cheat dengan vb6. pada tau kan cheat itu apa?
kalau dalam game cheat itu cara bermain curang nah pasti kalian pada bingung "gimana sih caranya buat cheat
itu?" hahaha... tenang aq ajarin deh buat cheat nya langsung aja...
tutorial ini tentang cara membuat trainer Game "PlantsVsZombies"




syarat:
-Tau Semua Komponen dan Properties komponen
-Ketekunan
-Kopi susu (wkwkw..)
- Dan pastinya tau apa itu visual basic6 ?


-Buat 5 buah timer (jangan ubah nama Timer trsbt):
-1 buah textbox untuk kotak status (jangan di ganti namanya)
*untuk intervalnya:
timer1 = 1
timer2 = 1
timer3 = 1
timer4 =500
timer5 =500
*Edit Form menjadi seperti gambar diatas atau sesuai kreasi kalian
*label name :
F1: Sun Hacks = F1
F2 : No Delay = F2
F3: Money Hack = F3
F4: Unlimeted life Plant = F4
F5: Fast kill = F5

sekarang copy kan kode di bawah yang berwarna merah ke code project kalian

_________________________________________________________________________________________

Private Const PROCESS_VM_WRITE = (&H20)
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal _
dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal _
dwProcessId As Long) As Long
Private 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
Private Declare Function CloseHandle Lib "kernel32" (ByVal _
hObject As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal IpClassname As String, ByVal IpWindowName _
As String) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Dim HwnDx As Long
Dim pid As Long
Dim OpenX As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim HackS As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Dim BaseAddr As String
Private Function ReadMemory(Address As Long) As Long 'modul ini berfungsi untuk membaca value memory base address
Dim OpenZ As Long, pid As Long
If HwnDx = 0 Then Exit Function
GetWindowThreadProcessId HwnDx, pid
OpenZ = OpenProcess(&H10, False, pid)
If OpenZ = 0 Then Exit Function
ReadProcessMemory OpenZ, Address, ReadMemory, 4, 0&
Sleep 15 'istirahat
BaseAddr = ReadMemory
CloseHandle OpenZ 'biar gak kebuka trus
End Function
Private Function WriteMMry(Addres As Long, Value As Long)
If HwnDx = 0 Then
MsgBox "Game Tidak Ditemukan!", vbCritical, "Error"
Exit Function
End If
GetWindowThreadProcessId HwnDx, pid
OpenX = OpenProcess(PROCESS_VM_WRITE, False, pid)
If OpenX = 0 Then Exit Function
HackS = WriteProcessMemory(OpenX, Addres, Value, 4, 0&)
Sleep 15 'istirahat
CloseHandle OpenX
End Function

Private Sub Form_Load()
'salam dulu...hehehehe

MsgBox "Create By: Rizky Smp", vbInformation, "Cheat Plants Vs Zombies"
MsgBox "Cheaters Never Dies", vbExclamation, "Warning!"
MsgBox "wkwkwkwk", vbInformation, "Cheat Plants Vs Zombies"
End Sub
Private Sub Timer1_Timer()
'disable Resize
Dim lStyle As Long
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
lStyle = lStyle And Not WS_THICKFRAME
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)
End Sub

Private Sub Timer2_Timer()
'nah, ayo prosess hacking dimulai!!
Dim AddrSun As String
Dim addr As Long
If GetAsyncKeyState(112) Then 'Hack Sun
Call ReadMemory(&H1292AC)
AddrSun = Hex(BaseAddr + &H5560)
Call WriteMMry(("&h" & AddrSun), 9999999)
Beep
End If
If GetAsyncKeyState(113) Then 'No Delay
Call WriteMMry(&H48728C, 2377601)
Beep
End If
If GetAsyncKeyState(114) Then 'Money
ReadMemory &HCF8644
AddrSun = Hex(BaseAddr + &H28)
Call WriteMMry(("&h" & AddrSun), 9999999)
Beep
End If
If GetAsyncKeyState(115) Then 'Infinity health
Call WriteMMry(&H52FCF0, &H90909090) '<<opcodes berbasis value wkwowkwkwo
Beep
End If
If GetAsyncKeyState(116) Then 'fast kill neh wkwowkokw
Call WriteMMry(&H53105E, 13667627)
Call WriteMMry(&H53130F, &H90243C2B)
Call WriteMMry(&H531053, 6949355)
Call WriteMMry(&H530CA1, 14452361)
Beep
End If
End Sub
Private Sub Timer3_Timer()
HwnDx = FindWindow("MainWindow", vbNullString)
If HwnDx = 0 Then Text1.Text = "Cheat No Active"
If HwnDx >= 1 Then Text1.Text = "Cheat Active"
End Sub

Private Sub Timer4_Timer()
'hiasan boss
F1.ForeColor = vbRed
F2.ForeColor = vbRed
F3.ForeColor = vbRed
F4.ForeColor = vbRed
F5.ForeColor = vbRed
End Sub

Private Sub Timer5_Timer()
'hiasan juga boss
F1.ForeColor = vbGreen
F2.ForeColor = vbGreen
F3.ForeColor = vbGreen
F4.ForeColor = vbGreen
F5.ForeColor = vbGreen
End Sub
_________________________________________________________________________________________

kalau sudah compile atau tekan F5 lalu jalankan game plantsvszombies
untuk yang belom paham silahkan download aja projectnya Disini
jika kalian ingin mengerti bagaimana kode2 tersebut dibuat pelajari di artikel saya pelajari disini
NB: Source Code diatas asli buatan saya bukan buatan orang lain! jangan asal copy paste aja lho!