Modo compacto | Modo extendido

Buscar · 13-03-2011 03:05 AM

Hola aqui les enseñare como crear un trainer para juegos online o normales como GTA SA de este sera el ejemplo que are:

1º necesitaremos 1 form , modulo ,1 timer y check box tantos como necesites
2º si quieres activar los hack por hotkey es opcional pero se puede
..::Empezemos::..

En el modulo ponemos el siguiente codigo

Lenguaje VBNET

Option Strict Off
Option Explicit On
Module Module1
 
    '############################
    '# Hecho Por nelsonXD       #
    '# Con la ayuda de DavidIII #
    '#  Para cibernodo.net/     #
    '############################
    Public Const PROCESS_ALL_ACCESS As Integer = &H1F0FFF
    Dim f1holder As Short
    Dim timer_pos As Integer
    Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As Integer) As Integer
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef lpBuffer As IntPtr, ByVal nSize As IntPtr, ByRef lpNumberOfBytesWritten As IntPtr) As Integer
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Integer
    Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Short
    Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef lpBuffer As IntPtr, ByVal nSize As IntPtr, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Public Function WriteAByte(ByRef gamewindowtext As String, ByRef address As Integer, ByRef value As Byte) As Object
        Dim hProcess As Object
        Dim hWnd As Integer
        Dim pid As Integer
        Dim phandle As Integer
        hWnd = FindWindow(vbNullString, gamewindowtext)
        If (hWnd = 0) Then
            MsgBox("El juego no esta abierto", MsgBoxStyle.Critical, "Error")
            Exit Function
            End
        End If
        GetWindowThreadProcessId(hWnd, pid)
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (phandle = 0) Then
            MsgBox("No pudimos encontrar el ID", MsgBoxStyle.Critical, "Error")
            Exit Function
        End If
        WriteProcessMemory(phandle, address, value, 1, 0)
        CloseHandle(hProcess)
    End Function
    Public Function WriteAnInt(ByRef gamewindowtext As String, ByRef address As Integer, ByRef value As Short) As Object
        Dim hProcess As Object
        Dim hWnd As Integer
        Dim pid As Integer
        Dim phandle As Integer
        hWnd = FindWindow(vbNullString, gamewindowtext)
        If (hWnd = 0) Then
            MsgBox("El juego no esta abierto", MsgBoxStyle.Critical, "Error")
            Exit Function
            End
        End If
        GetWindowThreadProcessId(hWnd, pid)
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (phandle = 0) Then
            MsgBox("No pudimos encontrar el ID", MsgBoxStyle.Critical, "Error")
            Exit Function
        End If
        WriteProcessMemory(phandle, address, value, 2, 0)
        CloseHandle(hProcess)
    End Function
    Public Function WriteALong(ByRef gamewindowtext As String, ByRef address As Integer, ByRef value As Integer) As Object
        Dim hProcess As Object
        Dim hWnd As Integer
        Dim pid As Integer
        Dim phandle As Integer
        hWnd = FindWindow(vbNullString, gamewindowtext)
        If (hWnd = 0) Then
            MsgBox("El juego no esta abierto", MsgBoxStyle.Critical, "Error")
            Exit Function
            End
            Exit Function
        End If
        GetWindowThreadProcessId(hWnd, pid)
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (phandle = 0) Then
            MsgBox("No pudimos encontrar el ID", MsgBoxStyle.Critical, "Error")
            Exit Function
        End If
        WriteProcessMemory(phandle, address, value, 4, 0)
        CloseHandle(hProcess)
    End Function
    Public Function ReadAByte(ByRef gamewindowtext As String, ByRef address As Integer, ByRef valbuffer As Byte) As Object
        Dim hProcess As Object
        Dim hWnd As Integer
        Dim pid As Integer
        Dim phandle As Integer
        hWnd = FindWindow(vbNullString, gamewindowtext)
        If (hWnd = 0) Then
            MsgBox("El juego no esta abierto", MsgBoxStyle.Critical, "Error")
            Exit Function
            End
        End If
        GetWindowThreadProcessId(hWnd, pid)
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (phandle = 0) Then
            MsgBox("No pudimos encontrar el ID", MsgBoxStyle.Critical, "Error")
            Exit Function
        End If
        ReadProcessMem(phandle, address, valbuffer, 1, 0)
        CloseHandle(hProcess)
    End Function
    Public Function ReadAnInt(ByRef gamewindowtext As String, ByRef address As Integer, ByRef valbuffer As Short) As Object
        Dim hProcess As Object
        Dim hWnd As Integer
        Dim pid As Integer
        Dim phandle As Integer
        hWnd = FindWindow(vbNullString, gamewindowtext)
        If (hWnd = 0) Then
            MsgBox("El juego no esta abierto", MsgBoxStyle.Critical, "Error")
            Exit Function
            End
        End If
        GetWindowThreadProcessId(hWnd, pid)
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (phandle = 0) Then
            MsgBox("No pudimos encontrar el ID", MsgBoxStyle.Critical, "Error")
            Exit Function
        End If
        ReadProcessMem(phandle, address, valbuffer, 2, 0)
        CloseHandle(hProcess)
    End Function
    Public Function ReadALong(ByRef gamewindowtext As String, ByRef address As Integer, ByRef valbuffer As Integer) As Object
        Dim hProcess As Object
        Dim hWnd As Integer
        Dim pid As Integer
        Dim phandle As Integer
        hWnd = FindWindow(vbNullString, gamewindowtext)
        If (hWnd = 0) Then
            MsgBox("El juego no esta abierto", MsgBoxStyle.Critical, "Error")
            Exit Function
            End
        End If
        GetWindowThreadProcessId(hWnd, pid)
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (phandle = 0) Then
            MsgBox("No pudimos encontrar el ID", MsgBoxStyle.Critical, "Error")
            Exit Function
        End If
        ReadProcessMem(phandle, address, valbuffer, 4, 0)
        CloseHandle(hProcess)
    End Function
    Public Function ReadAFloat(ByRef gamewindowtext As String, ByRef address As Integer, ByRef valbuffer As Single) As Object
        Dim hProcess As Object
        Dim hWnd As Integer
        Dim pid As Integer
        Dim phandle As Integer
        hWnd = FindWindow(vbNullString, gamewindowtext)
        If (hWnd = 0) Then
            MsgBox("No pudimos encontrar el ID", MsgBoxStyle.Critical, "Error")
            End
            Exit Function
        End If
        GetWindowThreadProcessId(hWnd, pid)
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (phandle = 0) Then
            MsgBox("No pudimos encontrar el ID", MsgBoxStyle.Critical, "Error")
            Exit Function
        End If
        ReadProcessMem(phandle, address, valbuffer, 4, 0)
        CloseHandle(hProcess)
    End Function
    Public Function WriteAFloat(ByRef gamewindowtext As String, ByRef address As Integer, ByRef value As Single) As Object
        Dim hProcess As Object
        Dim hWnd As Integer
        Dim pid As Integer
        Dim phandle As Integer
        hWnd = FindWindow(vbNullString, gamewindowtext)
        If (hWnd = 0) Then
            MsgBox("El juego no esta abierto", MsgBoxStyle.Exclamation, "Error")
            End
            Exit Function
        End If
        GetWindowThreadProcessId(hWnd, pid)
        phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
        If (phandle = 0) Then
            MsgBox("No pudimos encontrar el ID ", MsgBoxStyle.Critical, "Error")
 
            Exit Function
        End If
        WriteProcessMemory(phandle, address, value, 4, 0)
        CloseHandle(hProcess)
    End Function
