[amel27]

Belfigor, обходной путь:

Код:

$PID = ProcessExists("Explorer.Exe")
$adr = _ProcessGetAllocAddress($PID)
ConsoleWrite("0x"& Hex($adr) &@CRLF)

Func _ProcessGetAllocAddress ($PID)
    Local $tPID = DllStructCreate("long")
    Local $tBuffer = DllStructCreate("byte")

    DllStructSetData($tPID, 1, $PID)
    Local $hProc = DllCall('kernel32.dll', 'int', 'OpenProcess', "int", 0x38, "int", 0, "int", DllStructGetData($tPID,1))
    Local $pMem = DllCall('kernel32.dll', 'int', 'VirtualAllocEx', "int", $hProc[0], "ptr", 0, "int", DllStructGetSize($tBuffer),   "int", 0x3000, "int", 0x4)

    DllCall('kernel32.dll', 'int', 'VirtualFreeEx', "int", $hProc[0], "ptr", $pMem[0], "int", 0, "int", 0x8000)
    DllCall("kernel32.dll", "int", "CloseHandle", "int", $hProc[0])

    Return $pMem[0]
EndFunc ; ==> _ProcessGetAllocAddress