سورس برنامه محافظ پوشه های شخصی

1 دیدگاه

در بسیاری از سایت ها چنین سورس هایی را مشاهده می کنید اما این سایت ها از گرافیک خوبی برای چنین سورس هایی برخوردار نیستند.باز هم یک سورس کاربردی دیگر به اسم سورس محافظ پوشه های شخصی برای دانلود قرار داده ایم.

سورس برنامه محافظ پوشه های شخصی

سورس برنامه مخفی کردن پوشه‌های شخصی در ویژوال بیسیک به گونه‌ای طراحی شده است که به کاربران اجازه می‌دهد پوشه‌های خاصی را مخفی کنند تا از دسترس سایر کاربران پنهان شوند. این برنامه معمولاً شامل انتخاب یک پوشه توسط کاربر و تغییر ویژگی‌های آن پوشه به حالت مخفی و بازگشت به حالت نمایش است.

دانلود سورس برنامه محافظ پوشه های شخصی

کمی هم نوشتن برنامه مخفی کردن فایل شخصی رو یاد بگیریم

در زیر جدا از سورسی که برای دانلود قرار داده بودیم، یک مثال دیگه م ذکر شده که کمی مسلط بشید :

1. طراحی فرم ویژوال بیسیک

در فرم اصلی، کنترل‌های زیر را قرار دهید:

دو دکمه: یکی برای مخفی کردن پوشه و دیگری برای نمایش پوشه
یک TextBox برای نمایش مسیر پوشه انتخاب شده
یک FolderBrowserDialog برای انتخاب پوشه

2. سورس کد ویژوال بیسیک

Imports System.IO

Public Class Form1
    Private selectedFolder As String

    Private Sub btnSelectFolder_Click(sender As Object, e As EventArgs) Handles btnSelectFolder.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            selectedFolder = FolderBrowserDialog1.SelectedPath
            txtFolderPath.Text = selectedFolder
        End If
    End Sub

    Private Sub btnHideFolder_Click(sender As Object, e As EventArgs) Handles btnHideFolder.Click
        If String.IsNullOrEmpty(selectedFolder) Then
            MessageBox.Show("ابتدا یک پوشه را انتخاب کنید.")
            Return
        End If

        If Not Directory.Exists(selectedFolder) Then
            MessageBox.Show("پوشه مورد نظر وجود ندارد.")
            Return
        End If

        Try
            Directory.SetAttributes(selectedFolder, FileAttributes.Hidden)
            MessageBox.Show("پوشه مخفی شد.")
        Catch ex As Exception
            MessageBox.Show("خطا در مخفی کردن پوشه: " & ex.Message)
        End Try
    End Sub

    Private Sub btnShowFolder_Click(sender As Object, e As EventArgs) Handles btnShowFolder.Click
        If String.IsNullOrEmpty(selectedFolder) Then
            MessageBox.Show("ابتدا یک پوشه را انتخاب کنید.")
            Return
        End If

        If Not Directory.Exists(selectedFolder) Then
            MessageBox.Show("پوشه مورد نظر وجود ندارد.")
            Return
        End If

        Try
            Directory.SetAttributes(selectedFolder, FileAttributes.Normal)
            MessageBox.Show("پوشه نمایان شد.")
        Catch ex As Exception
            MessageBox.Show("خطا در نمایان کردن پوشه: " & ex.Message)
        End Try
    End Sub
End Class

Imports System.IO

Public Class Form1

Private selectedFolder As String

Private Sub btnSelectFolder_Click(sender As Object, e As EventArgs) Handles btnSelectFolder.Click

If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then

selectedFolder = FolderBrowserDialog1.SelectedPath

txtFolderPath.Text = selectedFolder

End If

End Sub

Private Sub btnHideFolder_Click(sender As Object, e As EventArgs) Handles btnHideFolder.Click

If String.IsNullOrEmpty(selectedFolder) Then

MessageBox.Show("ابتدا یک پوشه را انتخاب کنید.")

Return

End If

If Not Directory.Exists(selectedFolder) Then

MessageBox.Show("پوشه مورد نظر وجود ندارد.")

