• Silahkan bergabung dengan chat kami di Telegram group kami di N3Forum - https://t.me/n3forum
  • Welcome to the Nyit-Nyit.Net - N3 forum! This is a forum where offline-online gamers, programmers and reverser community can share, learn, communicate and interact, offer services, sell and buy game mods, hacks, cracks and cheats related, including for iOS and Android.

    If you're a pro-gamer or a programmer or a reverser, we would like to invite you to Sign Up and Log In on our website. Make sure to read the rules and abide by it, to ensure a fair and enjoyable user experience for everyone.

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

Status
Not open for further replies.

FAQ_Master

TK B
Level 1
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
Code:
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
Code:
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:
Code:
Private Sub Command1_Click()
Call WriteAInt(&Haddress,&Hvalue)
End Sub
Code:
Contoh di VB6
Private Sub Command1_Click()
Call WriteAInt(&H423103,&HFF)
End Sub
Code:
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
Code:
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
Code:
Private Sub Timer1_Timer()
Call WriteAInt(&Haddress,&Hvalue)
End Sub
3b. Untuk VB2005 Isi command dgn
Code:
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...
Code:
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...
Code:
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
Code:
Private Sub Form_Load()
OpenBrowser Me, "http://www.websiteanda.com"
End Sub
2b. Untuk VB2005 Lalu masukkan code ini d bagian code form
Code:
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

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

thx ya kk... ^^
 

loeloe

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

FAQ_Master

TK B
Level 1
^
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

TK B
Level 1
^
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

1 SD
Banned
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 :rolleyes:
 

yang2fast

PAUD
Level 1
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

1 SD
Banned
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

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

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

xeir

PAUD
Level 1
saya masih gak mengerti yg bagian ini....

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

seppuku17

1 SD
Banned
Ya itu cuman tinggal iSi Address dan valuenya....

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

maxim222

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

sorry newbie niy

:hilarious: :smiley_beer: <_< <_< :smiley_beer:
 
Status
Not open for further replies.
Top