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]

alexmen10
#1

alexmen10
  • avatar
  • 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(Click Aquí)

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
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



HS4L-TEAM

NamesElanceStatus
[HS4L]-Creador v1.9 BetaClick to hereWorking!!
[HS4L]-Creador v1.2 BetaClick to hereWorking!!
[HS4L]-Item CreatorClick to hereWorking!!
[HS4L]-AP Files Item CreatorClick to hereWorking!!

warriornigh
#2

warriornigh
  • avatar
  • 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
  • avatar
  • 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
  • avatar
  • administrator
  • Status :
    HS4L Team
  • Mensajes :
    418
  • Reputación :
    257
  • Points :
    23
  • Registrado :
    2012-09-08
[You must be registered and logged in to see this link.] wrote:la descarga no funciona ¬¬
:fuu: :add: :add: :add: :add:
ya esta solucionado :v



HS4L-TEAM

NamesElanceStatus
[HS4L]-Creador v1.9 BetaClick to hereWorking!!
[HS4L]-Creador v1.2 BetaClick to hereWorking!!
[HS4L]-Item CreatorClick to hereWorking!!
[HS4L]-AP Files Item CreatorClick to hereWorking!!

Konejo Weed
#5

Konejo Weed
  • avatar
  • 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
  • avatar
  • administrator
  • Mensajes :
    622
  • 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.




Guest te estoy vigilando!!!

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