Membuat Cheat Game Plants Vs Zombie Dengan Vb6

Ok gan untuk tutorial Ini Gue akan Ngeshare Cara membuat Cheat Plants Vs Zombie
Bagi para Gamer yang memiliki game Plants vs Zombie Pasti Ingin memiliki cheat  Game Ini
Sebenarnya Nggak perlu repot-repot Untuk Mendownload Nya Cukup bermodalkan Microsoft Vb6
Kalian bisa Membuat Cheat INi Dengan Mudah
Cheat Ini sangat mudah digunakan Kalian hanya menjalankan aplikasi ini dan Tunggu Proses Scaning Nya selesai
Nah Ini Dia TUtor nya
TUTORIAL :
1.BUKA APLIKASI VISUAL BASIC 0.6 KALO BELUM ADA BISA DOWNLOAD DI SINI
2.PILIH STANDARD EXE

3.BUAT 5 LABEL , 1 TEXT BOX , 5 TIMER SUSUN SEPERTI BERIKUT

4.BERI NAME LABEL SEPERTI BERIKUT =

  LABEL 1 =F1

  LABEL 2 =F2

  LABEL 3 =F3

  LABEL 4 =F4

  LABEL 5 =F5

5.BERI INTERVAL TIMER NYA SEBAGAI BERIKUT =

  TIMER 1 = 1

  TIMER 2 = 1

  TIMER 3 = 1

  TIMER 4 = 500

  TIMER 5 = 500

6.DAN SAAT NYA PENGODINGAN

   MASUKAN CODE BERIKUT CARA NYA KLIK KANAN PADA FORM DAN PILIH              VIEW CODE 

   DAN MASUKAN KODE BERIKUT

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 'Rusman Tobyakta Siregar

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

'Rusman Tobyakta Siregar

Private Sub Form_Load()

'salam dulu...hehehehe

MsgBox "Create By: Rusman Tobyakta Siregar ", vbInformation, "Cheat Plants Vs Zombies"

MsgBox "Cheaters", vbExclamation, "Warning!"

MsgBox "Group By:Copyright ©2016 R.T.S APPS", vbInformation, "PRODUKSI"

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

'Rusman Tobyakta Siregar

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

Beep

End If

If GetAsyncKeyState(116) Then 'fast kill neh

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

'Rusman Tobyakta Siregar

Private Sub Timer4_Timer()

'hiasan AJA

f1.ForeColor = vbRed

f2.ForeColor = vbRed

F3.ForeColor = vbRed

f4.ForeColor = vbRed

f5.ForeColor = vbRed

End Sub

Private Sub Timer5_Timer()

'hiasan juga

f1.ForeColor = vbGreen

f2.ForeColor = vbGreen

F3.ForeColor = vbGreen

f4.ForeColor = vbGreen

f5.ForeColor = vbGreen

'Rusman Tobyakta Siregar

End Sub

7.JALAN KAN APLIKASI DENGAN MENEKAN TOMBOL F5

8.SELESAI

Mudah kan Cuma perlu Copas Aja 
Kalo loh mau lihat Tutor LAin Silahkan Kunjungi Blog Gue lagi 
Disini Gudangnya Ilmu Teknologi 
Dan Jangan lupa Kalau mau bertanya silahkan Komentar Dibawah