Resultados 1 al 7 de 7
  1. #1
    Nose90 está desconectado Hacha de Piedra
    Registrado
    04 mar, 09
    Posts
    105
    Me gusta
    2
    Me gusta Obtenidos:
    21 en 8 Posts

    Talking [Tutorial]Crear Treiner En Visual Basic 6.0

    Video:



    Codigos:

    Código:
    Public Const PROCESS_ALL_ACCESS = &H1F0FFF
    
    Dim f1holder As Integer
    
    Dim timer_pos As Long
    
    'API Declaration
    
    Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
    
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
    
    Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
    
    Public 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 Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
    
    Dim hWnd As Long
    
    Dim pid As Long
    
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    
    If (hWnd = 0) Then
    
    MsgBox "The Game Is Not Working", vbCritical, "Error"
    
    End
    
    Exit Function
    
    End If
    
    GetWindowThreadProcessId hWnd, pid
    
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
    If (phandle = 0) Then
    
    MsgBox "Can't get ProcessId", vbCritical, "Error"
    
    Exit Function
    
    End If
    
    WriteProcessMemory phandle, address, value, 1, 0&
    
    CloseHandle hProcess
    
    End Function
    
    Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
    
    Dim hWnd As Long
    
    Dim pid As Long
    
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    
    If (hWnd = 0) Then
    
    MsgBox "The Game Is Not Working", vbCritical, "Error"
    
    End
    
    End If
    
    GetWindowThreadProcessId hWnd, pid
    
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
    If (phandle = 0) Then
    
    MsgBox "Can't get ProcessId", vbCritical, "Error"
    
    Exit Function
    
    End If
    
    WriteProcessMemory phandle, address, value, 2, 0&
    
    CloseHandle hProcess
    
    End Function
    
    Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
    
    Dim hWnd As Long
    
    Dim pid As Long
    
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    
    If (hWnd = 0) Then
    
    MsgBox "The Game Is Not Working", vbCritical, "Error"
    
    End
    
    Exit Function
    
    End If
    
    GetWindowThreadProcessId hWnd, pid
    
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
    If (phandle = 0) Then
    
    MsgBox "Can't get ProcessId", vbCritical, "Error"
    
    Exit Function
    
    End If
    
    WriteProcessMemory phandle, address, value, 4, 0&
    
    CloseHandle hProcess
    
    End Function
    
    Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
    
    Dim hWnd As Long
    
    Dim pid As Long
    
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    
    If (hWnd = 0) Then
    
    MsgBox "The Game Is Not Working", vbCritical, "Error"
    
    End
    
    Exit Function
    
    End If
    
    GetWindowThreadProcessId hWnd, pid
    
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
    If (phandle = 0) Then
    
    MsgBox "Can't get ProcessId", vbCritical, "Error"
    
    Exit Function
    
    End If
    
    ReadProcessMem phandle, address, valbuffer, 1, 0&
    
    CloseHandle hProcess
    
    End Function
    
    Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
    
    Dim hWnd As Long
    
    Dim pid As Long
    
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    
    If (hWnd = 0) Then
    
    MsgBox "The Game Is Not Working", vbCritical, "Error"
    
    End
    
    Exit Function
    
    End If
    
    GetWindowThreadProcessId hWnd, pid
    
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
    If (phandle = 0) Then
    
    MsgBox "Can't get ProcessId", vbCritical, "Error"
    
    Exit Function
    
    End If
    
    ReadProcessMem phandle, address, valbuffer, 2, 0&
    
    CloseHandle hProcess
    
    End Function
    
    Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
    
    Dim hWnd As Long
    
    Dim pid As Long
    
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    
    If (hWnd = 0) Then
    
    MsgBox "The Game Is Not Working", vbCritical, "Error"
    
    End
    
    Exit Function
    
    End If
    
    GetWindowThreadProcessId hWnd, pid
    
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
    If (phandle = 0) Then
    
    MsgBox "Can't get ProcessId", vbCritical, "Error"
    
    Exit Function
    
    End If
    
    ReadProcessMem phandle, address, valbuffer, 4, 0&
    
    CloseHandle hProcess
    
    End Function
    
    Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
    
    Dim hWnd As Long
    
    Dim pid As Long
    
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    
    If (hWnd = 0) Then
    
    MsgBox "The Game Is Not Working", vbCritical, "Error"
    
    End
    
    Exit Function
    
    End If
    
    GetWindowThreadProcessId hWnd, pid
    
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
    If (phandle = 0) Then
    
    MsgBox "Can't get ProcessId", vbCritical, "Error"
    
    Exit Function
    
    End If
    
    ReadProcessMem phandle, address, valbuffer, 4, 0&
    
    CloseHandle hProcess
    
    End Function
    
     
    
    Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
    
    Dim hWnd As Long
    
    Dim pid As Long
    
    Dim phandle As Long
    
    hWnd = FindWindow(vbNullString, gamewindowtext)
    
    If (hWnd = 0) Then
    
    MsgBox "The Game Is Not Working", vbCritical, "Error"
    
    End
    
    Exit Function
    
    End If
    
    GetWindowThreadProcessId hWnd, pid
    
    phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    
    If (phandle = 0) Then
    
    MsgBox "Can't get ProcessId", vbCritical, "Error"
    
    Exit Function
    
    End If
    
    WriteProcessMemory phandle, address, value, 4, 0&
    
    CloseHandle hProcess
    
    End Function
    
    
    _________________________________________________________________________________________________
    
    'No Borrar El "&H" Donde Esta El Address Seria, Tiene Que Quedar Si o Si &H y El Address Del CE
    Call WriteALong("Proceso", &HAddress, Vaule)
    __________________________________________________ _______________

    Formulario:

    Código:
    Private Sub Command1_Click()
    'Creditos (Las XXXXX Modifiquenlan y Pongan Sus Creditos :D
    MsgBox "Creado Por XXXXXX Para XXXXXX", vbInformation, "Creditos"
    End Sub
    
    Private Sub Command2_Click()
    'Salir
    End
    End Sub
    
    Private Sub Check1_Click()
    ' Aca Hacemos Que Nosotros Eligamos En Vaule Ej: 32000
    Call WriteALong("HeroesMu Season 5", &HD8C8FCA, 32000)
    End Sub
    
    Private Sub Check2_Click()
    ' Aca Hacemos Que El Usuario Eliga El Vaule Ej: Text1.Text
    Call WriteALong("HeroesMu Season 5", &HD8C8FCA, Text1.Text)
    End Sub

    Informacion Adicional

    Visual Basic 6.0:

    Caption: Titulo Del Programa, Boton, Check, Etc
    BlackColor: Color De Fondo
    Font: La Forma De La Letra
    ForeColor: Color De La Letra
    Text: Lo Que Queremos Que Diga En Un TextBox (Yo En El Video Pongo 16000)

    Solo Eso Para El Que No Entendio Mucho

    Descargas:

    Aca Tienen Un Ejemplo De Memoria En Visual Basic (VB) Para Mu Online

    Descarga Del Codigo:

    http://www.sendspace.com/file/te3iy0

    http://www.4shared.com/file/22544926...r_Codigos.html

    http://rapidshare.com/files/35295960...digos.txt.html

    Proyecto

    http://www.sendspace.com/file/8tlv3a

    http://www.4shared.com/file/22545061.../Proyecto.html

    http://rapidshare.com/files/352960682/Proyecto.rar.html
    Última edición por Nose90; 19/02/2010 a las 12:44

  2. Al siguiente usuario le gusta el post de Nose90:


  3. #2
    Avatar de PîerrCiToO
    PîerrCiToO está desconectado Hacha de Madera
    Registrado
    15 jul, 09
    Posts
    48
    Puntos
    3,652
    Nivel
    6
    Me gusta
    6
    1 Me gusta en 1 Post

    Wink xD

    ese ?.. funciona par Visual studio 2005 o 2008 ?














    Pierrrree













  4. #3
    Nose90 está desconectado Hacha de Piedra
    Registrado
    04 mar, 09
    Posts
    105
    Me gusta
    2
    Me gusta Obtenidos:
    21 en 8 Posts

    Predeterminado

    funciona solamente para visual basic 5.0 y visual basic 6.0 otro no

  5. #4
    darl está desconectado Hacha de Metal doble Logros:
    SocialTagger de segunda claseVeterano
    Registrado
    19 feb, 10
    Posts
    182
    Puntos
    4,425
    Nivel
    6
    Me gusta
    11
    Me gusta Obtenidos:
    14 en 6 Posts

    Predeterminado

    Oe amigo tu tuto todo chebre
    pero me podrias explicar como lo guardo
    xk x mas q intento lo e guardado y me sale
    Hack.frm y mi pc no lo lee:S
    aver si me dices como lo puedo guardar de modo q lo
    pueda leer el pc

  6. #5
    Avatar de alex4288
    alex4288 está desconectado Hacha de Plata
    Registrado
    26 dic, 09
    Posts
    213
    Me gusta
    137
    Me gusta Obtenidos:
    35 en 11 Posts

    Thumbs up gracias

    me gusto mucho este tuto ojala esto estuviese en importante x ejemplo

  7. #6
    Nose90 está desconectado Hacha de Piedra
    Registrado
    04 mar, 09
    Posts
    105
    Me gusta
    2
    Me gusta Obtenidos:
    21 en 8 Posts

    Predeterminado

    Cita Iniciado por darl Ver mensaje
    Oe amigo tu tuto todo chebre
    pero me podrias explicar como lo guardo
    xk x mas q intento lo e guardado y me sale
    Hack.frm y mi pc no lo lee:S
    aver si me dices como lo puedo guardar de modo q lo
    pueda leer el pc
    Claro, para guardarlo como .exe? desis vos

    si es asi vas a archivo > generar proyecto.exe

    si queres guardar el proyecto te vas a archhivo > guardar proyeto

    y listo

  8. #7
    darl está desconectado Hacha de Metal doble Logros:
    SocialTagger de segunda claseVeterano
    Registrado
    19 feb, 10
    Posts
    182
    Puntos
    4,425
    Nivel
    6
    Me gusta
    11
    Me gusta Obtenidos:
    14 en 6 Posts

    Talking

    Cita Iniciado por Nose90 Ver mensaje
    Claro, para guardarlo como .exe? desis vos

    si es asi vas a archivo > generar proyecto.exe

    si queres guardar el proyecto te vas a archhivo > guardar proyeto

    y listo
    Men nu me sales nu podrias hacerte un tuto como guardarlo
    o sino agregame o pasame tu msn
    krizh_@live.com

 

 

Temas similares

  1. M. Visual Basic - Como Crear un Keygen Video Tutorial
    Por xxx2xxx en el foro Descargas software
    Respuestas: 1
    Último mensaje: 02/09/2010, 17:14
  2. Breve Tutorial De Visual Basic -> By NsTeam
    Por NsTeam en el foro Tutoriales y manuales
    Respuestas: 3
    Último mensaje: 11/06/2009, 09:07
  3. Microsoft Visual Basic 2008 + Tutorial
    Por >][Sephiroth][< en el foro Descargas software
    Respuestas: 2
    Último mensaje: 26/05/2009, 12:29
  4. Tutorial de Visual Basic 6
    Por Coffee. en el foro Tutoriales y manuales
    Respuestas: 6
    Último mensaje: 24/07/2008, 15:56
  5. Visual Basic 6 Español Full + Tutorial
    Por fekaa07 en el foro Descargas software
    Respuestas: 2
    Último mensaje: 22/04/2008, 20:51

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153