Изменяем внешний вид CE на свой вкус

metalin · 26.05.2011, 19:38

Цитата:

Сообщение от Saw55


	А как вообще открыть и изменить анлог CE в делфи,я чё-то не понял..?

открыть нужно файл cheatengine.lpr в папке с исходником

Цитата:

Сообщение от BDarkRAVEN


	чтото я немогу выразить то что я хочу узнать... по скрину имеется ввиду в поле edit1 выведется значение, которое задам я, выбрав соответствующее оружие. кпримеру M4A1 Ext. 8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99 это значение, и оно появится в edit1, после чего я хочу чтобы это значение еще появилось в scanvalue! вот и объясните как добавить в scanvalue значение в edit1 Модераторы, если что то удалите лишний флуд

парень имеет в виду чтоб при нажатии на M4A1 значение копировалось не только в строку с поиском но еще и в edit1

Dimedrol1536 · 26.05.2011, 20:21

BDarkRAVEN, и все кому надо.

Код:

scanvalue.text:='наше значение';
NewScan.Perform(WM_LBUTTONDOWN, 0, 0);
NewScan.Perform(WM_LBUTTONUP, 0, 0);
наше имя формы:=Tнаше имя формы.create(self);
наше имя формы.show

Вот [Ссылки могут видеть только зарегистрированные пользователи. ].

serj228 · 26.05.2011, 22:25

Цитата:

Сообщение от BDarkRAVEN


	чтото я немогу выразить то что я хочу узнать... по скрину имеется ввиду в поле edit1 выведется значение, которое задам я, выбрав соответствующее оружие. кпримеру M4A1 Ext. 8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99 это значение, и оно появится в edit1, после чего я хочу чтобы это значение еще появилось в scanvalue! вот и объясните как добавить в scanvalue значение в edit1

я так понял тебе надо чтоб значение появилась и в Edit и в scanvalue дак и собирай весь код из кусков

scanvalue.Text:='8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99';
form3.edit1.text:='8C 3F CD CC 0C 3F CD CC 4C 3F CD CC 0C 3F 9A 99';

где form3 твоя справочная форма значений

BDarkRAVEN · 27.05.2011, 02:18

Цитата:

Сообщение от Saw55

А как вообще открыть и изменить анлог CE в делфи,я чё-то не понял..?

вот [Ссылки могут видеть только зарегистрированные пользователи. ] скачать чистый чит энджин не компилированный, потом скачай прогу которой будешь открывать, кпримеру Lazarus 0.9.3. и потом открывай файл (преждевременно распакуя архив конечно же) CheatEngine60src/Cheat Engine 6/cheatengine.lpi вот и все. а если ты говоришь насчет аналога, то есть один из способов - попроси source файлы у создателя

Добавлено через 9 минут
serj228,
Dimedrol1536(2),
я уже сделал немного подругому поразмыслив мозгами просто в самом окне которое показано тут предварительно, я добавил еще строчку TLabel (Вставить код в ScanValue?) и ниже TButton (ОК) и TButton (Закрыть). ну при Закрыть - закрыть само собой, а при ОК - вписывается код из edit1 в scanvalue, вот сам код который будет при нажатии на ОК, и все работает:

Код:

mainform.scanvalue.text:=edit1.text;

крайслер · 27.05.2011, 02:32

