[ITEM]
[/ITEM]
Cinema Paradiso Torrent Results: Cinema Paradiso 00h 02min minutes - Movie - 1990 A boy who grew up in a native Sicilian Village returns home as a famous director after receiving news about the death of an old friend. Told in a flashback, Salvatore reminiscences about his childhood and his relationship with Alfredo, a projectionist at Cinema. Torrent nuovo cinema paradiso trumpet.
Plant vs zombie 2 Sudah berhasil di instal dan siap dimainkan. Silahkan Download game plants vs zombie 2 full version untuk laptop terbaru paling seru tersebut. Terima kasih sudah setia membaca artikel kami, tetap tunggu update artikel berikutnya. Semoga bermanfaat.
tutorial ini tentang cara membuat trainer Game 'PlantsVsZombies'
ok langsung saja :)
bahan'
- vb 6
- Source 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
ok langsung saja :)
bahan'
- vb 6
- Source 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: Academy Programers Newbie I', vbInformation, 'Cheat Plants Vs Zombies'
MsgBox 'Full Hack Menu By Ripto Ganteng B ', 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
- Author: admin
- Category: Category