بســم الله الـرحمــن الرحيــم
اخواني الاعزاء
اثناء بحثي في الانترنيت وجدت موضوعا ارجو من الله ان يستفيد منه الاخوة الاعزاء
حيث اننا نستطيع حماية قاعدة البيانات بواسطة الرقم الخاص للفلاش ميموري
مع ملاحظة ان هذا الرقم يتغير عند اعادة فرمتة الفلاش
لاخراج رقم الفلاش ميموري في الزر الخاص باخراج هذا الرقم ضع هذا الكود
كود
Dim fso As Object
Dim dc As Object
Dim d As Object
Dim xx, xxx As String
On Error GoTo diskerror
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d In dc
If d.DriveType = 3 Then
n = d.ShareName
End If
Select Case d.DriveType
'البحث عن قطعه مؤقتة مثل الفلاش ميموري
Case 1
'تعريف يساوي اسم الفلاش ميموري مضاف اليه النقطتين والخط المائل
xx = d.DriveLetter + ":\"
End Select
Next
' تساوي الرقم الستلسلي
' xx هو اسم الفلاش ميموري
xxx = CreateObject("Scripting.FileSystemObject").GetDrive(xx).SerialNumber
MsgBox xxx
diskerror:
If Err.Number = 71 Then
MsgBox "لايوجد فلاش ميمري"
Resume Next
End Ifضع الكود التالي في حدث عند الفتح للنموذج
كود
On Error Resume Next
Dim fso As Object
Dim dc As Object
Dim d As Object
Dim xx, xxx As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d In dc
If d.DriveType = 3 Then
n = d.ShareName
End If
Select Case d.DriveType
Case 1
xx = d.DriveLetter + ":\"
End Select
Next
xxx = CreateObject("Scripting.FileSystemObject").GetDrive(xx).SerialNumber
If xxx = "رقم الفلاش ميموري" Then
MsgBox " hi"
Else
MsgBox "الرقم التسلسلي غير مطابق"
DoCmd.Quit
End Ifلا ننسى وضع الرقم مكان النص
كود
If xxx = "رقم الفلاش ميموري" Then
ليصبح
كود
If xxx = "1234567890" Then
رقم الفلاش الذي لديك مثلا 1234567890
ملاحظة : هذا الموضوع منقول
وفي المرفقات ملف وورد يشرح العمل
