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:
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!
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 (http://www.mpgh.net/forum/33-visual-basic-programming/89195-how-write-read-game-memory-vb-2008-a.html)
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:
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.