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

[BigBoss]

emank ada ya trainer yang ga perlu resistance??
koq bisa c?

 

[1642EQ]

@TS

kl mau open kernel process itu proses yg sangat panjang kynya
dah udah aga tingkal lanjut kynya, soalnya prinsip dari game resistance itu
membuat service driver yg notabene jalan di kernel mode untuk memperoleh
hak akses (previliege) untuk hak baca / tulis memory / prosesor, berhubung
kynya hackshield nya juga berjalan di kernel mode, jadi kita tidak bisa hanya
open process biasa saja. kalau kita dapat membuat service driver / hook API
di dalam kernel mode, baru program kita (trainer) bisa memperoleh previliege
dalam kernel mode.

maap kalau penjelasannya salah, tidak bisa menulis saya soalnya ^^

regard
1642EQ

 

[yang2fast]

@TS

gw dah coba pake VB6 gw copy script yang ada di tutor ke module, trs gw bikin commnad button, trs gw tulis di commnad buttonnya gini..

Private Sub Command1_Click()
Call WriteAInt(&H4xxxx4, &H0)
Call WriteAInt(&H4xxxx8, &H0)
Call WriteAInt(&H4xxxxC, &H0)
End Sub

abis itu gw buat jadi contoh.exe trs gw nyalahin BBR sama contoh.exe... pas gw cobain gk ketulis di memorynya kk... apa ada yang salah yah gw..???

 

[1642EQ]

@yang2fast

ini untuk vb6.0

coba liat penulisan:

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

ByVallpBaseAddress seharusnya ByVal lpBaseAddress (ada spasinya)
ini kemungkinan terjadi bila km hanya copy-paste scriptnya ^^

kalau mau tulis code pada Private Sub Command1_Click(), km tinggal klik 2x di buttonnya
nanti muncul:
Private Sub Command1_Click()
... <--- nah disini km tinggal tulis perintah call nya
End Sub

mudah2an bisa membantu

regard
1642EQ

 

[yang2fast]

^
om ByVal-nya dah gw rubah tetapi masih tetap gk ketulis di memory nya... kenapa yah... ><

gw coba cari API "WriteProcessMemory" di API's guide gk ada contohnya nih... buset.. ><

 

[hardconan]

para master di forum tolong bantuin dunk
aku butuh auto change value di cheat engine/UCE/prog lain yg sejenis
kemampuan trainer tsb :
auto change value yg di dapatkan dari adres proces yg telah kita pilih
auto change valunenya bisa bertambah 1++,2++ atau lainnya dan ada range
value yg di change bisa di ulang2 sampe bbrp x
aku butuh banget buat lengkapin teknik bot di game2 indo dgn menggunakan engine
mohon bantuannya dr kk dan cc
thx b4

 

[FAQ_Master]

^
Ga taw tuh...
Cara bot...
Soalnya main pangya itu bkn soal lepel tp soal enaknya...

@RekataBudi
Loh...
Klo gw ga dispasi gmn??
Bisa dipake jg kn...>.<

 

[1642EQ]

@yang2fast
coba km kirim aja source code km, nanti aku coba liat2..

Public Sub WriteAInt(Address As Long, Value As Integer)
Dim hwnd As Long, pid As Long, phandle As Long
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&
Else then
msgBox "error writting"					 'km coba tambahin ini
End If
CloseHandle phandle
Else then
msgBox "handle window tiidak ditemukan"			  ' km coba tambahin ini
End If
End Sub

ini untuk ngetes aja, kl salah satu message diatas muncul berarti keliatan kan errornya mulai dari mana
kl code nya salah maap saya ga coba compilasi dulu soalnya.....^^


@faq
mm..waktu aku salah tulis juga ^^ yah ga nulis ke memory
pas dispasi baru bisa..
km cobain aja bisa gak kl ga dispasi. harusnya sih ngga
type data dan nama variabel harus dipisah penulisnnya
spt byval asdf, int asdf, dsb

 

[yang2fast]

^
thx... ntr gw coba di rumah.. lg dikantor nih...

 

[yang2fast]

@rakatabudi

udah di coba nih om... yang aneh nya gk ada yang error tuh.... msgboxnya gk keluar ama sekali... apa gw salah tipe data yah...??

jadi gini yang mau gw tulis ke dalam memory itu tipe datanya float... sedangkan disitu value nya berupa integer...

tapi di VB gk ada float nih om... gw dah cobain jadiin tipe double.. jadi kayak gini loh...

