[Tutorial] Buat Trainer Pangya Dengan Visual Basic 6 dan Visual Basic 2005

[FAQ_Master]

Item-item yg d perlukan :
1. Komputer Windows XP
2. Visual Basic 6.0 atau Visual Basic 2005
3. Mouse, Keyboard
4. Teh, Kopi, Keripik, dll

BAGIAN 1
BUILDING TRAINER

1a. Buka VB6 anda lalu pilih standard.exe
1b. Buka VB2005 anda klik file lalu new project/solution pilih VisualBasic lalu Windows application

2. Klik tombol project yg ada diatas lalu pilih add module

3a. Untuk Visual Basic 6.0 Masukkan kode module di bawah

Private Const PROCESS_ALL_ACCESS = &H1F0FFF
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, ByVallpBaseAddress 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 Classname As String, ByVal WindowName As String) As Long
Private 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 Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Sub WriteAInt(Address As Long, Value As Integer)
Dim hwnd As Long, pid As Long, phandle As Long
'PangYa Season 2 Merupakan Windows Namenya
hwnd = FindWindow(vbNullString, "PangYa Season 2")
If (hwnd <> 0) Then
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle <> 0) Then
WriteProcessMemory phandle, Address, Value, 2, 0&
End If
CloseHandle phandle
End If
End Sub

3b. Untuk Visual Basic 2005 Masukkan kode module di bawah

Module Module1
Private Const PROCESS_ALL_ACCESS As Integer = &H1F0FFF
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Integer, ByRef lpdwProcessId As Integer) As Integer
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddreas As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Integer
Private Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function GetKeyPress Lib "user32"  Alias "GetAsyncKeyState"(ByVal key As Integer) As Short
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Short
Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
Public Declare Function sndPlaySound Lib "winmm.dll"  Alias "sndPlaySoundA"(ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer

Public Sub WriteAInt(ByRef Address As Integer, ByRef Value As Short)
Dim pid, hwnd, phandle As Integer
'PangYa Season 2 is the window name
hwnd = FindWindow(vbNullString, "PangYa Season 2")
If (hwnd <> 0) Then
GetWindowThreadProcessId(hwnd, pid)
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle <> 0) Then
WriteProcessMemory(phandle, Address, Value, 2, 0)
End If
CloseHandle(phandle)
End If
End Sub
End Module

4. Balik ke Form dan buatlah 1 button. Pada kode button, formatnya adlh sebagai berikut:

Private Sub Command1_Click()
Call WriteAInt(&Haddress,&Hvalue)
End Sub

Contoh di VB6
Private Sub Command1_Click()
Call WriteAInt(&H423103,&HFF)
End Sub

Contoh di VB2005
Private Sub Command1_click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles command1.click
Call WriteAInt (&H423103,&HFFs)
End Sub

5. Isikan address dan valuenya(harus dalam bentuk hex)

6. Klik file di bagian atas lalu pilih "make namafile.exe"

7. Well done da siap tinggal di gabung make UR ato BBR ato GR sip dahh....

BAGIAN 2
BUILDING FREEZE-R / UNFREEZE-R

1. Buatlah sebuah command dan sebuah timer lalu isi dgn

Private Sub Command1_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Command1.Caption = "CHEAT ON"
Else
Timer1.Enabled = False
Command1.Caption = "CHEAT OFF"
End If
End Sub

2. Setting timer dgn Enabled=false dan Interval=100

3a. Untuk VB6 Isi command dgn

Private Sub Timer1_Timer()
Call WriteAInt(&Haddress,&Hvalue)
End Sub

3b. Untuk VB2005 Isi command dgn

Private Sub Timer1_Tick()
Call WriteAInt(&Haddress,&Hvalue)
End Sub

4. Maka yg d jalankan adalah timer1, dan timer1 menjalankan command1....

5. Dgn demikian maka terjadi Freeze-r dan Unfreeze-r

6. Well Done... BAGIAN 2 Selesai... Maka anda dapat mengerjakan command yg menggunakan value Freeze skrg...

BAGIAN 3
MEMBUAT HYPERLINK

1a. Untuk VB6 Masukkan code di bawah bagian public declare yg terakhir di module anda...

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function OpenBrowser(Frm As Form, ToOpen As String)
ShellExecute Frm.hwnd, "Open", ToOpen, &O0, &O0, SW_NORMAL
End Function

