Чтение из памяти Опции

[ivanTu]

Приветствую всех, подскажите пожалуйста, у меня есть базовый адрес и офсеты, как правильно все написать пробовал вот так :

set #target_hp_base 0x7D47265C
set #offset1 0x72c
set #offset2 0xf8
set #offset3 0x418
set #offset4 0x3a4
set #offset5 0x204

set #target_hp #target_hp_base + #offset1 + #offset2 + #offset3 + #offset4 + #offset5

readmem #hp #target_hp d
hint Жизней мало епт = #hp

ничего не получилось возвращает либо ноль либо не верное число...

[DarkMaster]

У вас скорее всего есть цепочка указателей и офсеты от каждого указателя указаны. Т.е. берете адрес + офсет1, считываете значение. В значении у вас будет указатель со следующим адресом, прибавляете к нему второй офсет и т.д.

[ivanTu]

У вас скорее всего есть цепочка указателей и офсеты от каждого указателя указаны. Т.е. берете адрес + офсет1, считываете значение. В значении у вас будет указатель со следующим адресом, прибавляете к нему второй офсет и т.д.

Что то я никак не разберусь в последовательности действий, Уважаемый дарк покажи на пальцах, куда что и с чем, вот что есть.

(IMG:http://img.sc/img/aba1d835f0d170e4172ade375f8cbb61.jpg)

и кстате, тот адрес что выделен (базовый) я его вытащил из .Dll - ки процесса, и через PE tools взял его адрес, я про то что UoPilot читает адреса из dll процесса?

[ivanTu]

Пробовал вот так :

set #target_hp_point0 0x7D47265C
set #target_hp_point2 #target_hp_point0 + 72C
set #target_hp_point3 #target_hp_point2 + F8
set #target_hp_point4 #target_hp_point3 + 418
set #target_hp_point5 #target_hp_point4 + 3A4
set #target_hp #target_hp_point5 + 204

readmem #hp #target_hp d
hint Жизней мало епт = #hp

Возвращает 0

[DarkMaster]

это печальная история... Мог, но релиз не состоялся т.к. исходники были утеряны... На данный момент пилот не может запросить начальный адрес блока дллки. Вся адресация у него только общая на процесс. С PE tools дело не имел, только с артмани. Надеюсь правильно вас понял, что адресация идет от начала дллки, но что-то больно цифры тогда большие. Если адресация все-таки общая на процесс, а судя по адресам это так, то схему я уже выше описывал. В данном случае это будет выглядеть примерно так:

Код

set #a 0x2B7BAF00 + 0x204
readmem #b #a D
// В #b должен в данном случае упасть адрес 2BF033F70
// от вернувшегося адреса необходимо расчитать смещение
set #b #b + 0x3A4
readmem #c #b D
set #c #c +0x418
readmem #d #c D
и т.д.

Учтите, что значения при выводе в лог для отладки будут десятичными а не хексом. Для удобства можно использовать:

Код

log dec2hex(#b)

// Вообще очень странная лапша из адресов. Обычно вперед-назад указатели не прыгают, а идут только вперед.

Сообщение отредактировал DarkMaster - 27.2.2015, 9:07

[ivanTu]

Спасибо уважаемы Дарк , все получилось, но уж больно огромен код получается )))
Можете подсказать как оптимизировать можно, если это возможно?

Код

// Считываем базовый адрес и оффсеты HP выбранной цели
set #point0 0x7D47265C + 0x72C
readmem #point0 #point0 d
set #point1 #point0 + 0xf8
readmem #point1 #point1 d
set #point2 #point1 + 0x418
readmem #point2 #point2 d
set #point3 #point2 + 0x3A4
readmem #point3 #point3 d
set #target_hp #point3 + 0x204 // Получили адрес памяти HP выбранной цели
readmem #target_hp #target_hp d  // Обьявляем переменную для адреса #target_hp
// КОНЕЦ // Считываем базовый адрес и оффсеты HP выбранной цели

:start_script   
hint HP  =  #target_hp
goto start_script

[DarkMaster]

Можете подсказать как оптимизировать можно, если это возможно?

По сути никак. Можно создать массив с офсетами, потом засунуть все это в цикл for, но меньше оно вряд ли станет, только при этом еще и станет черт ногу сломит. Было бы оно длинее раза в 2, то был бы смысл хоть какой-то. Можно вынести в подпрограмму и загнать в хвост, чтобы глаза не мозолило. Посмотрите gosub.

[ivanTu]

Теперь другая проблема, тестил скрипт на 64х битной системе, принес домой адреса не читаются на 32х битной такое возможно? Есть ли решение?

включаю этот же скрипт на домашнем компе

Код

