Нет, у каждого процесса своё пространство адресов (виртуальных). Как они проецируются на реальные адреса, значения не имеет, т.к. приложения с реальными адресами не работают.
А можно, также как и базовый адрес найти быстро и сразу границы выделенного приложению участка памяти, а заодно ещё и читаемые и не читаемые участки в этих границах?
]]>В качестве DllName укажите имя самого процесса.
Работает, спасибо.
]]>SetFormat, Integer, Hex
ProcessName := "opera.exe"
addr := ProcGetDllBase(ProcessName, ProcessName)
MsgBox, % addr
ProcGetDllBase(Process, DllName) ; Process = PID or Name.
{
static StructSize, AddrOffset, NameOffset, MODULEENTRY32
static FLAGS := 0x18 ; TH32CS_SNAPMODULE | TH32CS_SNAPMODULE32
static INVALID_HANDLE_VALUE := -1
If (!StructSize) {
If (A_PtrSize = 8)
StructSize := 1080, AddrOffset := 24, NameOffset := 48
Else
StructSize := 1064, AddrOffset := 20, NameOffset := 32
VarSetCapacity(MODULEENTRY32, StructSize, 0)
NumPut(StructSize, MODULEENTRY32, 0, "uint")
}
Process, Exist, %Process%
If (ErrorLevel = 0)
Return 0
snapMod := DllCall("CreateToolhelp32Snapshot", "uint", FLAGS
, "uint", ErrorLevel
, "ptr")
If (snapMod = INVALID_HANDLE_VALUE) {
Return 0
}
If DllCall("Module32FirstW", "ptr", snapMod, "ptr", &MODULEENTRY32)
{
pszModule := &MODULEENTRY32 + NameOffset
If DllCall("lstrcmpiW", "wstr", DllName, "ptr", pszModule) = 0
{
DllCall("CloseHandle", "ptr", snapMod)
Return NumGet(MODULEENTRY32, AddrOffset, "ptr")
}
While DllCall("Module32NextW", "ptr", snapMod, "ptr", &MODULEENTRY32)
{
If DllCall("lstrcmpiW", "wstr", DllName, "ptr", pszModule) = 0
{
DllCall("CloseHandle", "ptr", snapMod)
Return NumGet(MODULEENTRY32, AddrOffset, "ptr")
}
}
}
DllCall("CloseHandle", "ptr", snapMod)
Return 0
}Примечание говорит о том, что параметр Process может быть именем процесса или его PID. Ко второму параметру это не относится. Там может быть только имя.
]]>ProcessName := "opera.exe"
ProcGetDllBase(Process, ProcessName) ; Process = PID or Name.Результат тот же. Какое имя вы имеете ввиду? И что тогда говорит примечание?
]]>Не понимаю. Приложений много, все грузятся на свободные места в памяти. Как может быть один адрес для нескольких при приложений?
Нет, у каждого процесса своё пространство адресов (виртуальных). Как они проецируются на реальные адреса, значения не имеет, т.к. приложения с реальными адресами не работают.
Выдаёт "30". В чём может быть ошибка?
Наверно, в том, что вы меняете код, не понимая, что делаете. 
Второй параметр функции — имя, а не PID.
Стандартный адрес 0x400000.
Не понимаю. Приложений много, все грузятся на свободные места в памяти. Как может быть один адрес для нескольких при приложений?
Если подозреваете, что у процесса он нестандартный
Всегда разный базовый адрес.
Попробовал с броузером Opera х32. Базовый получился 0x00DF0000
ProcessName := "opera.exe"
Process, Exist, %ProcessName%
PID := ErrorLevel
ProcGetDllBase(Process, PID) ; Process = PID or Name.
{
static StructSize, AddrOffset, NameOffset, MODULEENTRY32
static FLAGS := 0x18 ; TH32CS_SNAPMODULE | TH32CS_SNAPMODULE32
static INVALID_HANDLE_VALUE := -1
If (!StructSize) {
If (A_PtrSize = 8)
StructSize := 1080, AddrOffset := 24, NameOffset := 48
Else
StructSize := 1064, AddrOffset := 20, NameOffset := 32
VarSetCapacity(MODULEENTRY32, StructSize, 0)
NumPut(StructSize, MODULEENTRY32, 0, "uint")
}
Process, Exist, %Process%
If (ErrorLevel = 0)
Return 10
snapMod := DllCall("CreateToolhelp32Snapshot", "uint", FLAGS
, "uint", ErrorLevel
, "ptr")
If (snapMod = INVALID_HANDLE_VALUE) {
Return 20
}
If DllCall("Module32FirstW", "ptr", snapMod, "ptr", &MODULEENTRY32)
{
pszModule := &MODULEENTRY32 + NameOffset
If DllCall("lstrcmpiW", "wstr", DllName, "ptr", pszModule) = 0
{
DllCall("CloseHandle", "ptr", snapMod)
Return NumGet(MODULEENTRY32, AddrOffset, "ptr")
}
While DllCall("Module32NextW", "ptr", snapMod, "ptr", &MODULEENTRY32)
{
If DllCall("lstrcmpiW", "wstr", DllName, "ptr", pszModule) = 0
{
DllCall("CloseHandle", "ptr", snapMod)
Return NumGet(MODULEENTRY32, AddrOffset, "ptr")
}
}
}
DllCall("CloseHandle", "ptr", snapMod)
Return 30
}
addr := ProcGetDllBase("opera.exe", "opera.exe")
MsgBox, %addr%
Exit
Выдаёт "30". В чём может быть ошибка?
]]>
addr := ProcGetDllBase("notepad.exe", "notepad.exe")
Если процесс 64-битный, скрипт нужно запускать в АНК 64. Если вернёт 0, значит, какая-то ошибка.
ProcGetDllBase(Process, DllName) ; Process = PID or Name.
{
static StructSize, AddrOffset, NameOffset, MODULEENTRY32
static FLAGS := 0x18 ; TH32CS_SNAPMODULE | TH32CS_SNAPMODULE32
static INVALID_HANDLE_VALUE := -1
If (!StructSize) {
If (A_PtrSize = 8)
StructSize := 1080, AddrOffset := 24, NameOffset := 48
Else
StructSize := 1064, AddrOffset := 20, NameOffset := 32
VarSetCapacity(MODULEENTRY32, StructSize, 0)
NumPut(StructSize, MODULEENTRY32, 0, "uint")
}
Process, Exist, %Process%
If (ErrorLevel = 0)
Return 0
snapMod := DllCall("CreateToolhelp32Snapshot", "uint", FLAGS
, "uint", ErrorLevel
, "ptr")
If (snapMod = INVALID_HANDLE_VALUE) {
Return 0
}
If DllCall("Module32FirstW", "ptr", snapMod, "ptr", &MODULEENTRY32)
{
pszModule := &MODULEENTRY32 + NameOffset
If DllCall("lstrcmpiW", "wstr", DllName, "ptr", pszModule) = 0
{
DllCall("CloseHandle", "ptr", snapMod)
Return NumGet(MODULEENTRY32, AddrOffset, "ptr")
}
While DllCall("Module32NextW", "ptr", snapMod, "ptr", &MODULEENTRY32)
{
If DllCall("lstrcmpiW", "wstr", DllName, "ptr", pszModule) = 0
{
DllCall("CloseHandle", "ptr", snapMod)
Return NumGet(MODULEENTRY32, AddrOffset, "ptr")
}
}
}
DllCall("CloseHandle", "ptr", snapMod)
Return 0
}
А как определить адрес с которого процесс загружен в память?
Непонял вопроса...
]]>А что это "base" означает? Откуда оно берётся? Это что, какая-то системная переменная?
Это адрес по которому происходит чтение, который был указан заранее. Например base=0x36c124cd.
Просто ТС выкладывает не полный скрипт а кусками.