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

Discussion in 'Pangya' started by FAQ_Master, Jun 25, 2007.

Discuss [Tutorial] Buat Trainer Pangya Dengan Visual Basic 6 dan Visual Basic 2005 in the Pangya area at Nyit-Nyit.Net

Thread Status:
Not open for further replies.
  1. FAQ_Master TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    1
    Trophy Points:
    43
    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...
     

    Gunakan jasa Rekber N3 untuk menjamin jual beli anda atau menghindari penipuan dengan meng klik disini
  2. ShadowEx TK 0 Kecil Level 2

    Messages:
    75
    Likes Received:
    0
    Trophy Points:
    31
    gak bisa edit y? gpp kok.... aq ngerti... yg size 4 itu ukurannya 4 heuaheuahe...

    thx ya kk... ^^
     
  3. qwert31 Pra TK Level 1

    Messages:
    10
    Likes Received:
    0
    Trophy Points:
    1
    eh di kasih tutor..
    thanks abis nie!!
    VB down load dmn??
     
  4. lucubrb In Memoriam VIP Kehormatan

    Messages:
    138
    Likes Received:
    30
    Trophy Points:
    55
    Game:
    Tidak Ada
  5. FAQ_Master TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    1
    Trophy Points:
    43
    ^
    NoProblemoooo...
    Asalkan ga d delete :) :p
     
  6. loeloe Pra TK Level 1

    Messages:
    40
    Likes Received:
    0
    Trophy Points:
    31
    kl ada waktu kosong boleh dah ney nyoba2 tutor yg ribet kaya gini <_<
    thx 4 d tutor <_<
     
  7. seppuku17 1 SD Banned

    Messages:
    261
    Likes Received:
    0
    Trophy Points:
    0
    link buta VB-nya donk please....

    ato link buta trainer maker dan game studio juga gpp deh...
     
  8. FAQ_Master TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    1
    Trophy Points:
    43
    Minta link buta doank...
    Bli tuh d mall...
     
  9. FAQ_Master TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    1
    Trophy Points:
    43
    Akhirnya selesai bagian 2, bagian freeze dan unfreeze...
    Cape bener
     
  10. FAQ_Master TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    1
    Trophy Points:
    43
    ^
    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:
     
  11. FAQ_Master TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    1
    Trophy Points:
    43
    ^
    No Junking

    ~Granted~

    ~Case Closed~

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

    Completed Bagian 3 T_T cape bner...
     
  12. seppuku17 1 SD Banned

    Messages:
    261
    Likes Received:
    0
    Trophy Points:
    0
    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:
     
  13. aloenk Pra TK Level 1

    Messages:
    43
    Likes Received:
    0
    Trophy Points:
    31
    ada ngk tutor bikin trainer pake C++?
     
  14. yang2fast Pra TK Level 1

    Messages:
    12
    Likes Received:
    0
    Trophy Points:
    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
     
  15. seppuku17 1 SD Banned

    Messages:
    261
    Likes Received:
    0
    Trophy Points:
    0
    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
     
  16. FAQ_Master TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    1
    Trophy Points:
    43
    ^
    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
     
  17. xeir Pra TK Level 1

    Messages:
    6
    Likes Received:
    0
    Trophy Points:
    1
    saya masih gak mengerti yg bagian ini....

    5. Isikan address dan valuenya(harus dalam bentuk hex)
    maklum kk2 masih pemula :bolakbalik:
     
  18. seppuku17 1 SD Banned

    Messages:
    261
    Likes Received:
    0
    Trophy Points:
    0
    Ya itu cuman tinggal iSi Address dan valuenya....

    Untuk itu kamu harus tau address2 dan value2 yg akan digunakan sebagai cheatnya,,,
     
  19. maxim222 2 SD Level 2

    Messages:
    395
    Likes Received:
    0
    Trophy Points:
    16
    trus kk mwu tnya ney.....value2 nya dapet dari mana??? masa iya klo nebak.....

    sorry newbie niy

    :hilarious: :smiley_beer: <_< <_< :smiley_beer:
     
  20. FAQ_Master TK 0 Besar Level 1

    Messages:
    120
    Likes Received:
    1
    Trophy Points:
    43
    ^
    Harus nyari lagi...
    Baru d turunkan jadi trainer..
     
Thread Status:
Not open for further replies.

Share This Page