Ayuda pls

[xsmilex83]

Código:

Private Sub Timer56_Timer()
Dim cuenta As Long
Dim cuenta1 As Long
Call ReadAlong("Warr", &H4E45FFB, cuenta)
'Copiamos en 'cuenta' a partir del puntero de memoria &H4E45FFB 4 bytes (Long)
CopyMemory cuenta, &H4E45FFB, 4
'sumamos 1 a 'cuenta' y almacenamos en 'cuenta1'
cuenta1 = cuenta + 1
'Copiamos el contenido de cuenta1 al puntero de memoria &H4E45FFB
CopyMemory &H4E45FFB, cuenta1, 4
Call WriteAlong("Warr", &H4E45FFB, cuenta1)
End Sub

esque tiene que ir para el proceso warr pero no veo mucho sentido a esto ultimo que le puse... xD