Спасибо.
Сейчас попробую.

Later:
Объем: 0x500000            ; 5 mB
Время работы: 2979     ; 3 sec       1,6 mB/sec

Только почему-то считало 4 mB вместо 5-и. (судя по адресу)
А-а, понял, просто у блокнота пусто после 4-х mB.

+ открыть спойлер

#SingleInstance,Force
#NoEnv
SetFormat, Integer, H
onexit,exit
SetBatchLines,-1

starttime:=a_tickcount

ProcessName = notepad.exe         ; Имя процесса.
StartAdres:=ReadAddress:= 0x0             ; Адрес, откуда читать.
ReadSizeL = 1280             ; Сколько байт читать.
ReadSize = 4096
EndAdres:=ReadAddress+ReadSizeL*ReadSize
new:=1
savefile=map_%ProcessName%_%new%.txt

    tooltip,Начальный адрес: %StartAdres%`nТекущий адрес: "%ReadAddress%"`nКонечный адрес: %EndAdres%`nEsc - для отмены.
;file := FileOpen(savefile, "w")
;if !IsObject(file)
;{
;    MsgBox Can't open "%FileName%" for writing.
;    return
;}


map=__________ | 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F`n______________________________________________________`n%ReadAddress% |

VarSetCapacity(Buf, ReadSize, 0)  ; Буфер, куда считывать.

PROCESS_VM_READ = 0x10            ; Права на процесс.

Process, Exist, %ProcessName%     ; Поиск процесса.

If(!ErrorLevel) {
  MsgBox, Процесс не найден.
  ExitApp
}

PID := ErrorLevel                 ; Идентификатор процесса будет в ErrorLevel.

hProcess := DllCall("OpenProcess", UInt, PROCESS_VM_READ
                                 , Int, False
                                 , UInt, PID)
If(!hProcess)
{
  MsgBox, Не удалось открыть процесс.
  ExitApp
}

loop,%ReadSizeL%  ; \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
{
  c++
  if c>5000
  {
    c=
    tooltip,Начальный адрес: %StartAdres%`nТекущий адрес: "%ReadAddress%"`nКонечный адрес: %EndAdres%`nEsc - для отмены.
  }

  Ret := DllCall("ReadProcessMemory", UInt, hProcess
                                    , UInt, ReadAddress
                                    , UInt, &Buf
                                    , UInt, ReadSize
                                    , UInt, 0)

  If(Ret)
  {
    loop,%ReadSize%
    {
      char:=  NumGet(Buf, a_index-1, "UChar")
;tooltip, % char "`n" a_index  ; Считывание из буфера в переменную.
      stringtrimleft,char,char,2
      StringLen,len,char
      if len<2
        char:=" 0"char
      else
        char:=" "char

      r++
      if r<17
        map.=char
      else
      {
        r=1
        map.="`n" ReadAddress+a_index-1 " | " char
      }
    }
    fileappend,%map%,%savefile%
    map=
  }

ReadAddress+=ReadSize
}
map.="`n`n"
fileappend,%map%,%savefile%
gosub,exit

~esc::
exitapp
return

exit:
DllCall("CloseHandle", UInt, hProcess) ; Освобождение хэндла процесса.
SetFormat, Integer, D
end:=a_tickcount-starttime
Msgbox,Время работы: %end%
exitapp