// Считываем базовый адрес и оффсеты HP выбранной цели
set #point0 0x7D47265C + 0x72C
readmem #point0 #point0 d
set #point1 #point0 + 0xf8
readmem #point1 #point1 d
set #point2 #point1 + 0x418
readmem #point2 #point2 d
set #point3 #point2 + 0x3A4
readmem #point3 #point3 d
set #target_hp #point3 + 0x204 // Получили адрес памяти HP выбранной цели
readmem #target_hp #target_hp d  // Обьявляем переменную для адреса #target_hp
// КОНЕЦ // Считываем базовый адрес и оффсеты HP выбранной цели

hint #target_hp

выдает вместо того , что нужно -1

беда.... (

[DarkMaster]

Теперь другая проблема, тестил скрипт на 64х битной системе, принес домой адреса не читаются на 32х битной такое возможно? Есть ли решение?

изменилась цепочка указателей. ищите новую для 64 бит.

тут кстати возможна большая трагедия. Если будет приложение 64 битным с 64 битной адресацией, то пилот ее не поймет - данный апдейт был потерян вместе с теми же исходниками на адресацию по длл.

[ivanTu]

Уважаемый Дарк, а возможно как то проверить в начале скрипта битность системы, а затем запускать требуемые куски скрипта?
про запуск нужного куска я так понимаю gosub мне поможет, а вот как проверить битность? Через реестр есть мысль, но тут опять вопрос на разных типах систем XP Vista и т.д адрес так же разный наверное... может есть какое то универсальное решение...

[DarkMaster]

Самый тупой способ - проверить существование папок. Например, wow64. Вообще в пилоте прямого вытягивания битности и работы с реестром нет. Данная методика из костылей батников. Там проверяют зарезервированную системную переменную.

[ivanTu]

Уважаемый Дарк подскажите , как можно работать с значением в формате Float выдает 0 всегда, если можите с примером пожалуйста.

[DarkMaster]

используйте строковую переменную, а не числовую. В числовую не может быть помещено значение с точкой.

добавил в команды 'readmem' и 'writemem' операции с числами с плавающей запятой
B:byte = 1b; W:word = 2b; D:dWord = 4b; C:char = 1b; S:String = 1-255b;
DO:double = 8b; F:float = 4b; R:real = 6b;

Либо вот так:
https://forum.uokit.com/index.php?s=&sh...st&p=161352 (шутка)
Я кстати минут на 15 опоздал(( писал тот же самый функционал...

[ivanTu]

Если ставлю строку "S" то выдает так же 0 не понимаю в чем дело

readmem #a 0x0F2999BC s 10
hint #a

хотя на тот момент я точно знаю, что значение 9.024896622

[DarkMaster]

Если ставлю строку "S" то выдает так же 0 не понимаю в чем дело

Ну причем тут S? Откуда она вообще взялась?

используйте строковую переменную, а не числовую.

добавил в команды 'readmem' и 'writemem' операции с числами с плавающей запятой

F:float = 4b

[ivanTu]

S это string тобиш строка, яподумал что про строковую переменную вы имели ввиду это, просто F ноль возвращает, покажите пожалуйста пример кода, не могу никак понять что да как...

Все разобрался )

теперь я знаю что переменная с $ - это строковая )))

Даже в последующем найденом значении делаю проверку на целое число все работает.

$a 8.98880291

If $a > 6
hint
end_if

короче говоря все получилось! Спасибо большое Дарк! )


то есть я так понимаю число проверяется до точки?

[DarkMaster]

Не совсем так. Если я правильно понимаю логику пилота, а здесь она не совсем адекватная, то все сравнение идет посимвольно кодами символов.
Т.е. берем строку, лезем в ascii таблицу, переводим все символы в коды. http://www.cdrummond.qc.ca/cegep/informat/...ages/ASCII1.GIF

Т.е. у нас получится вместо:
8.98880291
56 46 56 56 56 48 50 57 49
Далее из этого числа по одной цифре идет сравнение. Символ точки меньше значения цифры и это видимо как-то обрабатывается. Вообще трогать страшно.

В общем и целом делать так крайне не рекомендую, это ну уж очень не корректно. Используйте trunc или round для приведения к целочисленному типу.

Код

if 9.0 > 9
    log +
else
    log -
end_if

Уже косяк.

Сообщение отредактировал DarkMaster - 5.3.2015, 13:01

[ivanTu]

я считываю значение из памяти оно идет 9.00000хххх и сравниваю его с целым числом все сравнивается правильно, фиг знает, числа с точкой сравниваются как целое число до точки, все что после точки, не берет пилот в сравнение.

set $a 5.98880291
set $b 6
if a < b
hint // В данном случае хинт выведется
end_if

[cirus]

Может так: if $a < $b

[DarkMaster]

все сравнивается правильно

Код

if 9.0 > 9
log +
else
log -
end_if


Уже косяк.

Не может 9.0 быть больше, чем 9. Это ошибка.