1b. Untuk VB2005 Masukkan code di bawah bagian public declare yg terakhir di module anda...

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function OpenBrowser(ByRef Frm As System.Windows.Forms.Form, ByRef ToOpen As String) As Object
Dim SWNORMAL As Object
ShellExecute(Frm.Handle.ToInt32, "Open", ToOpen, CStr(&O0S), CStr(&O0S), SWNORMAL)
End Function

2a. Untuk VB6 Lalu masukkan code ini d bagian code form

Private Sub Form_Load()
OpenBrowser Me, "http://www.websiteanda.com"
End Sub

2b. Untuk VB2005 Lalu masukkan code ini d bagian code form

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Dim Form_Renamed As Object
OpenBrowser(Me, "www.websiteanda.com")
Form_Renamed = MsgBox("Selamat Menggunakan Trainer!")
End Sub

3. Done... Ini Yg plg mudah... Selesai BAGIAN 3


Bagi yg ga bisa buat trainer memakai VB harap pakailah trainer maker kit atau game trainer studio
Gunakan SEBIJAK mungkin...

 

[ShadowEx]

gak bisa edit y? gpp kok.... aq ngerti... yg size 4 itu ukurannya 4 heuaheuahe...

thx ya kk... ^^

 

[qwert31]

eh di kasih tutor..
thanks abis nie!!
VB down load dmn??

 

[lucubrb]

@TS
Gw masupin di :
Must Read Here Before Post/open Thread~!

Oke, brur? Biar kagak kebanyakan pin

 

[FAQ_Master]

^
NoProblemoooo...
Asalkan ga d delete

 

[loeloe]

kl ada waktu kosong boleh dah ney nyoba2 tutor yg ribet kaya gini <_<
thx 4 d tutor <_<

 

[seppuku17]

link buta VB-nya donk please....

ato link buta trainer maker dan game studio juga gpp deh...

 

[FAQ_Master]

Minta link buta doank...
Bli tuh d mall...

 

[FAQ_Master]

Akhirnya selesai bagian 2, bagian freeze dan unfreeze...
Cape bener

 

[FAQ_Master]

^
Ga mao gw nambahin post lagi...
Soalnya ni topik gw ga mao belah2
Ntar byk yg ga kebaca
Ngga kyk kmu..
Drpada nambahin post keQ kmu(ngejunk namanya)
Uda d marahin om lucubrb masi ga taw malu....
:capede:

 

[FAQ_Master]

^
No Junking

~Granted~

~Case Closed~

Tp klo d close ntar pada nanya dmn??
Ga bs close ini....
>.<"

Completed Bagian 3 T_T cape bner...

 

[seppuku17]

gw bantu2 dikit ah...

buat yg tau value dan mw change ke hex...

nih ada converter sama calculatornya...

credit to TMK

calculator DL HERE

Converter DL HERE

klo gak berguna bilank aja,, ntar gw apus post gw

 

[aloenk]

ada ngk tutor bikin trainer pake C++?

 

[yang2fast]

maaf, mau tanya sedikit..
jadi kalo mau masukin nilai hexa di vb gimana sih???

misalkan saya sudah tau alamatnya 008314C4
value yang mau saya masukkan adalah float 0

jadi script VB nya itu gini bener gk yah???

[codebox]Private Sub Command1_Click()
Call WriteAInt(008314C4,00000000)
End Sub[/codebox]


thx before

 

[seppuku17]

Itu khan gw dah post Calcu sama Converter....

lw bisa make 2 itu...

tp klo buat 0 sih ya bener lah itu...

0 diconvert juga akan 0 hasilnya

 

[FAQ_Master]

^
Yg benar begini... Apakah float 0 dalam bentuk hex jg 00?(gw jg ga taw, lagi males convert)

Private Sub Command1_Click()
Call WriteAInt(&H8314C4,&H0)
End Sub

 

[xeir]

saya masih gak mengerti yg bagian ini....

5. Isikan address dan valuenya(harus dalam bentuk hex)
maklum kk2 masih pemula :bolakbalik:

 

[seppuku17]

Ya itu cuman tinggal iSi Address dan valuenya....

Untuk itu kamu harus tau address2 dan value2 yg akan digunakan sebagai cheatnya,,,

 

[maxim222]

trus kk mwu tnya ney.....value2 nya dapet dari mana??? masa iya klo nebak.....

sorry newbie niy

:hilarious: :smiley_beer: <_< <_< :smiley_beer:

 

[FAQ_Master]

^
Harus nyari lagi...
Baru d turunkan jadi trainer..