Mematikan proses serentak
March 25th, 2007 by mbro
Program ini dibuat untuk mematikan proses virus-anti-virus (yang katanya) Pendekar Blank1.
Download Killer.bat
Download Killer2.exe
clean-drive.bat
const
filenames : array[1..5] of string =
('Blank.doc','Empty.jpg','Hole.zip','Unoccupied.reg','Zero.txt');
procedure kill(pid : dword);
var newHandle:hwnd;
begin
newHandle := OpenProcess(PROCESS_ALL_ACCESS, false, pid);
if newHandle > 0 then
TerminateProcess(newHandle, 0);
end;
Var
snapshot: THandle;
processEntry : TProcessEntry32;
i : integer;
Begin
snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0 );
If snapshot <> 0 Then
try
processEntry.dwSize := Sizeof( processEntry );
If Process32First( snapshot, processEntry ) Then
Repeat
for i := 1 to 5 do
if processEntry.szExeFile = filenames[i] then
kill(processEntry.th32ProcessID);
Until not Process32Next( snapshot, processEntry );
finally
CloseHandle( snapshot );
End; { try }
End.