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):
Creamos Checkbox1:
Asignamos función a CheckBox1 dos click al CheckBox1:
y pegamos este codígo:
Si queremos asignar otro CheckBox damos doble click y te muestra CheckBox2 que es el siguiente
asi sucesivamente... xD!
Ahora añadiremos las librería en el checkBox para cambiar Address
ejemplo:
Codigo Completo:
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.
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:
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:
- Code:
Imports System.Diagnostics
Imports System.IO
Imports System.Runtime.InteropServices
Public Class Form1
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Dim P As Process = Process.GetProcessesByName("S4Client")(0)
Dim ProcessHandle As IntPtr = OpenProcess(&H1F0FFF, False, P.Id)
Dim Address As Long = P.MainModule.BaseAddress
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
Dim P As Process = Process.GetProcessesByName("S4Client")(0)
Dim ProcessHandle As IntPtr = OpenProcess(&H1F0FFF, False, P.Id)
Dim Address As Long = P.MainModule.BaseAddress
'S4Client.exe+E87921
If CheckBox1.Checked = True Then
WriteLong("S4Client", Address + &HE87921, 2222225, 4) 'On
Else
WriteLong("S4Client", Address + &HE87921, 2222222, 4) 'Off
End If
End Sub
End Class
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