Tutorial membuat trainer Plant vs Zombie

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"
ok langsung saja :)
bahan"
- vb 6
- codes
ok langsung bikin aja :)
-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
oke, klik 2 kali di trainer , copy ni code


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: Destroy Team", vbInformation, "Cheat Plants Vs Zombies"
MsgBox "no kakean cangkem", vbExclamation, "join now in destroy hack"
MsgBox "no respon", vbInformation, "I dont know"
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 = vbBlue
F2.ForeColor = vbBlue
F3.ForeColor = vbBlue
F4.ForeColor = vbBlue
F5.ForeColor = vbBlue
End Sub
Yang berwarna biru edit sesuka kalian, dan pilih generate ????.exe
Boleh copas asalkan kalian izin dulu ke ADMIN kalo kg blog lo, mengalami <lemot ato down>