Такой вопрос:
Как организовать, чтоб по нажатию по одному из пунктов меню, открывался определенный файл, находящийся в папке с EXE-фаилом(например: по нажатию на Cheat Engine Help(или на F1) открывался фаил справки(help.chm)

serj228 · 27.05.2011, 09:44

Цитата:

Сообщение от крайслер


	Такой вопрос: Как организовать, чтоб по нажатию по одному из пунктов меню, открывался определенный файл, находящийся в папке с EXE-фаилом(например: по нажатию на Cheat Engine Help(или на F1) открывался фаил справки(help.chm)

эт тоже не сложно, находиш в самом верху слово uses и видиш под ним то что подключено Windows, Messages, SysUtils.... и тд, через запятую к этой кучке добавляешь еще и ShellAPI.
все теперь на кнопке можешь воспользоваться вот этим обработчиком

ShellExecute(Handle, 'open','C:\1.doc', nil, nil, SW_SHOW);

вот и все прописываешь путь к любому файлу он соответствующей программой откроет его

BDarkRAVEN · 27.05.2011, 14:32

serj228, помоги кое с какой проблемой, а то при создании СЕ во второй раз мне ошибку выдает, которая раньше не была. вобщем сама ошибка:
Fatal: Can't find Unit1 used by MainUnit
Я не понимаю, что он от меня хочет??? если я в обоих юнитах прописал то что надо в implemetation (вроде так называется)!! юнит главный - MainUnit, второй - PBp. так вот, в MainUnit я прописал так:

Код:

impeletation uses ...., ..... , ..... , PBp; (имеется ввиду в самом конце добавил)

а в PBb прописал так:

Код:

impeletation uses MainUnit;

и самое главное что он выдает ошибку с Unit1, когда такого вообще нету. хоть напишу в impeletation MainUnit'а - PBb, то Unit1 (самое главное что Unit1 даже нет), или сразу две. всеравно эта же ошибка. как ее решить?

serj228 · 27.05.2011, 16:14

BDarkRAVEN, скинь исходник я посмотрю в чем беда

Dimedrol1536 · 27.05.2011, 19:20

Вот решил выложить инжектор для СЕ.
На форму ложим кнопку и OpenDialog c Dialog.

Код:

procedure TMainForm.Button1Click(Sender: TObject);
var dll: string;
    functionname: string;
    dllList: tstringlist;
begin
  functionname:='';
  dll:='';

  if opendlldialog.Execute then
  begin
    dll:=opendlldialog.Filename;
    if MessageDlg('Хотите ли вы посмотреть информацию по DLL?',mtConfirmation	,[mbyes,mbno],0)=mryes then
    begin
      dllList:=tstringlist.Create;

      try
        peinfo_getExportList(opendlldialog.filename, dllList);
        with TfrmFunctionList.create(self,dllList) do
        begin
          if showmodal=mrok then
            if itemindex<>-1 then
              functionname:=functions[itemindex];

          free;
        end;
      finally
        dllList.free;
      end;
    end;

    InjectDll(dll,functionname);
    symhandler.reinitialize;
    showmessage('DLL заинжектилось');
  end;
end;

Далее клацаем один раз по нашему OpenDialog и в ObjeckInspektor
пишем:

Код:

Ctl3D => True
DefaultExt => dll
Filter => Dll-file (*.dll)|*.dll|All files (*.*)|*.*
FilterIndex => 1
Name => OpenDllDialog

Всё остальное не изменяем.

З.Ы. Не знал куда можно это выложить, решил сюда.

**for97** · 28.05.2011, 00:47

Цитата:

Сообщение от Dimedrol1536(2)

Вот решил выложить инжектор для СЕ.
На форму ложим кнопку и OpenDialog c Dialog.

Код:

procedure TMainForm.Button1Click(Sender: TObject); var dll: string; functionname: string; dllList: tstringlist; begin functionname:=''; dll:=''; if opendlldialog.Execute then begin dll:=opendlldialog.Filename; if MessageDlg('Хотите ли вы посмотреть информацию по DLL?',mtConfirmation ,[mbyes,mbno],0)=mryes then begin dllList:=tstringlist.Create; try peinfo_getExportList(opendlldialog.filename, dllList); with TfrmFunctionList.create(self,dllList) do begin if showmodal=mrok then if itemindex<>-1 then functionname:=functions[itemindex]; free; end; finally dllList.free; end; end; InjectDll(dll,functionname); symhandler.reinitialize; showmessage('DLL заинжектилось'); end; end;

Далее клацаем один раз по нашему OpenDialog и в ObjeckInspektor
пишем:

Код:

Ctl3D => True DefaultExt => dll Filter => Dll-file (*.dll)|*.dll|All files (*.*)|*.* FilterIndex => 1 Name => OpenDllDialog

Всё остальное не изменяем.

З.Ы. Не знал куда можно это выложить, решил сюда.

занесу в шапку

AiveNKing · 28.05.2011, 09:38

Не поможете?
Когда отываю Windows List и выбираю процесс Point Blank, вылазиет такая [Ссылки могут видеть только зарегистрированные пользователи. ]

BDarkRAVEN · 29.05.2011, 11:41

Цитата:

Сообщение от AiveNKing


	Не поможете? Когда отываю Windows List и выбираю процесс Point Blank, вылазиет такая [Ссылки могут видеть только зарегистрированные пользователи. ]

Попробуй зафризить процесс Point Blank, всетаки онлайн игра. Я когда ее фризю так все работает, а если нет - то не работает

AiveNKing · 29.05.2011, 12:12

Через что морозить процесс?

**for97** · 29.05.2011, 12:46

Цитата:

Сообщение от AiveNKing


	Через что морозить процесс?

можно Process Explorer(ом)

AiveNKing · 29.05.2011, 16:56

При заморозке процесса, вернее после морозки, появляется та же проблема

Изменяем внешний вид CE на свой вкус

Скрипты и прочий софт для Point Blank