Code:
Dim $Read[2] = [0,0]
While 1
$Read[0] = _MemoryRead (0x001F74FC, "METIN2")
If $Read[0] <> $Read[1] then
$PID = WinGetProcess("METIN2")
$Open = _MemoryOpen($PID)
_MemoryWrite(0x001F74FC, $Open, 5)
$Read[1] = $Read[0]
EndIf
WEnd