حماية القاعدة بواسطة ملف نصي .txt

[فتى الوادي]

السلام عليكم

أبحث عن كود يقوم بالبحث عن ملف معين من نوع .txt فإذا تم العثور عليه في المسار الصحيح تعمل القاعدة أو سوف تغلق القاعدة .

جربت البحث بدون جدوى ..

فهل أجده لدى أحد الأخوة الكرام .

والسلام عليكم

[goto]

أخي العزيز هذه أول مشاركاتي في الموقع وهو كود استخدمه في برامجي

وأنا مستعد للتعاون مع أي أخ لدية مشكلة

Private Sub Form_Current()
Dim myfile, chpass
myfile = Dir("c:\windows\filename.txt")
If myfile <> "" Then
Else
chpass = MsgBox("نسخة غير مرخصة")
DoCmd.Quit
End If
End Sub

[محمد طاهر عرفه]

هذا المثال يختبر وجود ملف فى المسار

c:\officena.txt

فاذا لم يجده يغلق القاعدة و يظهر رسالة

و اذا وجده يقوم باظهار رسائل بالمكتوب داخل الملف

و يتم اضافته فى حدث form load للنموذج الافتتاحي للبرنامج

Private Sub Form_Load()
    On Error GoTo ERROR_SUB
    Open "c:\officena.txt" For Input As #1
        Do While Not EOF(1)
      Line Input #1, xx
      MsgBox Trim(xx)
     Loop
    Close #1
    Exit Sub
           
ERROR_SUB:
 If Err.Number = 53 Then
  MsgBox " No Autorization - This Program Is Not Authorized ! " + Chr(13) + Chr(10) + "Do not do this Again !!", vbCritical, "Alert Message "
  Close #1
 DoCmd.Quit
 End If
End Sub