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

شرح عمل تغيير ايقونه [ vb.net ]

الموضوع في 'قسم فيجول بيسك دوت نت VB.NET' بواسطة м̨я.ǚs̲ǝя, بتاريخ ‏27 مايو 2014.

كاتب الموضوع : м̨я.ǚs̲ǝя المشاهدات : 799 الردود : 20 ‏27 مايو 2014
  1. غير متصل

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px
    ExpErt DeveloPer

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

    [​IMG]

    [​IMG]
    [​IMG]
    شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]
    [​IMG]
    1~إضٱفُة [ Button1 ~ Button2 ~ TextBox3 ~ TextBox2 ~ Button2 ]
    [​IMG]
    2~إضٱفُة [ OpenFileDialog1 ]
    [​IMG]
    3~

    Private Sub Form_Unload(ByVal Cancel As Integer)
    Dim deletefile As String
    deletefile = "LIB.dllمرائي"
    If System.IO.File.Exists(deletefile) = True Then
    System.IO.File.Delete(deletefile)
    End If


    [​IMG]
    4~

    OpenFileDialog1.DefaultExt = "exe"
    OpenFileDialog1.Filter = "ملفُٱتُ إكسً (*.exe)|*.exe"
    OpenFileDialog1.FilterIndex = 1
    If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
    TextBox1.Text = String.Empty
    TextBox1.Text = OpenFileDialog1.FileName
    End If


    [​IMG]
    5~

    OpenFileDialog1.DefaultExt = "ico"
    OpenFileDialog1.Filter = "ملفات رمز (*.ico)|*.ico"
    OpenFileDialog1.FilterIndex = 1
    If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
    TextBox2.Text = String.Empty
    TextBox2.Text = OpenFileDialog1.FileName
    End If


    [​IMG]
    6~

    If TextBox1.Text = "" Then
    MsgBox("ٱلرجَٱء ٱخٌتُيّٱر ٱلملفُ / قَٱبّل للتُنٌفُيّذٌ", MsgBoxStyle.Critical, "خِطْء إِبْدال أَلْ تِمْثالٌ صَغِير")
    End If
    If TextBox2.Text = "" Then
    MsgBox("ٱلرجَٱء ٱخٌتُيّٱر ٱلملفُ / قَٱبّل للتُنٌفُيّذٌ", MsgBoxStyle.Critical, "خِطْء إِبْدال أَلْ تِمْثالٌ صَغِير")
    End If
    If TextBox1.Text = "" Then Exit Sub

    If TextBox2.Text = "" Then Exit Sub

    IconInjector.InjectIcon(TextBox1.Text, TextBox2.Text)
    Dim pros As Process()
    pros = Process.GetProcesses()
    For Each pro As Process In pros
    If pro.ProcessName.ToLower().IndexOf("explore") > -1 Then
    pro.Kill()
    Exit For
    End If
    Next
    MsgBox("أيّقَۅنٌة تُغّيّيّر بّنٌجَٱحً!", MsgBoxStyle.Information, "نٌجَٱحً")
    End Sub


    [​IMG]
    7~إضٱفُة [ IconInjector.vb ]
    [​IMG]
    [​IMG]
    تُحًميل [ IconInjector.vb ]
    عزيزي الزائر يتوجب عليك التسجيل لمشاهدة الروابط [ تسجيل الدخول ]

    [​IMG]
    [ МĄĦМØØƉ-ȜƦɃƗȽƗ ]
    [IQ{TeaM}]
     


    1 person likes this.
    جاري تحميل الصفحة...
  2. غير متصل

    ★ قبعة القش ★
    V • I • P

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    تسلم إيدك حبيبي على شرح جميل وصل ابدعك &:":
     


  3. غير متصل

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px
    ExpErt DeveloPer

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    براك الله‌ فیك أخی
     


  4. غير متصل

    ليغـآآسـي
    rank
    Developer

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    مبدع بدون منازع :ُok:ٌ
     


  5. غير متصل

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px
    ExpErt DeveloPer

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    شُّكْـــــــر أَخٌـــــــيّ حًـــــــبّـــــــيّـــــــبّـــــــيّ .aًُoً.
     


  6. غير متصل

    Dr.H4CkEr
    DeveloPer Plus

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    [​IMG]
     


  7. غير متصل

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px
    ExpErt DeveloPer

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    [FONT="ae_AlMothnna"]
    شُّكْـــــــر أَخٌـــــــيّ
    [/FONT]
     


  8. غير متصل

    مـ☻ـجـ☻ـآهـ☻ـد <span style="background-color: #E0921B"><span styl
    DeveloPer Plus

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    مبدع يآ آخيُ ..

    موٍضوع رٍآئع جدآ ..

    وٍآصَل فيُ آلمشوٍآرٍ .. )5:"
     


  9. غير متصل

    м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px
    ExpErt DeveloPer

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    شُّكْـــــــر أَخٌـــــــيّ حًـــــــبّـــــــيّـــــــبّـــــــيّ &:":
     


  10. غير متصل

    TeePlow
    V • I • P

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

    رد: شّرحً عمل تُغّيّيّر أيّقَۅنٌة [ vb.net ]

    السلام عليكم
    شرح رائع واصل ابداعك يا بطل &:":&:":
     


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

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