Red de conocimiento informático - Material del sitio web - Principio de apertura de todos los mapas Alerta Roja

Principio de apertura de todos los mapas Alerta Roja

Mostrarte el código fuente:

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