[Помогите!] Нужна помощь с слежкой за процессами

[КириллZ]

Сразу к сути: Есть лаунчер, к нему нужно встроить функцию отслеживания процессов, т.е. если запускается cheatengine к примеру, то процесс игры закрывается - Rust, а в лаунчере появляется форма, что пользователь заблокирован и на сервер FTP отсылается UID лаунчера для предотвращения повторного запуска клиента. Delphi 7

[Dinmaite]

Ну собственно...
Следите за процессами, видя запущенный СЕ глушите игру и отправляете ID.

Здесь можно получить ответы на конкретный вопрос, но не на всё разом.

[артём612]

Цитата: Сообщение от КириллZ Сразу к сути: Есть лаунчер, к нему нужно встроить функцию отслеживания процессов, т.е. если запускается cheatengine к примеру, то процесс игры закрывается - Dayz, а в лаунчере появляется форма, что пользователь заблокирован и на сервер FTP отсылается UID лаунчера для предотвращения повторного запуска клиента. Delphi 7

Для поиска процесса cheatengine и подобных стоит пользоваться функциями
Process32First+Process32Next
Так же процесс может быть переименован из-за чего это будет защищать только от школоюзеров данной программы...
Далее следует использовать функцию для поиска окон Enumwindows что так же не будет 100% гарантом что программа не запущена...
Ещё надо сканировать блок описания каждого запущенного процесса (это там где пишется версия ,компания и т.д) на наличие каких-то сигнатурных(постоянных) строк как получать данный блок я незнаю т.к. с этим я не сталкивался.

Только использование этих 3 методов даст вам ~70% гарантию потому что редакторов памяти процессов очень много и на каждый из них написать сканер будет довольно сложно.

+ ко всему не стоит делать такой сканер в отдельной длл так как его будет легко пропатчить.

[VeTaL_UA]

Цитата: Process32First+Process32Next

там какой-то hSnapshot требуют, не подскажешь?

Цитата: Далее следует использовать функцию для поиска окон Enumwindows

а при переборе какого-то hSnapshot ты разве не получаешь id потоков процесса, окна которых надо таки перечислять через EnumThreadWindows?

Цитата: Ещё надо сканировать блок описания каждого запущенного процесса (это там где пишется версия ,компания и т.д)

http://zhyk.ru/forum/showpost.php?p=4282654&postcount=2 как-то так

Цитата: + ко всему не стоит делать такой сканер в отдельной длл так как его будет легко пропатчить.

ойлол

Не давай советов, если не шаришь, о чём говоришь, артём612

[артём612]

Цитата: Сообщение от VeTaL_UA там какой-то hSnapshot требуют, не подскажешь? а при переборе какого-то hSnapshot ты разве не получаешь id потоков процесса, окна которых надо таки перечислять через EnumThreadWindows? http://zhyk.ru/forum/showpost.php?p=4282654&postcount=2 как-то так ойлол Не давай советов, если не шаришь, о чём говоришь, артём612

Цитата: там какой-то hSnapshot требуют, не подскажешь?

Ну я про снапшоты не упоминал так как я указал только на функции которыми это можно выполнить ,а документацию я думаю автор читать в состоянии...
Но если это так уж необходимо для тебя ...
То надо сначала сделать снапшот процессов а потом перебирать их через функции Process32First + Process32Next

Вот пример

HANDLE hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 if (hProcessSnap == INVALID_HANDLE_VALUE) return 0;
  PROCESSENTRY32 pe32;
 pe32.dwSize = sizeof(PROCESSENTRY32);
 if (!Process32First(hProcessSnap, &pe32)) { CloseHandle(hProcessSnap); return 0; }
    do
     {
        if(!lstrcmp(  pe32.szExeFile,"cheatengine.exe"))ExitProcess(0);

      } while (Process32Next(hProcessSnap, &pe32));

CloseHandle(hProcessSnap);

Цитата: а при переборе какого-то hSnapshot ты разве не получаешь id потоков процесса, окна которых надо таки перечислять через EnumThreadWindows?

