[AYUDA VB.NET]Mostrar VIDA de un juego en una label

[M1LL3R]

He buscado por diferentes sitios y he encontrado que se puede modificar un address de un juego pero no mostrar.
He visto que se puede modificar con WriteDMAInteger("Juego", Address, Offset,Value,Level). De esta manera en el value pondriamos Textbox1.text y asi la cantidad que haya indicado en el TextBox1 se mostrará en la addres, se entiende?
Pero no quiero modificarla, quiero mostrar una address en una label. Probé con:

Código [Seleccionar] Expandir

Dim mana As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        mana = WriteDMAInteger("Juego", &HAddress, {&H1, &H2, &H3, &H4, &H5}, Value, 5)
        Label1.Text = mana

No se si WriteDMAInteger será el que tengo que usar pero pude completar los datos excepto el de Value y luego en el label me dice -1.
AYUDA POR FAVOR!

[seba123neo]

creo que deberias usar la api ReadProcessMemory, aca hay un ejemplo en vb 2008 de como leer y escribir, esta en vb 2008 pero las apis las podes conseguir en version vb6.

http://www.mpgh.net/forum/33-visual-basic-programming/89195-how-write-read-game-memory-vb-2008-a.html

[M1LL3R]

Gracias seba123neo principalmente.

Probé bajándome el código y modificando nomas el nombre del juego y los address pero no he obtenido ningún resultado.

Lo que hice fue trabajar con el address actual (no con el pointer que es con el que luego trabajaré) pero no pude obtener que se muestre el valor de ese address en la label. El address lo copie y pegue del CE cosa que esté bien. Este seria todo el codigo:

Código [Seleccionar] Expandir

Public Class Form1
    Dim BaseAddress As Integer
    Dim MyProcess As Process() = Process.GetProcessesByName("JUEGO")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyProcess As Process() = Process.GetProcessesByName("JUEGO")
        Dim mainModule As ProcessModule
        mainModule = MyProcess(0).MainModule
        BaseAddress = CInt(mainModule.BaseAddress)
        BaseAddress = CInt(mainModule.BaseAddress)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Text = ReadInt((BaseAddress + &H3B28FC))
    End Sub
End Class

Si quieren les subo el modulo también.