Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.10.2011, 08:34
JonRamzes JonRamzes вне форума
Прохожий
 
Регистрация: 19.10.2011
Сообщения: 9
Репутация: выкл
Вопрос Небольшой трейнер

Привет всем, кто есть на этом форуме.

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

Последний раз редактировалось JonRamzes, 15.08.2012 в 16:52.
Ответить с цитированием
  #2  
Старый 19.10.2011, 19:58
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
с адресом типа $FFFFFFF
Н-да.........

Зависит от того, как реализован чат. Если стандартным окном - то все элементарно. Но, судя по картинке, сделан иначе (хоть его там и не видно).
Вообще надо найти в памяти переменную, отвечающую за чатовую строку (скорее всего это будет указатель на массив символов, по-простецки "строка"), поменять указатель на новую строку и нажать энтер.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #3  
Старый 20.10.2011, 09:18
JonRamzes JonRamzes вне форума
Прохожий
 
Регистрация: 19.10.2011
Сообщения: 9
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Bargest
Зависит от того, как реализован чат. Если стандартным окном - то все элементарно. Но, судя по картинке, сделан иначе (хоть его там и не видно).
Его можно вызвать...

Последний раз редактировалось JonRamzes, 15.08.2012 в 16:53.
Ответить с цитированием
  #4  
Старый 20.10.2011, 15:33
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Тогда
Цитата:
надо найти в памяти переменную, отвечающую за чатовую строку (скорее всего это будет указатель на массив символов, по-простецки "строка"), поменять указатель на новую строку и нажать энтер.
. Читаем про ReadProcessMemory и WriteProcessMemory, придумываем способ найти строку (как пример - вбить че-нибудь в чате руками и найти эту строку в памяти проги, хотя я этим не занимался), поменять строку (или лучше найти указатель на нее и менять его).
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #5  
Старый 20.10.2011, 16:55
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Кто автор этой Ыгры? Поговори с разрабами, мож по просьбе сделают возаимодействие через OLE.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #6  
Старый 21.10.2011, 06:58
JonRamzes JonRamzes вне форума
Прохожий
 
Регистрация: 19.10.2011
Сообщения: 9
Репутация: выкл
По умолчанию

Нет, не сделают. Их вообще не достать.
Ответить с цитированием
  #7  
Старый 21.10.2011, 08:12
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

keybd_event?
Ответить с цитированием
  #8  
Старый 22.10.2011, 14:41
JonRamzes JonRamzes вне форума
Прохожий
 
Регистрация: 19.10.2011
Сообщения: 9
Репутация: выкл
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 WriteProcessMemory (HandleWindow, ptr($007E6FF8), @buf, 4, write);
end.

Последний раз редактировалось JonRamzes, 15.08.2012 в 16:55.
Ответить с цитированием
  #9  
Старый 22.10.2011, 15:55
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Эмуляцию нажатия клавиш не пробовал сделать?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #10  
Старый 22.10.2011, 15:57
JonRamzes JonRamzes вне форума
Прохожий
 
Регистрация: 19.10.2011
Сообщения: 9
Репутация: выкл
По умолчанию

Нет. Как её сделать?
Ответить с цитированием
  #11  
Старый 22.10.2011, 16:12
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

SendMessage(...)
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #12  
Старый 22.10.2011, 16:42
JonRamzes JonRamzes вне форума
Прохожий
 
Регистрация: 19.10.2011
Сообщения: 9
Репутация: выкл
По умолчанию

А ничего нельзя сделать с тем, что уже есть?
Ответить с цитированием
  #13  
Старый 23.10.2011, 21:04
tred tred вне форума
Прохожий
 
Регистрация: 06.01.2011
Сообщения: 7
Репутация: 10
По умолчанию

по подробней напиши как чат вызываеш и как отправляеш набранное сообщение
Ответить с цитированием
  #14  
Старый 24.10.2011, 11:32
JonRamzes JonRamzes вне форума
Прохожий
 
Регистрация: 19.10.2011
Сообщения: 9
Репутация: выкл
По умолчанию

Цитата:
Сообщение от tred
по подробней напиши как чат вызываеш и как отправляеш набранное сообщение
Ничего сложного. Чат можно не открывать. Просто пишешь в окне, он набирается как на скрине 2.2

Если писать в приват, нажимаем клавишу F5, при этом чат как был включен так и остаётся. Приват - место кому отправлять только.

Функции для включения и выключения чата не используются, т.е он всегда включён.

__________________________________________________ ______________________________

Цитата:
buf:= length(Edit1.Text);
WriteProcessMemory (HandleWindow, ptr($007E1DAC), @buf, 4, write);
Адрес указывает на кол-во символов которое введено в строку. Пробовал использовать это, но текст не вводится, а блокирует столько символов, сколько введено в Edit. Как заставить теперь его ещё писать текст в чат?

Последний раз редактировалось JonRamzes, 24.10.2011 в 13:38.
Ответить с цитированием
  #15  
Старый 03.11.2011, 08:30
JonRamzes JonRamzes вне форума
Прохожий
 
Регистрация: 19.10.2011
Сообщения: 9
Репутация: выкл
По умолчанию

Люди ........

Последний раз редактировалось JonRamzes, 15.08.2012 в 16:54.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:48.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025