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

♥ [شرح عمل قفل مجلد ] ♥

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

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

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

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

    [​IMG]

    [​IMG]
    [​IMG]
    [YOUTUBE]sbJ_0aTeoJg[/YOUTUBE]
    [​IMG]
    [ كےـۅدُ ]

    Imports System.IO
    Imports System.Drawing
    Imports System.Windows.Forms
    Public Class Form1
    Public status As String

    Private arr As String() = New String(5) {}
    Private Sub Folder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    status = ""

    arr(0) = ".{2559a1f2-21d7-11d4-bdaf-00c04f60b9f0}"

    arr(1) = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"

    arr(2) = ".{2559a1f4-21d7-11d4-bdaf-00c04f60b9f0}"

    arr(3) = ".{645FF040-5081-101B-9F08-00AA002F954E}"

    arr(4) = ".{2559a1f1-21d7-11d4-bdaf-00c04f60b9f0}"

    arr(5) = ".{7007ACC7-3202-11D1-AAD2-00805FC1270E}"


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    status = arr(0)



    If FolderBrowserDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then



    Dim d As DirectoryInfo = New DirectoryInfo(FolderBrowserDialog1.SelectedPath)

    Dim selectedpath As String = d.Parent.FullName + d.Name

    ProgressBar1.Value = 35

    If FolderBrowserDialog1.SelectedPath.LastIndexOf(".{") = -1 Then



    If (Not d.Root.Equals(d.Parent.FullName)) Then

    d.MoveTo(d.Parent.FullName & "\" & d.Name & status)

    Else

    d.MoveTo(d.Parent.FullName + d.Name & status)

    End If

    TextBox1.Text = FolderBrowserDialog1.SelectedPath
    ProgressBar1.Value = 70

    ' PictureBox1.Image = Image.FromFile(Application.StartupPath & "\lock.jpg")
    ProgressBar1.Value = 100
    Else

    status = getstatus(status)



    d.MoveTo(FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf(".")))

    TextBox1.Text = FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf("."))

    ' PictureBox1.Image = Image.FromFile(Application.StartupPath & "\unlock.jpg")



    End If

    End If


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    status = arr(1)



    If FolderBrowserDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then



    Dim d As DirectoryInfo = New DirectoryInfo(FolderBrowserDialog1.SelectedPath)

    Dim selectedpath As String = d.Parent.FullName + d.Name



    If FolderBrowserDialog1.SelectedPath.LastIndexOf(".{") = -1 Then



    If (Not d.Root.Equals(d.Parent.FullName)) Then

    d.MoveTo(d.Parent.FullName & "\" & d.Name & status)

    Else

    d.MoveTo(d.Parent.FullName + d.Name & status)

    End If

    TextBox1.Text = FolderBrowserDialog1.SelectedPath

    'PictureBox1.Image = Image.FromFile(Application.StartupPath & "\lock.jpg")

    Else

    status = getstatus(status)



    d.MoveTo(FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf(".")))

    TextBox1.Text = FolderBrowserDialog1.SelectedPath.Substring(0, FolderBrowserDialog1.SelectedPath.LastIndexOf("."))

    ' PictureBox1.Image = Image.FromFile(Application.StartupPath & "\unlock.jpg")



    End If

    End If

    End Sub
    Private Function getstatus(ByVal stat As String) As String

    For i As Integer = 0 To 5

    If stat.LastIndexOf(arr(i)) <> -1 Then

    stat = stat.Substring(stat.LastIndexOf("."))

    End If

    Next i

    Return stat

    End Function

    End Class


    [​IMG]
    Mr.KuRd​
     


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

    яσ¢к нα¢кєя
    rankrank
    Developer

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

    رد: ♥ [شرح عمل قفل مجلد ] ♥

    الله يعطيك العافيه موضوع مميز ..

    بالتوفيق يابعدي:{1}:
     


  3. غير متصل

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

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

    رد: ♥ [شرح عمل قفل مجلد ] ♥

    تسلم إيدك حبيبي
     


  4. غير متصل

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

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

    رد: ♥ [شرح عمل قفل مجلد ] ♥

    яσ¢к нα¢кєя : شكر أخى عزيزى
    XaY_Tn : شكر أخى عزيزى
     


  5. غير متصل

    TuRKiE
    rank
    Developer

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

    رد: ♥ [شرح عمل قفل مجلد ] ♥

    سلمت يداك اخي الكريم

    )4:"
     


  6. غير متصل

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

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

    رد: ♥ [شرح عمل قفل مجلد ] ♥

    شكر أخى bl"eh"
     


  7. غير متصل

    ĸʜɜʟɛɒ
    Active DeveloPer

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

    رد: ♥ [شرح عمل قفل مجلد ] ♥

    :{8}: Good Job Bro :{8}:​
     


  8. غير متصل

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

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

    رد: ♥ [شرح عمل قفل مجلد ] ♥

    thank you
     


الوسوم:

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

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