1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
  2. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
  1. м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px
    ExpErt DeveloPer

    عضو منذ:
    ‏16 ابريل 2014
    عدد المشاركات:
    404
    الإعجابات المتلقاة:
    13
    نقاط الجائزة:
    50
    الإقامة:
    ★ الكردستان ★
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    HTML
    [​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
    عدد المشاركات:
    65
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    30
    الإقامة:
    Taif
    رد: ♥ [شرح عمل قفل مجلد ] ♥

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

    بالتوفيق يابعدي:{1}:
     
  3. ★ قبعة القش ★
    V • I • P

    عضو منذ:
    ‏10 مايو 2014
    عدد المشاركات:
    303
    الإعجابات المتلقاة:
    6
    نقاط الجائزة:
    50
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    تسلم إيدك حبيبي
     
  4. м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px
    ExpErt DeveloPer

    عضو منذ:
    ‏16 ابريل 2014
    عدد المشاركات:
    404
    الإعجابات المتلقاة:
    13
    نقاط الجائزة:
    50
    الإقامة:
    ★ الكردستان ★
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    HTML
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    яσ¢к нα¢кєя : شكر أخى عزيزى
    XaY_Tn : شكر أخى عزيزى
     
  5. TuRKiE
    rank
    Developer

    عضو منذ:
    ‏11 يونيو 2012
    عدد المشاركات:
    16
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    15
    الإقامة:
    IQ-T34M
    رد: ♥ [شرح عمل قفل مجلد ] ♥

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

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

    عضو منذ:
    ‏16 ابريل 2014
    عدد المشاركات:
    404
    الإعجابات المتلقاة:
    13
    نقاط الجائزة:
    50
    الإقامة:
    ★ الكردستان ★
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    HTML
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    شكر أخى bl"eh"
     
  7. ĸʜɜʟɛɒ
    Active DeveloPer

    عضو منذ:
    ‏3 نوفمبر 2012
    عدد المشاركات:
    101
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    50
    الإقامة:
    Gaza
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    :{8}: Good Job Bro :{8}:​
     
  8. м̨я.ǚs̲ǝя <div style="border-right: 5px solid; padding: 2px
    ExpErt DeveloPer

    عضو منذ:
    ‏16 ابريل 2014
    عدد المشاركات:
    404
    الإعجابات المتلقاة:
    13
    نقاط الجائزة:
    50
    الإقامة:
    ★ الكردستان ★
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    HTML
    رد: ♥ [شرح عمل قفل مجلد ] ♥

    thank you
     
الوسوم:

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

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