Public Sub WriteAInt(Address As Long, Value As Double)

tapi tetep aja gk ketulis... aneh nih....

sebenernya tipe data float didalam VB itu apa sih...???


@TS
bantuin gw donk... masalah gw dimana nih... ><

 

[1642EQ]

@yang2fast

btw :
1.tau ga ktulisnya gimana? cek pake UCE?
2.dah pake GR?
kl soal type data, ga masalah kl salah tipe datanya, paling ada pemotongan nilai saja
dan seharusnya tetep nulis.
kalau tipe float di VB, pake single, kl double jadi double
cth: Dim var as Single

coba kirim aja source codenya, kalau ada yg privasi di blok aja ^^

semoga membantu..

regard
1642EQ

 

[yang2fast]

@rakatabudi
om dah gw upload di 4shared tuh... link downloadnya gw PM ke lo yah... dah mentok gw, gk tau harus diapain lg yang salah... mohon bantuannya nih.

thx...


kalo blm di terima PM nya, kasih tau gw lg yah... gw kirim ulang...

 

[1642EQ]

@yang2fast

codenya sudah bener, hanya salah pemasukan tipe data saja..
tipe data single (float) memerlukan 4 bytes.

WriteProcessMemory phandle, Address, Value, 4, 0&

jadi pada penulisan code diatas, angka 2 ubah jadi 4 untuk 4bytes

sebenrnya fungsi nya jalan, hanya saja terjadi pemotongan data karena
fungsi diatas hanya menulis untuk 2bytes pertama saja. kebetulan 2bytes
pertama bernilai 0, jadi sewaktu button ditekan value tetap 0 alias tidak berubah

intinya: jgn sampai salah pemasukan tipe data karena bisa berakibat yg tidak
diinginkan, sampai yg terburuk cthnyaesawat ulang alik yg crash hanya
gara2 salah pemasukan data ke variabel dengan ukuran data yg tidak sesuai.
terbayang bermilyar2 dollar yg hilang hanya karena kesalahan kecil ^^

maap aga OOT dikit

mudah2an buat yg lain bisa membantu juga..

regard
1642EQ

 

[FAQ_Master]

Bagusan mana nih brur??
4bytes apa 2bytes??

Pesawat ulang alik itu apa sih??

 

[yang2fast]

^
2byte atau 4 byte itu tergantung tipe data apa yang dimasukkan kk... jadi gk ada yang lebih baik antara 2 byte dengan 4 byte... tetapi gunakan byte yang tepat untuk setiap tipe data yang dipakai... itu lah yang terbaik...

pesawat ulang aling itu kayaknya apolo / satelit kali yah... :hilarious:

 

[cumikadut]

@FaqUpgraded


Kk,,,TanYa Dunk,,,logika na search Utk unlimited gauge gimana?
gw Dha baca pnya apple_juice,,tp masi kurang paham,,
gw udah search FFFFFFFF value type na pke float,,jd na 00000000,,terus gw first scan..
dpt address bnyk,,,
TErus gw PukuL utk cari gauge, PErtanyaan 1. gauge Na Mpe PenuH???
lalu...
gw search lagi decrease value,,smpe akhir na gw dpt na 3 address dan itu bukan address gauge..
gw slah Dimana Yah? TolONg dunk PLiz,,Jelazin dkit aja,,^^;
PenasaRan,,,

Klo tutor na kk apple, kta dia search by array of byte tp klo search pke ini cara decrease value na gimana? karena gak bisa diubah dr exact value ke decrease value,,tolong kasi clue kk,,,
bagaimana cara mendapatkan 1 address tsb? lalu,,apakah address ini DMA?
Thanks Lot,,,

REgards,


KaKeq_LuTju^_^

 

[FAQ_Master]

Unlimited Gauge...
Sebenarnya dibagian ini gw cuma menurunkan hasil trainer2 lalu....
Yg dpt dicari melalui perbedaan value(ini clue lohhh!!)...
Dan 1 lagi yg penting... Trainer Rekata ga dapat dicari perbedaanya soalnya masang byk guard....
Gw uda ga aktif lg dibagian gem online...

 

[ArthurWeasley]

@all
help

stiap saya debugger suatu addres

slalu ke restart kompi

huaaaaaaaa

 

[regotihm]

Wiihh agak susah mumed nih... :hilarious:

Kk share GR donk di thread sebelah error linknya...

 

[seppuku17]

^
Junker....

ReQ di satu tempat aja cukup kok