Return

End If

Try

Directory.SetAttributes(selectedFolder, FileAttributes.Hidden)

MessageBox.Show("پوشه مخفی شد.")

Catch ex As Exception

MessageBox.Show("خطا در مخفی کردن پوشه: " & ex.Message)

End Try

End Sub

Private Sub btnShowFolder_Click(sender As Object, e As EventArgs) Handles btnShowFolder.Click

If String.IsNullOrEmpty(selectedFolder) Then

MessageBox.Show("ابتدا یک پوشه را انتخاب کنید.")

Return

End If

If Not Directory.Exists(selectedFolder) Then

MessageBox.Show("پوشه مورد نظر وجود ندارد.")

Return

End If

Try

Directory.SetAttributes(selectedFolder, FileAttributes.Normal)

MessageBox.Show("پوشه نمایان شد.")

Catch ex As Exception

MessageBox.Show("خطا در نمایان کردن پوشه: " & ex.Message)

End Try

End Sub

End Class

توضیح کد

تعریف متغیرها و کنترل‌ها:

selectedFolder برای ذخیره مسیر پوشه انتخاب شده توسط کاربر.
txtFolderPath یک TextBox برای نمایش مسیر پوشه انتخابی.
btnSelectFolder برای انتخاب پوشه.
btnHideFolder برای مخفی کردن پوشه.
btnShowFolder برای نمایان کردن پوشه.

انتخاب پوشه:

دکمه btnSelectFolder با استفاده از FolderBrowserDialog1 مسیر پوشه را انتخاب کرده و در txtFolderPath نمایش می‌دهد.

مخفی کردن پوشه:

دکمه btnHideFolder با استفاده از Directory.SetAttributes ویژگی پوشه را به Hidden تغییر می‌دهد و پوشه را مخفی می‌کند.
اگر پوشه انتخاب نشده یا وجود نداشته باشد، پیغام مناسب نمایش داده می‌شود.

نمایان کردن پوشه:

دکمه btnShowFolder با استفاده از Directory.SetAttributes ویژگی پوشه را به Normal تغییر می‌دهد و پوشه را نمایان می‌کند.
اگر پوشه انتخاب نشده یا وجود نداشته باشد، پیغام مناسب نمایش داده می‌شود.

این برنامه یک نمونه ساده از چگونگی مخفی و نمایان کردن پوشه‌ها با استفاده از ویژوال بیسیک است. برای افزایش امنیت، می‌توانید ویژگی‌های بیشتری مانند رمز عبور اضافه کنید تا فقط کاربران مجاز بتوانند پوشه‌ها را نمایان کنند.

دانلود با لینک مستقیم

5/5 - (1 امتیاز)

راستی! برای دریافت مطالب جدید در کانال تلگرام یا پیج اینستاگرام سورس باران عضو شوید.

نظرات

صابر بوستانی

داستان من با دنیای برنامه‌ نویسی آغاز شد، و در ادامه به عنوان یک توسعه‌ دهنده نرم‌ افزار، طراح وب سایت و متخصص سئو، مهارت ‌های تکنیکی و تحلیلی خودم رو پرورش دادم. علاقه م به دنیای مالی منو به سمت یادگیری ترید و معامله‌گری سوق داد. و در حال حاضر در برنامه نویسی و معامله گری ارز دیجیتال انجام میدم. از سال 96 سعی کردم معامله گری در کریپتو رو یاد بگیرم. ترید و معامله گری برام پر از چالش و شکست‌ های متعدد بود. اما هر شکست، درسی ارزشمند برام داشت و من رو به یک تریدر و معامله گر قوی‌ تر و هوشمندتر تبدیل کرد. با پشتکار و یادگیری مداوم، تونستم به موفقیت‌های قابل توجهی دست یابم و به معامله گری موفق تبدیل بشم. در اینجا بزرگترین تجربیات و مهمترین دانش خودم رو در اختیار شما قرار میدم تا در مدت زمان کوتاه تر و شکست های کمتر در این مسیر به موفقیت برسید.

پکیج صفر تا صد آموزش سئو و بهینه سازی بصورت عملی