+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] كود قفل الملفات (/showthread.php?tid=34760)
كود قفل الملفات - محمد ايمن - 13-05-20
السلام عليكم ورحمت الله وبركتوه
ان معي كود قفل الملفات
ولكن لا يعلم ولا اعلم ما السبب
ده الكود
PHP كود :
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 Form1_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
بعد ازنكم لوحد معاه كود شغل او يعرف يشوف الخطا و يصححو يارت يفدني بيه
وجل الله له في ميزان حسناتو و شكران
RE: كود قفل الملفات - esawy1 - 14-08-22
السلام عليكم ورحمة الله وبركاته
كود قفل الملفات
يعمل جيدا
اضف العناصر التالية
عدد 2 button
ProgressBar
FolderBrowserDialogtextbox
اضف العناصر التالية
عدد 2 button
ProgressBar
FolderBrowserDialogtextbox
وضع الكود فى الفورم
PHP كود :
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 Form1_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
اعزرونى لو كان هناك خطأ فى طريقة الرفع للملف لأنه أول مرة أرفع ملف على المنتدى
اخيكم حسن لطفى
القاهرة
RE: كود قفل الملفات - esawy1 - 02-06-23
لا يوجد تعليقات بالرغم من تحميل المرفق ٦٩ مرة
هل البرنامج يعمل أم لا
لكى استمر فى رفع الأمثلة
اخيكم حسن لطفى
RE: كود قفل الملفات - ابو روضة - 04-08-23
esawy1 جزاك الله كل الخير أخى المثال يعمل جيداً .
سلمت يدال...
RE: كود قفل الملفات - مصمم هاوي - 24-08-25
قمت بمغامرة وكلفتني استعادة النظام حيث جربت البرنامج فنجح القفل ولكن فشل نزع القفل
RE: كود قفل الملفات - samiralharbi023 - 24-12-25
أسال الله ان يكتب اجرك