Ir a contenido

PURCHASE MEMBERSHIP AT A 25% DISCOUNT Apply here

GET 1 MONTH OF MEMBERSHIP BY CHOOSING THE NEW NAME OF OUR COMPANY! Apply here


Photo

[VB.NET]- Crear un Ingame Actualizado [Nivel Medio]


      
[VB.NET]- Crear un Ingame Actualizado [Nivel Medio] TvOToho[VB.NET]- Crear un Ingame Actualizado [Nivel Medio] TvOToho
[VB.NET]- Crear un Ingame Actualizado [Nivel Medio]

alexmen10
#1

alexmen10
  • alexmen10
  • administrator
  • Status :
    HS4L Team
  • Mensajes :
    418
  • Reputación :
    257
  • Points :
    23
  • Registrado :
    2012-09-08
Primero, Crearemos un projecto desde 0 en VB.NET
1- Vamos a "Archivo", Nuevo -> Projecto
2- Escogemos Visual Basic, Aplicacíon de Windows Forms, Nombre el que querais xD!
3- Ahora vamos a "Proyecto" Agregar elemento existente, y agregan ReadWritingMemory.vb Download([You must be registered and logged in to see this link.])

Ahora necesitamos la librerías(OpenProcess&MemoryWrite):

Code:
Imports System.Diagnostics
Imports System.IO
Imports System.Runtime.InteropServices

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer


Creamos Checkbox1:
[VB.NET]- Crear un Ingame Actualizado [Nivel Medio] 28ribgz

Asignamos función a CheckBox1  dos click al CheckBox1:
y pegamos este codígo:

Code:
If CheckBox1.Checked = True Then
    WriteLong("S4Client", Address + &HE87921, 2222225, 4) 'On
Else
    WriteLong("S4Client", Address + &HE87921, 2222222, 4) 'Off
End If




Si queremos asignar otro CheckBox damos doble click y te muestra CheckBox2 que es el siguiente
asi sucesivamente... xD!

Code:
If CheckBox2.Checked = True Then
        WriteLong("S4Client", Address + &HE87921, 2222225, 4) 'On
Else
        WriteLong("S4Client", Address + &HE87921, 2222222, 4) 'Off
End If




Ahora añadiremos las librería en el checkBox para cambiar Address
ejemplo:
Code:
Dim P As Process = Process.GetProcessesByName("S4Client")(0)
Dim ProcessHandle As IntPtr = OpenProcess(&H1F0FFF, False, P.Id)
Dim Address As Long = P.MainModule.BaseAddress

If CheckBox1.Checked = True Then
        WriteLong("S4Client", Address + &HE87921, 2222225, 4) 'On
Else
        WriteLong("S4Client", Address + &HE87921, 2222222, 4) 'Off
End If




Codigo Completo:
Codigo:

Projecto para Descargar:
Dara error, Dar Click derecho abrir desde una nueva ventana.

#Edit: Seyer
#Motivo: no está permitido el uso de colores en comentarios y/o títulos.
Attachments
HS4LIngame.zip You don't have permission to download attachments.(102 Kb) Downloaded 33 times
ReadWritingMemory.zip You don't have permission to download attachments.(3 Kb) Downloaded 34 times

warriornigh
#2

warriornigh
  • warriornigh
  • moderator
  • Mensajes :
    25
  • Reputación :
    14
  • Points :
    0
  • Registrado :
    2014-10-30
Gracias :fuu: :add: :add: :add: :add: :add: :add: :add: :add: :add: :add: :add:

T-Rex
#3

T-Rex
  • T-Rex
  • new member
  • Mensajes :
    8
  • Reputación :
    0
  • Points :
    0
  • Registrado :
    2015-10-12
la descarga no funciona ¬¬
:fuu: :add: :add: :add: :add:

alexmen10
#4

alexmen10
  • alexmen10
  • administrator
  • Status :
    HS4L Team
  • Mensajes :
    418
  • Reputación :
    257
  • Points :
    23
  • Registrado :
    2012-09-08
T-Rex wrote:la descarga no funciona ¬¬
:fuu: :add: :add: :add: :add:
ya esta solucionado :v

Konejo Weed
#5

Konejo Weed
  • Konejo Weed
  • moderator
  • Mensajes :
    639
  • Reputación :
    90
  • Points :
    2
  • Registrado :
    2014-05-25
Muy bien explicado, al principio me liaba un poco porque en autoit puedes poner directamente la adress que te da CE, pero en vb tienes que quitar los "0x0" del principio.

ZzcarloszZ
#6

ZzcarloszZ
  • ZzcarloszZ
  • administrator
  • Mensajes :
    625
  • Reputación :
    220
  • Points :
    6
  • Registrado :
    2012-08-08
El Conejo wrote:Muy bien explicado, al principio me liaba un poco porque en autoit puedes poner directamente la adress que te da CE, pero en vb tienes que quitar los "0x0" del principio.
En otros términos, "0x00" O "00" se reemplaza con "&H"; verbigracia, &H386938 = 00386938.

Sponsored content
#7

Sponsored content

      

Create an account or log in to leave a reply

You need to be a member in order to leave a reply.

Create an account

Join our community by creating a new account. It's easy!


Create a new account

Log in

Already have an account? No problem, log in here.


Log in
You cannot reply to topics in this forum
Staff online
Sponsors
  •  TOTAL POSTS
  •  TOTAL MEMBERS
  •  NEWEST MEMBER