1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

جعل الخلفية يتساقط منها الثلج

الموضوع في 'قسم فيجول بيسك دوت نت VB.NET' بواسطة باسم الموسوي, بتاريخ ‏25 أكتوبر 2014.

كاتب الموضوع : باسم الموسوي المشاهدات : 753 الردود : 22 ‏25 أكتوبر 2014
حالة الموضوع:
مغلق
  1. غير متصل

    باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    27
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    بسم الله الرحمن الرحيم
    السلام عليكم ورحمة الله وبركانه
    طريقة جعل خلفية البرنامج يتساقط منها الثلج
    أولاً أضف تايمر وغير لون الخلفية الى اللون الأسود
    [​IMG]
    ثم أمسح الكود كله
    ثم ضع هذا الكود
    كود:
    [SIZE=4][COLOR=Orange]Public Class Form1[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange] 'iq-team.org/vb[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Dim num, x(), y(), v(), s() As Integer[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Dim random As Random = New Random[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Dim graphics As System.Drawing.Graphics[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Dim rectangle As Rectangle[/COLOR][/SIZE]
    
    [SIZE=4][COLOR=Orange]    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Me.UpdateStyles()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        snow()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Timer1.Start()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Private Sub snow()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        num = 2000[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        ReDim x(num - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        ReDim y(num - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        ReDim v(num - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        ReDim s(num - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Dim i As Integer[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        For i = 0 To num - 1[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            Insnow(i)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Next[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Private Sub Insnow(ByVal i As Integer)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        x(i) = random.Next(0, Me.Width - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        y(i) = random.Next(0, Me.Height * 5 / 7)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        v(i) = random.Next(5, 20)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        s(i) = (random.Next(1, 3) * 100 + random.Next(50, 200)) / 100[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Static i As Integer[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        For i = 0 To num - 1[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            y(i) = y(i) + v(i)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            If y(i) >= Me.Height Then[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]                Insnow(i)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            End If[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Next[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Invalidate()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    
    [SIZE=4][COLOR=Orange]    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        graphics = e.Graphics[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Dim i As Integer[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        For i = 0 To num - 1[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            graphics.FillEllipse(Brushes.White, x(i), y(i), s(i), s(i))[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Next[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        rectangle = New Rectangle(0, 0, Me.Width, Me.Height)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]End Class[/COLOR][/SIZE]
    
    
    وجرب النتيجة
    لاتنسا اللايك للتشجيع:{6!}:
    في أمان الله
     


    جاري تحميل الصفحة...
  2. غير متصل

    باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    27
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    رد: جعل الخلفية يتساقط منها الثلج

    ملاحظة لتغيير لون الثلج من الأبيض الى اللون الذي تريده
    غير كلمة Brushes.White الى اللون الذي تريده مثل الى اللون الأحمر Brushes.Red
    في هذا السطر

    كود:
    graphics.FillEllipse(Brushes.White, x(i), y(i), s(i), s(i))

     


  3. غير متصل

    Ameer Eagle V.I.P
    V • I • P

    عضو منذ:
    ‏7 يونيو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    2,777
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:

    رد: جعل الخلفية يتساقط منها الثلج

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


  4. غير متصل

    باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    27
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    رد: جعل الخلفية يتساقط منها الثلج

    منور الموضوع Ameer Eagle
     


  5. غير متصل

    Jeo Sawager
    Developer

    عضو منذ:
    ‏15 أكتوبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:

    رد: جعل الخلفية يتساقط منها الثلج

    مشكور ع آلطرح آلرآئع :{1!}:​
     


  6. غير متصل

    باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    27
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    رد: جعل الخلفية يتساقط منها الثلج

    حياكم الله آخواني الآعزاء
    نورتو الموضوع مروركم شرف لي
     


  7. غير متصل

    ahmad.h4x0r
    rank
    Developer

    عضو منذ:
    ‏24 يونيو 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الإقامة:

    رد: جعل الخلفية يتساقط منها الثلج

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


    الله لا يحرمنا من جديك
     


  8. غير متصل

    باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    27
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    رد: جعل الخلفية يتساقط منها الثلج

    منور الموضوع ahmad.h4x0r
     


  9. غير متصل

    NETJOURNAL
    مشرف

    عضو منذ:
    ‏18 مايو 2006
    عدد المشاركات:
    الإعجابات المتلقاة:
    1,544
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    ExploitCoding - ShellCoding - Defacer
    الإقامة:

    رد: جعل الخلفية يتساقط منها الثلج

    بطل ورده استمر ..[​IMG]
     


  10. غير متصل

    MR.HACKER.DZ
    rank
    Developer

    عضو منذ:
    ‏23 سبتمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    رد: جعل الخلفية يتساقط منها الثلج

    شكرا س
     


حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...