Еще одна моя ленивая прога.
Прога закрывает любое количество окон клиента и 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;
Приятного пользования.
[Ссылки могут видеть только зарегистрированные пользователи. ]
________________
Мои творения ^_^ во всея интернете :
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]