End Module

En el form agregamos 1 check box (agrega tantos como necesites) y 1 timer en el timer le damos click y en "Propiedades" ponesmos

Interval 1
Modifiers Public
y en el timer1 ponemos el siguiente codigo

Lenguaje VBNET

'############################
    '# Hecho Por nelsonXD       #
    '# Con la ayuda de DavidIII #
    '#  Para cibernodo.net/     #
    '############################
'en el timer1 
        Dim Interval As Object
        If Timer1.Interval = 0 Then Timer1.Interval = 1
        Interval = 0
        'el original seria Call WriteALong("ID del juego ", Address, byte)
' este address no dara dinero 120000 en concreto lo puede modificar a la cantidad que quieras si no es de dinero lo dejas en 1 par activar  y 0 para desactivar

Call WriteALong("GTA: San Andreas", &HB7CE50, 120000)[/code]
en el checkbox ponemos este codigo

Lenguaje VBNET

'############################
    '# Hecho Por nelsonXD       #
    '# Con la ayuda de DavidIII #
    '#  Para cibernodo.net/     #
    '############################
        Call WriteALong("GTA: San Andreas", &HB7CE50, 120000)
' con  esto el hack funcionaria

2:opcional el hotkey
para el hotkey añadiriamos un 2º timer
PRopiedades del timer 2:

