Como eliminar los procesos (PID) que estan corriendo en la maquina

Vas a necesitar las siguientes apis:


dim snap as long

snap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0)

dim pe as PROCESSENTRY32
dim bflag as bool
bflag = Process32First(snap,pe)
while( bflag)
bflag = Process32Next(snap,pe)
if (pe.szExeFileName == "algo.exe") then
exitprocess(pe.th32processid)
end if
wend