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

تحدي Easy


الموضوع في 'قسم التحديات' بواسطة حسين رضا, بتاريخ ‏2 يوليو 2016.

الكاتب : حسين رضا | المشاهدات : 344 | الردود : 12
حالة الموضوع:
مغلق
  1. حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    91
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    سلام عليكم

    [​IMG]
    اول تحدي لي
    الشروط
    1- مطلوب جميع الشروط الموجوده
    2- عدم التلاعب بلاكواد
    3- يوجد 2 رساله نجاح مطلوبات
    [​IMG]
    لا توجد اي اخطاء
    موفقين
    [​IMG]
    لتحميل التحدي

    http://www.kuwaiti.co/mwxvl4avgsym
     
    -مصطفى الموسوي- و ahmed_hack معجبون بهذا.
  2. ahmed_hack Developer

    الأنتساب:
    ‏8 مارس 2012
    المشاركات:
    51
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    30
    الوظيفة:
    hack and games
    الإقامة:
    الاردن
    نظام التشغيل:
    Linux
    :eyes: لي عودة :skull:
     
    أعجب بهذه المشاركة حسين رضا
  3. حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    91
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    انرت حبيبي موفق
     
  4. abomh58 Active DeveloPer

    الأنتساب:
    ‏2 يوليو 2016
    المشاركات:
    111
    الإعجابات المتلقاة:
    26
    نقاط الجائزة:
    75
    الجنس:
    ذكر
    الإقامة:
    Algeria
    نظام التشغيل:
    windows 8.1
    جاري التجربة
     
    أعجب بهذه المشاركة حسين رضا
  5. αℓɪ αℓɪяαqɪ آداريً شؤون الأعضًاء

    الأنتساب:
    ‏30 يونيو 2015
    المشاركات:
    164
    الإعجابات المتلقاة:
    38
    نقاط الجائزة:
    75
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    بالتوفيق للجميع
     
    أعجب بهذه المشاركة حسين رضا
  6. -مصطفى الموسوي- :.HackTheBad:. مشرف

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    129
    الإعجابات المتلقاة:
    59
    نقاط الجائزة:
    75
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    اول شرط
    Private Sub META_Tick(sender As Object, e As EventArgs)
    If File.Exists("C:\I'm SCream.dll") Then
    Dim stream As FileStream = New FileStream("C:\I'm SCream.dll", FileMode.Open, FileAccess.Read, FileShare.Read)
    Dim streamReader As StreamReader = New StreamReader(stream)
    If Operators.CompareString(streamReader.ReadLine(), "ACTIVE_THESWING_PROGRAM_BYHUSSEIN_RIDAMATH", False) = 0 Then
    AddressOf Me.META.[Stop]()
    Else
    Me.Close()
    End If
    Else
    Me.Close()
    End If
    End Sub
    يجب ان تنشاء I'm SCream.dll
    في مسار قرص C
    اذا لم يتم تحقيق الشرط يتم الخروج من البرنامج
    الشرط الثاني
    If openFileDialog.ShowDialog() = DialogResult.OK Then
    AddressOf Me.MEE.Image = Image.FromFile(openFileDialog.FileName)
    Dim fileStream As FileStream = New FileStream(openFileDialog.FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
    fileStream.SetAccessControl(New FileSecurity())
    Try
    فتح الصورة من ثم القراءة
    اذا
    If AddressOf Me.ISS.Image.PixelFormat = PixelFormat.Format8bppIndexed Then
    Interaction.MsgBox("Very good Go To the programmer", MsgBoxStyle.Information, "You king")
    Else
    Interaction.MsgBox("Error :(", MsgBoxStyle.Information, ":(")
    End If
    مقاسات الصورة مساوية للـ Format8bppIndexed
    ويساوي
    Indexed = 65536
    Gdi = 131072
    Alpha = 262144
    PAlpha = 524288
    Extended = 1048576
    Canonical = 2097152
    Undefined = 0
    DontCare = 0
    Format1bppIndexed = 196865
    Format4bppIndexed = 197634
    Format8bppIndexed = 198659
    Format16bppGrayScale = 1052676
    Format16bppRgb555 = 135173
    Format16bppRgb565
    Format16bppArgb1555 = 397319
    Format24bppRgb = 137224
    Format32bppRgb = 139273
    Format32bppArgb = 2498570
    Format32bppPArgb = 925707
    Format48bppRgb = 1060876
    Format64bppArgb = 3424269
    Format64bppPArgb = 1851406
    Max = 15
    يتم تحقيق الشرط و ظهور رسالة النجاح الاولى و العكس صحيح
    الشرط التالي
    If Conversions.ToBoolean(fileStream.Position.ToString()) Then
    Interaction.MsgBox("Sorry Paint nothing image", MsgBoxStyle.Critical, "Sorry")
    End If
    التحويل الى النوع المنطقي true , false
    الشرط التالي
    If AddressOf Me.MEE.Image.PixelFormat = PixelFormat.Format8bppIndexed And AddressOf Me.MEE.Image.Width = 989 And AddressOf Me.MEE.Image.Height = 478 Then
    Interaction.MsgBox("Very good Next", MsgBoxStyle.Information, "You King")
    AddressOf Me.IISM.Enabled = True
    AddressOf Me.Button1.Text = "Enter"
    Else
    Interaction.MsgBox("Error :(", MsgBoxStyle.Information, ":(")
    End If
    يجب ان تكون مقاسات الصورة بـارتفاع 478
    وعرض 989
    اذا تم التحقيق بالتالي ظهور رسالة النجاح و العكس صحيح
    الشرط التالي
    If Operators.CompareString(AddressOf Me.Button1.Text, "Enter", False) = 0 AndAlso (AddressOf Me.IISM.Text.Contains("Hussein The Lord") And AddressOf Me.IISM.Lines.Length = 22) Then
    Interaction.MsgBox("Complete good", MsgBoxStyle.Information, "YOu THe KIng")
    End If
    التحقق من وجود تيكست في البكجر بوكس و هو Hussein The Lord و طول النص يساوي 22
    بالتالي ظهور رسالة النجاح و العكس صحيح
    لم يتم التطبيق لسبب لا املك صورة بهذه المقاسات و المطلوب بدون التلاعب بالاكواد
    نتمنى ان يكون التحدي شيء معقول وليس شروط لم يتم تحققها و تريد عدم التلاعب بالاكواد
    تحياتي لك
     
    أعجب بهذه المشاركة حسين رضا
  7. ♛ G H O S T ♛ مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    578
    الإعجابات المتلقاة:
    465
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    حبيبي شروط تحدي حلوه جدا
    اول شرط يكون ملف في هذه مسار
    If File.Exists("C:\I'm SCream.dll") Then
    ويتم تحقق
    [​IMG]
    شرط الثاني
    لا املك صوره بهيج قياسات
    حلوه تحدي
    موفقين بركه بلشباب
     
    أعجب بهذه المشاركة حسين رضا
  8. حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    91
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    اولاً منور حبيبي الغالي الشروط صحيحه لكن لا داعي ان تطول هيج لان انت ما كملت قوانين التحدي
    المفروض ايجاد الصوره هذا جزء من التحدي البكسل الخاص بلصوره عمو كوكل ميقصر
    انت الان جلبت الشروط هي موجود اي شخص يقدر يجلبه لكن الشرح جيد
    تقريباً حليت ربع او نصف التحدي
    مطلوب فيديو توضيحي:blush:
     
  9. حسين رضا Developer

    الأنتساب:
    ‏6 فبراير 2016
    المشاركات:
    91
    الإعجابات المتلقاة:
    15
    نقاط الجائزة:
    30
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    انرت الموضوع حبيبي
     
    أعجب بهذه المشاركة ♛ G H O S T ♛
  10. -مصطفى الموسوي- :.HackTheBad:. مشرف

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    129
    الإعجابات المتلقاة:
    59
    نقاط الجائزة:
    75
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    لا داعي للبحث ولا للفديو لان اهم شي فهم الاكواد و طرحتهن الك شرح الاكواد
     
    أعجب بهذه المشاركة حسين رضا
حالة الموضوع:
مغلق

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