برنامج كلمة السر وتعديلها

على الرغم أن هذا الموضع تم قرأته أكثر من ( 50 مره )

إلا أنه لم يتفظل أحد بإبداء الرأي في الفكرة.

فأرجو أن يكون المانع خيراً .

والله الموفق.

قمت بإنزال القاعدة ولكن كل ما أشغلها أجد الأكسيس يغلق . جربتها على جهازين مختلفين .

جدد الوصلة مرة أخرى .

أشرف خليل

أرجو أن تجرب الوصلة التالية :

http://ibnmuscat.tripod.com/2newPassword.zip

أو هذه :

http://www.geocities.com/ibnmuscat/2newPassword.zip

الأخ ابن مسقط : جزاك الله خيرا اشتغلت معي تمام ولكن لابد من إغلاق القاعدة وفتحها مرة أخرى لتفعيل كلمة السر الجديدة .

ويعتبر به ميزة جديدة أن كلمة السر ليست داخل جدول كما هو معتاد . يعني من الصعب الحصول عليها عند تحويل القاعدة إلى ملف MDE

شكرا لك مرة أخرى .

أشرف خليل

الأخ الكريم / أشرف

شكراً على إهتمامك بالموضوع.

يوجد لدي مثال أخر بأسلوب مختلف أقوم بتجهيزه حالياً وأرغب في مساعدتك ومساعدة الأخرين وسوف أضع وصله له عن قريب ان شاء الله.

مثال جميل ، جزاك الله خيرا

أقترح استخدام ال التعرف علي مجلد الويندوز بالطريقة التالية

فهو ليس دوما اسمه c:windows

حيث pass هو اسم صندوق النص الذي عليه كلمة سر

  PASS.SetFocus
  Dim fs, A
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set A = fs.CreateTextFile(fs.GetSpecialFolder(1) & "" & "ibnmasqat", True)
    A.writeline (PASS)
    A.Close

الأخ الكريم / محمد طاهر

ملاحظتك في محلها أن بعض الأجهزة يكون فيها مجلد Windows بغير هذا الاسم.

ولكن لا تنسى أن فاقد الشىء لا يعطيه ، وأنا لم أرتقي إلى مستوى المبرمج المحترف ، فهل لك أن تتكرم بتعديل المثال وتضع له وصلة جديدة أو أنك تشرح التعديل المطلوب إجرائه على الأكواد الموضوعة في المثال السابق بشىء من التفصيل لكي أتمكن من إجراء التعديل المطلوب ووضع وصله جديده للمثال.

للرفع إلى أعلى .

الأخ الكريم / محمد طاهر

طال الغياب وسؤالي من غير جواب

فأرجو أن يكون المانع خيراً ؟

آسف علي التأخير

و الذي سببه الانشغال فى العمل

سأعدل المثال و أضعه قريبا بإذن الله

فأنا أدخل هذه الايام لمدة قصيرة و أرد علي ما أستطيع الرد عليه مباشرة فقط ، أما ما يحتاج الي أمثلة أو اعداد شرح فمؤجل قليلا و البركة فى باقي الأخوة.

و سأحاول التعويض قريبا باذن الله

الأخوان الكرام

أنا أبحث عن هذا الكود لعدة أيام الآن وسعدت كثيراً بموضوعك هذا يا ابن مسقط .

ولكن هناك مشكله وهي انني لم استطع تحميل البرنامج من أي من الموقعين. في الموقعين يبدو ان صفحتك غير متوفره.

الأخ ابن مسقط واي من الأخوان اذا ممكن الكود فقط , كود الVBA لعمل فورم لكلمة السر ويطابقها مع رقم المستخدم.

وشكرا

اخي الكريم/ مروكي

تأكدت بنفسي أن كلا الوصلتين تعملان ، فقط قم بالنقر بالماوس

بواسطة الز الأيمن وأختر حفظ الهدف Save Target AS

مع العلم أني أرسلت الملف على بريدك.

والله الموفق.

'للكتابة الي ملف
'=======================================================
'نكتب كلمة السر فى مربع نص اسمه
'pASS
'وننفذ الامر من زر اسمه
'AUTHO_P
' لنفرض اسم ملف النص هو
'mm.txt

Private Sub AUTHO_P_Click()
Rem
   If Not IsNull(Trim(Me![PASS])) Then
    Dim fs, a, x
    Set fs = CreateObject("Scripting.FileSystemObject")
     x = Trim(Me![PASS])
    Set a = fs.CreateTextFile(fs.GetSpecialFolder(1) & "" & "mm.txt", True)
    a.WriteLine (x)
    a.Close
    MsgBox "OK", 64, "Message"
    DoCmd.Quit
  Else
   MsgBox "You must Enter Password", 64, "Alert"
   Me![PASS].SetFocus
 End If
