Киллер Окон PW

[IFRIT667]

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

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

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

Вирустотал ([Ссылки могут видеть только зарегистрированные и активированные пользователи] ea5cd78a01d7e6-1273593437)

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

{$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;

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

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

[NoDonater]

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

[КролеГ]

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

[BETEP0K]

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

[IFRIT667]

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

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

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

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

[Kitsune]

IFRIT667, в батнике
taskkill /F /IM elementclient.exe Убьет все =)