قفل مجلد بكلمة سر برمجيا - bidaya - 28-05-18
السلام عليكم ورمضان كريم
ابحث على كود يقوم بقفل مجلد بكلمة سر
الفكرة هي
مثلا لدينا مجلد به ملفات يتصل بها البرنامج
اريد قفل المجلد بكلمة سر بحيث لا يصل الى الملفات الى البرنامج
اتمنى ان السؤال واضح
RE: قفل مجلد بكلمة سر برمجيا - elgokr - 28-05-18
قم باستدعاء التالى
كود :
Imports System.IO
Imports System.Security.AccessControl
من ثم قم اضافة كلاً من
textbox - FolderBrowserDialog - 3 Button
ثم قوم بادراج الاكواد التالى
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
With FolderBrowserDialog1
If .ShowDialog() = DialogResult.OK Then
TextBox1.Text = .SelectedPath
End If
End With
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)
fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(TextBox1.Text, fs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)
fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(TextBox1.Text, fs)
End Sub
بخصوص Button1 وهو لتحديد المجلد
بخصوص Button2 وهو لعمل اغلاق الصلاحيات للمجلد
بخصوص Button3 وهو اعادة الصلاحيات المجلد
كل الفكرة هو عملية التعامل مع الكود لاستخدامه لفكرتك
Button1 لتحديد المجلد يمكنك الاستغناء عنه وكتابة مسار المجلد يدوياً
كود Button2 ستقوم به عند الانتهاء من العمل على المجلد فى المشروع واغلاق البرنامج وما ذلك
كود Button3 وهو عند استدعاء او استخدام البرنامج اى ملفات داخل المجلد يقوم بتطبيق الكود
وبعد اتمام الانهاء يقوم بتطبيق كود Button2
يارب المثال بشكل عام يفيدك فى العديد الاستخدام
وشرح كيفية استخدام الكود للوضع الحالى لطلبك
تحياتى لك
وتمنياتى لك التوفيق
RE: قفل مجلد بكلمة سر برمجيا - bidaya - 28-05-18
(28-05-18, 05:39 PM)elgokr كتب : قم باستدعاء التالى
كود :
Imports System.IO
Imports System.Security.AccessControl
من ثم قم اضافة كلاً من
textbox - FolderBrowserDialog - 3 Button
ثم قوم بادراج الاكواد التالى
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
With FolderBrowserDialog1
If .ShowDialog() = DialogResult.OK Then
TextBox1.Text = .SelectedPath
End If
End With
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)
fs.AddAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(TextBox1.Text, fs)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim fs As FileSystemSecurity = File.GetAccessControl(TextBox1.Text)
fs.RemoveAccessRule(New FileSystemAccessRule(Environment.UserName, FileSystemRights.FullControl, AccessControlType.Deny))
File.SetAccessControl(TextBox1.Text, fs)
End Sub
بخصوص Button1 وهو لتحديد المجلد
بخصوص Button2 وهو لعمل اغلاق الصلاحيات للمجلد
بخصوص Button3 وهو اعادة الصلاحيات المجلد
كل الفكرة هو عملية التعامل مع الكود لاستخدامه لفكرتك
Button1 لتحديد المجلد يمكنك الاستغناء عنه وكتابة مسار المجلد يدوياً
كود Button2 ستقوم به عند الانتهاء من العمل على المجلد فى المشروع واغلاق البرنامج وما ذلك
كود Button3 وهو عند استدعاء او استخدام البرنامج اى ملفات داخل المجلد يقوم بتطبيق الكود
وبعد اتمام الانهاء يقوم بتطبيق كود Button2
يارب المثال بشكل عام يفيدك فى العديد الاستخدام
وشرح كيفية استخدام الكود للوضع الحالى لطلبك
تحياتى لك
وتمنياتى لك التوفيق
جميل وشرح اجمل الف تحية وتقدير اخي
ورمضانك كريم
كما اشكرك على هذا المجهود الذي تقدمه
اسال الله ان يجعله لك في ميزان الحسنات
RE: قفل مجلد بكلمة سر برمجيا - elgokr - 28-05-18
الشكر لله
تحياتى لك
وتمنياتى لك التوفيق
|