Enable true
modifiers public

el codigo del timer2 seria

Lenguaje VBNET

If Timer2.Enabled = True Then
'esto es el hotkey         (System.Windows.Forms.Keys.H)   es este caso al 'precionar H  lo puedescambiar a tu gusto
If GetKeyPress(System.Windows.Forms.Keys.H) Then
                Call WriteALong("GTA: San Andreas", &HB7CE50, 120000)
            End If

y donde dice

Public Class Form1 poner abjao
Inherits System.Windows.Forms.Form

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Short
de manera que quede

Lenguaje VBNET

Public  Class Form1
Inherits System.Windows.Forms.Form
 Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Short

Eso es todo xD!!!!! gracias a todos xD y me uno a la causa xD ek_co no supo admnisitras latinohacks xD!! buena -Gosw- por esta web

Buscar · 14-03-2011 03:26 AM

(13-03-2011 03:05 AM)nelsonxD escribió: Eso es todo xD!!!!! gracias a todos xD y me uno a la causa xD ek_co no supo admnisitras latinohacks xD!! buena -Gosw- por esta web

lol...

Y tu eras quien allá? Tenias el mismo nick?

Buscar · 15-03-2011 03:48 AM

(14-03-2011 03:26 AM)-Gosw- escribió:
(13-03-2011 03:05 AM)nelsonxD escribió: Eso es todo xD!!!!! gracias a todos xD y me uno a la causa xD ek_co no supo admnisitras latinohacks xD!! buena -Gosw- por esta web

lol...

Y tu eras quien allá? Tenias el mismo nick?

si era el mismo xD!! solo que solo me metia a ver los post nunca aporte xD solo aporte como dar click en la publicidad y para poder ver el contenido xD pero como ese codigo no era mio Xd si no q lo encontre por ahi xD , y ahora estoy buscando el codigo xq cuando formatie el pc se me jodio todo xD!

Buscar · 07-06-2011 10:43 PM

Una pregunta, como le haces por ejemplo si quiero jugar digamos Aion o Lineage2 o lo que sea, tomemos como ejemplo aion

Aion trabaja con un archivo .bin (Aion.bin) y necesita entrar con una ip como le hago?

Al l2 le tengo asi pero entra es ya con un archivo .ini que trae el mismo juego por el cual re direcciona con la ip que le coloques, pero el aion no.

Lenguaje VBNET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Diagnostics.Process.Start(My.Application.Info.Directo&#8203;ryPath & "\<span style="color: #FF0000;">l2.exe</span>")
        MsgBox("Gracias Por Usar L2PL")
    End Sub

a ver si sabes como le hago para colocar la ip en el launcher de aion

Aqui hay un bat que encontre por ahi pero es muy vulgar para lo que quiero

Lenguaje GENERICO

ECHO OFF
CLS
 
ECHO.
ECHO This window will close in 5 seconds.
ECHO.
 
start bin32\aion.bin -ip:"any ip" -port:2106 -noauthgg -cc:1 -lang:enu -noweb
echo
echo Starting Aion "any client" - any Server...
echo
GOTO end
 
:end
ping localhost -n 5 > nul
EXIT