Principio de apertura de todos los mapas Alerta Roja
Select Case Fx
'*************************** **********************************
'F5: Modificar dinero
'* ************* ********************************** **** ****
Caso "F5"
'Obtener dirección de registro addrEAX amp H24C
addrEAX = GetData(GamePid, amp. HA35DB4 , 4)
Debug.Print Hex(addrEAX amp; H24C)
'Escribir dinero
ReDim mBuff(3) como byte 'Dinero para escribir
mBuff(0) = amp;HFF
mBuff(1) = amp;HFF
mBuff(2) = amp;H1
mBuff(3) = amp;H0
SetData GamePid, addrEAX amp;H24C, mBuff()
'************ **** ****************************************
'F6 completamente cargado
'****************************************** ****** *********
Caso "F6"
'Borrar código de prueba de potencia
ReDim mBuff(5) Como Byte 'NOP para escribir
mBuff(0) = amp H90
mBuff(1) = amp H90
mBuff(2) = amp; ; H90
mBuff(3) = amp;H90
mBuff(4) = amp;H90
mBuff(5) = amp;H90
SetData GamePid, amp H4F2D88, mBuff(), 6
SetData GamePid, amp H4F2D0F, mBuff(), 6
'Leer puntero de datos de energía
addrEAX = GetData(GamePid, amp; HA35DB4, 4)
Debug.Print Hex(addrEAX amp.H52D0)
'Escribe el valor de los datos de potencia, el valor máximo es 65535
mBuff(0) = amp;HFF
mBuff(1) = amp;HFF
SetData GamePid, addrEAX amp;H52D0, mBuff() , 2
'****************************************** ****** **********
'F7 Quick Build
'**************** ******** *************
************ **********
Caso "F7"
ReDim mBuff(7) Como byte 'NOP para escribir
mBuff(0) = amperio HC0
mBuff(1) = amperio H36
mBuff(2) = amperio
mBuff(3) = amperio H0
mBuff(4) = amperio H0
mBuff(5) = amperio H90
mBuff(6) ) = amp;H90
mBuff(7) = amp;H90
SetData GamePid, amp;H4B93DA, mBuff(), 1
mBuff(0) = amp;HBA
SetData GamePid, amp;H4B935F, mBuff(), 8
'********************* ***** ***** *******************************
'F8 Mostrar mapa
'****************************************** ****** **********
Caso "F8"
Ir a m_Err
ReDim mBuff(0) como byte 'NOP para escribir a
mBuff(0) = amp; H8
'Es simplemente un dolor de cabeza... He escrito esto más de 1000 veces. Escribe todos estos valores
'*************************************** **********************
'F9 gana inmediatamente
'********* ******* ************************* *******************
Caso "F9"
ReDim mBuff(0) como byte
mBuff(0) = amp;H8
SetData GamePid, amp ;HA35DB1, mBuff(), 1
Finalizar selección
Form1! Label4.Caption = Fx amp; "¡Modificación exitosa!"
Salir de Sub
m_Err:
¡Form1!
Fin de Sub p>
Principio: modificar los datos de la memoria, similar a "Ace Agent".