Ну я вообще про потоки не говорил ничего

BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)
{

	char CaptionWindow[255];
        char ClassWindow[255];
        DWORD ProcID = 0;

	GetWindowText(hwnd, CaptionWindow, 256);

		if (GetWindow(hwnd, GW_OWNER))return true;
                if (!lstrlenA(bufstr))return true;
		if (!IsWindowVisible(hwnd))return true;


	GetClassName(hwnd,ClassWindow, 256);

        if(!lstrcmp(CaptionWindow,"CheatEngine") || !lstrcmp(ClassWindow,"CheatEngine") )
        {
	ExitProcess(0);
        }

	return TRUE;
}


if(!EnumWindows(&EnumWindowsProc, 0))
{
  //Ошибка при поиске
}

Цитата: ойлол Не давай советов, если не шаришь, о чём говоришь, артём612

Лол вы меня считаете человеком который в этом совсем не разбирается ?

Если длл будет экспортировать функцию допустим
bool IsActiveCheat()
а лаунчер будет юзать эту функцию через экспорт то можно либо подменить библиотеку на свою с данной функцией либо патчить чтобы возвращалось только false

[VeTaL_UA]

артём612, тоесть вы хотите сначала снапшотом перебрать все процессы, а потом заново устроить перебор окон? о - оптимизация

Цитата: то можно либо подменить библиотеку на свою с данной функцией либо патчить чтобы возвращалось только false

точно так же, как и с exe

[артём612]

Цитата: тоесть вы хотите сначала снапшотом перебрать все процессы, а потом заново устроить перебор окон? о - оптимизация

Ну я только так себе это представлял..

Представьте пожалуйста пример кода который "оптимизирован".
желательно в личку если здесь это будет считаться не по теме...

[VeTaL_UA]

Уезжал немного. На скорую руку накидал:

function EnumThreadWndProc(Wnd: hWnd; Data: lParam): bool; stdcall;
// var
//   WindowText: array [0..255] of char;
begin
  // wnd - handle текущего окна потока, можно получить текст:
  // GetWindowText(Wnd, WindowText, 255);
  // или класс окна:
  // GetClassName(Wnd, WindowText, 255);
  // или что-либо ещё
  // перечислим дочерние окна, ОСТОРОЖНО РЕКУРСИЯ :D
  EnumChildWindow(Wnd, @EnumThreadWndProc, Data);
  result := True;
end;

procedure DoSmth;
var
  hProcessSnap, hModuleSnap, hThreadSnap: THandle;
  pe32: TProcessEntry32;
  me32: TModuleEntry32;
  te32: TThreadEntry32;
begin
  hProcessSnap := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  pe32.dwSize := SizeOf(TProcessEntry32);
  if Process32First(hProcessSnap, pe32) then
    repeat
    // pe32.szExeFile - путь к exe, его можно проверить
    // путь можно заюзать для получения FileDescription, подробнее:
    // http://zhyk.ru/forum/showpost.php?p=4282654&postcount=2
    hModuleSnap := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE,
      pe32.th32ProcessID);
    me32.dwSize := SizeOf(TModuleEntry32);
      if Module32First(hModuleSnap, me32) then
        repeat
        // me32.szModule - имя модуля, его можно проверить
        // me32.szExePath - путь к модулю, его можно проверить
        hThreadSnap := CreateToolHelp32Snapshot(TH32CS_SNAPTHREAD,
          me32.th32ProcessID);
        te32.dwSize := SizeOf(TThreadEntry32);
          if Thread32First(hThreadSnap, te32) then
            repeat
              EnumThreadWindows(te32.th32ThreadID, @EnumThreadWndProc, 0);
            until not Thread32Next(hThreadSnap, te32);
        CloseHandle(hThreadSnap);
        until not Module32Next(hModuleSnap, me32);
    CloseHandle(hModuleSnap);
    until not Process32Next(hProcessSnap, pe32);
  CloseHandle(hProcessSnap);
end;