• My Prophile

    Gw lahir 23 taon yang lalu di RS ?? (gak tau.red).....gw live at Fan Banana Street 14 N 647 AM ....Gw hobby bgt ma motor,sk8, n chatting....gw skrg lagi njalani tugas2 dri MJC....meski kuliah cma 1 mggu...tugase ???wuadow.....uedan tuenan....so mari berkawand....

  • ShoutBox

  • Yang Lagi Online di Malang

  • Alternatif

  • Klik tertinggi

    • Tak ada

Mematikan Proses Serentak

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.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: