А зачем вам старый АНК? Там уже много чего нет. Здесь, наверно, он не знает тип "Ptr". Если так, то это можно обойти.
На своей основной ОС я использую новый, у меня все и работало. А стал тестить на виртуальной машине, скачал версию с главной autohotkey.com и вылетало на коде:
snapMod := DllCall("CreateToolhelp32Snapshot", "uint", FLAGS
, "uint", ErrorLevel
, "ptr")Потом уж понял, что возможно дело в версии AHK. И действительно. Но переделывать не к чему, так как теперь использование уже из exe-файла идёт, только с тестом проблемы вот возникли.
]]>vkvolk, не нужно цитировать сообщение целиком, тем более такое объёмное.
]]>
SetFormat, Integer, H
process_name = Explorer.exe
module_name = Explorer.exe
offset = 0x1D1F60
module_addr := PsGetModuleBase( process_name, module_name )
If( module_addr = 0 ) {
MsgBox, Ошибка
Return
}
MsgBox, % module_addr
number := GetAddressValue( process_name, module_addr + offset )
MsgBox, %number%
;================================ Функции ==================================
GetAddressValue(PID_or_Name, ReadAddress) {
Process, Exist, %PID_or_Name%
If( ErrorLevel = 0 ) {
Return "Ошибка #0"
}
PID := ErrorLevel
ReadSize = 4
VarSetCapacity(Buf, ReadSize, 0)
PROCESS_VM_READ = 0x10
hProcess := DllCall("OpenProcess", UInt, PROCESS_VM_READ
, Int, False
, UInt, PID, "Ptr")
If(!hProcess) {
Return "Ошибка #1"
}
Ret := DllCall("ReadProcessMemory", Ptr, hProcess
, Ptr, ReadAddress
, Ptr, &Buf
, Ptr, ReadSize
, Ptr, 0)
DllCall("CloseHandle", Ptr, hProcess)
If(!Ret) {
Return "Ошибка #2"
}
Result := NumGet(Buf, 0, "UInt")
Return Result
}
PsGetModuleBase(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
}
Ну, надо хотя бы посмотреть переменную A_LastError, чтобы понять, что за ошибка. Но только сразу после вызова ReadProcessMemory.
Не знаю, что такое адрес в модуле. Возможно, смещение от адреса самого модуля, т.е. надо адрес модуля ещё знать, чтобы вычислить адрес числа. Адрес самого модуля известен?
A_LastError выдает "299". Скорее всего именно так. Модулем является непосредственно процесс программы. Вот только как получить этот адрес модуля, а тем более на AHK...
Судя по справке АМ, нужно к указателю прибавлять смещение.
pointer:=GetAdressValue(pid,0x01301f60) value:=GetAdressValue(pid,pointer+1234) ; прибавлено смещение 1234 msgbox,% valueИли я ошибаюсь?
Вырезка из справки АМ:
Смещение указано только у указателя, а его адрес меняется, так что он не подходит.
]]>pointer:=GetAdressValue(pid,0x01301f60)
value:=GetAdressValue(pid,pointer+1234) ; прибавлено смещение 1234
msgbox,% value
Или я ошибаюсь?
Вырезка из справки АМ:
]]>Не знаю, что такое адрес в модуле. Возможно, смещение от адреса самого модуля, т.е. надо адрес модуля ещё знать, чтобы вычислить адрес числа. Адрес самого модуля известен?
]]>А как вы пытаетесь его получить? Надо открывать процесс на чтение и читать API-функцией ReadProcessMemory. Вы так делаете?
ReadAdress подаю "0x001D1F60". Возвращает "Ошибка #2".
GetAdressValue(PID, ReadAddress) {
ReadSize = 4
VarSetCapacity(Buf, ReadSize, 0)
PROCESS_VM_READ = 0x10
hProcess := DllCall("OpenProcess", UInt, PROCESS_VM_READ
, Int, False
, UInt, PID)
If(!hProcess) {
Return "Ошибка #1"
}
Ret := DllCall("ReadProcessMemory", UInt, hProcess
, UInt, ReadAddress
, UInt, &Buf
, UInt, ReadSize
, UInt, 0)
DllCall("CloseHandle", UInt, hProcess)
If(!Ret) {
Return "Ошибка #2"
}
Result := NumGet(Buf, 0, "UInt")
Return Result
}Я делал подобное в одной игре, и тоже адрес был непостоянным. Но нашёлся ориентир, от которого эти данные всегда были на определённом расстоянии. Какая-то текстовая строка, всегда одна и та же, если я ничего не путаю.
Я обратил внимание, что "Адрес в модуле" всегда один и тот же, в отличие от указателя. Но когда я пытаюсь получить значение по этому адресу из AHK, то он не находит этот адрес.
]]>YMP, нет. Нужные данные - число.
А тема называется "Получение текста"?
Вот я это число стал искать через ArtMoney, потом посмотрел в какой ячейке из большого кол-ва найденных оно изменится на новое значение в программе. Вот только после перезапуска программы адрес ячейки уже другой.
Я делал подобное в одной игре, и тоже адрес был непостоянным. Но нашёлся ориентир, от которого эти данные всегда были на определённом расстоянии. Какая-то текстовая строка, всегда одна и та же, если я ничего не путаю.
]]>В вышеупомянутой АМ описан способ, как искать значения, не имеющие фиксированного адреса в памяти.
По указателю получает значение даже после перезагрузки программы, да. Но все равно много условий - работает только если сначала запустить именно тот аккаунт, на цифровое значение которого искался указатель, только в определенном состоянии программы и само собой ни на какой другой ОС не работает, хоть даже с той же битностью, что и изначальная, где искался указатель.
]]>