End Sub



'Password Form
'للتأكد من أن كلمة السر المكتوبة فى فورم تناظر
'الكلمة المسجلة فى
'mm.txt

'نكتب كلمة السر فى مربع نص , و ليكن  اسمه
'PASS

'=========================================================
Private Sub PASS_BeforeUpdate(Cancel As Integer)
    On Error GoTo ERROR_SUB
    Dim fs, a, xx, x
    Dim I As Integer, j As Integer
    Set fs = CreateObject("Scripting.FileSystemObject")
    x = IIf(IsNull(Me![PASS]), 0, Me![PASS])
   Open fs.GetSpecialFolder(1) & "" & "MM.TXT" For Input As #1

      Line Input #1, xx

         If Trim(xx) = (Trim(x)) Then
            ' MsgBox " User Authorized", vbCritical, "Confirmation Message "
            Close #1
            SendKeys "{ESC}"
            DoCmd.Close
            DoCmd.OpenForm "start"
            Exit Sub
         Else
           MsgBox "Error ", vbCritical, " Error"
        End If
    End If
           DoCmd.Quit

ERROR_SUB:
 If Err.Number = 53 Then
  MsgBox " No AuthorizATION " + Chr(13) + Chr(10) + "Do not do this Again !!", vbCritical, "??C?E E????  "
  Close #1
  'Cancel = True
  SendKeys "{ESC}"
  DoCmd.Quit
  Exit Sub
 End If

End Sub

أخي الكريم/ محمد طاهر

أشكرك جزيل الشكر على تفضلك بعمل الكود.

حاولت الإستفادة منه ولكن لم يعمل معي حسب المطلوب ولم أعرف ما هو السبب.

أرجو الإطلاع على الملف المرفق في الوصلة التالية :

http://ibnmuscat.tripod.com/3password.zip

مع التقدير أرجو التعديل عليه ان أمكن.

السلام عليكم

هذا مثال بسيط عن كلمة المرور وتعديلها أرجو إبداء الرأى ..

الملف المضغوط فارغ لا يوجد به اية ملفات

ارجو التاكد منه

تحياتي

خاصية تحميل الملفات الي الموقع معطلة

رجاء و ضعه علي صفحة مجانية

اقتباس

أخي الكريم/ محمد طاهر  

أشكرك جزيل الشكر على تفضلك بعمل الكود.  

حاولت الإستفادة منه ولكن لم يعمل معي حسب المطلوب ولم أعرف ما هو السبب.  

أرجو الإطلاع على الملف المرفق في الوصلة التالية :  

http://ibnmuscat.tripod.com/3password.zip  

مع التقدير أرجو التعديل عليه ان أمكن.

أخي/ محمد طاهر

بارك الله فيك ، هل نسيت موضوعي أم أن مطلبي صعب؟ :confused:

لسلام عليكم ورحمة الله وبركاته

اخواني الاعزاء هذه القاعدة قد حملتها من هذا الموقع الرائد واجريت عليها بعض التعديلات ولكن لا نستقني ....

ارجوا التكرم بالاطلاع عليها على هذه الوصلة :

http://mypage.ayna.com/bolead2001/usersgrob.zip

و ابداء المرئيات والتعديلات التي تحتاجها وذلك بحكم خبراتكم الطويلة في هذا المجال

هذا والله يحفظكم ويرعاكم

الأخ ابن مسقط

لا توجد مشكلة ان شاء الله

فقط مسألة قلة وقت

قريبا تجد ما تريد باذن الله

و عذرا للتأخير

أخي العزيز

الكود مكتوب بطريقة سليمة ، ;) ;) مع ملحوظتان

أن الكود يتم فصله الي 2 فورم

الاولي بها الكود الخاص بالزر و يبقي كما هو

و يستخدم لوضع الترخيص لأول مرة أو لتغييير كلمة السر

و فى الفورم الموجود بها هذا الكود يتم الغاء الكود الخاص بحدث تحديث كلمة السر

الفورم الاخري بها مربع النص فقط بدون الزر و تضع فيها الكود فة حدث بعد التحديث و ليس قبل التحديث

و تستخدم عند الدخول الي البرنامج

بالطبع يوجد الكثير من الحلول و التحسينات التي تستطيع اضافتها

و لكن جرب ما شبق و اخيرني بالنتيجة