|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Почитал про получение указателя и подумал что мой метод проще, надежнее и универсальнее, ну конечно для конкретного приложения.
И Артмони не всегда будет под рукой, тем более "вещь" платная. Так что, если разрулим это дело, получится какой-нибудь трейнер. Последний раз редактировалось Vayrus, 16.07.2010 в 16:55. |
#17
|
||||
|
||||
Цитата:
Код:
PInteger(ProcessHeapOffset+VarPointer)^ := 1337; //например я всё таки не понял что тебе надо? найти ты нашёл, далее выделить блок памяти (64/128/... байт) и отсеять символы Код:
function WinnowAnsiChars(ABuf: PChar): String; var i: Integer; begin Result := ''; for i:=1 to Length(ABuf) do begin if(ABuf[i] in [#1..#256])then Result := Result + ABuf[i]; end; end; TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#18
|
||||
|
||||
Нет, в том то и дело не нашел,единственно, что нашел - это слово-метку (а с помощью твоего кода - смещение на это слово), а текста после него нет (тот, из-за которого весь сыр бор), вот в чем дело(
Последний раз редактировалось Vayrus, 16.07.2010 в 17:14. |
#19
|
|||
|
|||
Здравствуйте.
Я прочитал эту тему, у меня похожая задача. Мне надо также найти текст в памяти процесса и просто проверить присутствует он там или нет. Помогите пожалуйста понять как отредактировать код чтобы он решал вышеизложенную задачу. Заранее спасибо. |