[Программа] Киллер Окон PW

[IFRIT667]

Еще одна моя ленивая прога.
Прога закрывает любое количество окон клиента и 3 вида ботов МСХ Пиратес и Зц

прога делалась опять же из за лени
ибо на утро перед универом убивать 4 окна клиента вручную слишком долго

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

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

и чтобы не возникало вопросов прикладываю исходник =) прост до безобразия

{$R *.dfm}
function GetProcessId(pName: PAnsiChar): dword;
var
 Snap: dword;
 Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pName) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              Exit;
             end;
         until not Process32Next(Snap, Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;

procedure KillProgram(Name: string);
const
  PROCESS_TERMINATE = $0001;
var
  ProcessHandle : THandle;
begin
  ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, GetProcessId(PAnsiChar(Name)));
  TerminateProcess(ProcessHandle,4);
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
BitBtn1.Visible:=False;
BitBtn2.Visible:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 KillProgram('elementclient.exe');
 KillProgram('MHS-Bot-PW 2.3 Full Target.exe');
 KillProgram('PWBot.exe');
 KillProgram('zPW1.26.exe');
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;

Приятного пользования.

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

[NoDonater]

Как всегда радуешь своими простыми, но в тоже время полезными прогами))
В правильном направлении идешь, так держать)

[КролеГ]

можно написать батник на убийство процесса element client и навесить на хоткей,у меня даже переименованые окна убиваются так

[BETEP0K]

4 окна, раз 8 тыкал что бы закрыть. Что я не так делаю?

[IFRIT667]

Цитата: Сообщение от BETEP0K 4 окна, раз 8 тыкал что бы закрыть. Что я не так делаю?

один раз нажми и жди он закроет все окна

Добавлено через 1 минуту

Цитата: Сообщение от КролеГ можно написать батник на убийство процесса element client и навесить на хоткей,у меня даже переименованые окна убиваются так

батник долше убивает и он не убивает повешеные клиенты а этот киллер убивает на прямую со всеми правами на снятие задачи

[Kitsune]

IFRIT667, в батнике

Цитата: taskkill /F /IM elementclient.exe

Убьет все =)