اذهب الي المحتوي
أوفيسنا

تسجيل وقت محاولة الدخول بكلمة سر خاطئة


abo3aesha_2014

الردود الموصى بها

عندى قاعدة بيانات بها نموذج يفتح من خلال نموذج آخر يحتوي على اسم مستخدم وكلمة سر إذا تم إدخالهم بشكل صحيح

وسؤالى هل من طريقة تقوم بتسجيل عدد ووقت محاولات الدخول باستخدام كلمات سر خاطئة ؟؟

ويكون ذلك في جدول منفصل ؟؟

تصيد المتلاعب.rar

رابط هذا التعليق
شارك

في 12/10/2017 at 09:20, abo3aesha_2014 said:

عندى قاعدة بيانات بها نموذج يفتح من خلال نموذج آخر يحتوي على اسم مستخدم وكلمة سر إذا تم إدخالهم بشكل صحيح

وسؤالى هل من طريقة تقوم بتسجيل عدد ووقت محاولات الدخول باستخدام كلمات سر خاطئة ؟؟

ويكون ذلك في جدول منفصل ؟؟

تصيد المتلاعب.rar

اتفضل 
تم عمل جدول جديد للمحاولات بحقول اسم المستخدم و رقم سري المستخدمة و وقت المحاولة الدخول

واستخدمت هذا الكود
 

Private Sub commond5_Click()
    Dim X
        If IsNull(Text0) Or IsNull(Text2) Then
                MsgBox "احد الحقول فارغ"
            Exit Sub
            Else
                X = DLookup("[id]", "user", "[UserName] =[Text0] And [Passwd] = [Text2]")
        End If
    If Not IsNull(X) Then
            DoCmd.Close
            DoCmd.OpenForm "namozag1"
        Else
            MsgBox " اسم المستخدم او كلمه المرور خطاء راجع مسؤول البرنامج", vbOKOnly, "تاكيد صلاحيات الدخول"
            DoCmd.SetWarnings False
            DoCmd.RunSQL ("INSERT INTO TblMihawlatLogIn ( UserN, PassN, TimeForE ) SELECT [Forms]![SignInNamozag]![Text0] AS Expr1," & _
                                                                             "[Forms]![SignInNamozag]![Text2] AS Expr2, Now() AS Expr3;")
            DoCmd.SetWarnings True
            DoCmd.CancelEvent
    End If
End Sub

 

تصيد المتلاعب.rar

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

5 ساعات مضت, Shivan Rekany said:

اتفضل 
تم عمل جدول جديد للمحاولات بحقول اسم المستخدم و رقم سري المستخدمة و وقت المحاولة الدخول

واستخدمت هذا الكود
 


Private Sub commond5_Click()
    Dim X
        If IsNull(Text0) Or IsNull(Text2) Then
                MsgBox "احد الحقول فارغ"
            Exit Sub
            Else
                X = DLookup("[id]", "user", "[UserName] =[Text0] And [Passwd] = [Text2]")
        End If
    If Not IsNull(X) Then
            DoCmd.Close
            DoCmd.OpenForm "namozag1"
        Else
            MsgBox " اسم المستخدم او كلمه المرور خطاء راجع مسؤول البرنامج", vbOKOnly, "تاكيد صلاحيات الدخول"
            DoCmd.SetWarnings False
            DoCmd.RunSQL ("INSERT INTO TblMihawlatLogIn ( UserN, PassN, TimeForE ) SELECT [Forms]![SignInNamozag]![Text0] AS Expr1," & _
                                                                             "[Forms]![SignInNamozag]![Text2] AS Expr2, Now() AS Expr3;")
            DoCmd.SetWarnings True
            DoCmd.CancelEvent
    End If
End Sub

 

تصيد المتلاعب.rar

زادك الله علما وفهما أستاذنا الفاضل :clapping:

رابط هذا التعليق
شارك

  • 2 weeks later...

بسم الله 

أجريت تعديل على قاعدة البيانات بعمل نموذج به محاولات التسجيل بكلمات سر خاطئة

والمطلوب الذى لا أستيطع عمله هو :

أريد هذا النموذج يفتح تلقائيا عند دخولي إلى نموذج اسم المستخدم وكلمة السر (إذا كان جدول تسجيل المحاولات يحتوي على بيانات)

فيكيف يكون ذلك ؟؟

تصيد المتلاعب-2.rar

رابط هذا التعليق
شارك

1 ساعه مضت, abo3aesha_2014 said:

بفضل الله ثم بمعاونة أحد رواد المنتدي الرائع وهو الأستاذ @مرشدعلي تم التوصل للحل

تصيد المتلاعب-3.rar

حبيت اشارك بنفس الطريقه ولكن بدل النموذج تقرير

تصيد المتلاعب-3.rar

رابط هذا التعليق
شارك

16 ساعات مضت, مرشدعلي said:

حبيت اشارك بنفس الطريقه ولكن بدل النموذج تقرير

تصيد المتلاعب-3.rar

جميل جدا

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

رابط هذا التعليق
شارك

6 دقائق مضت, abo3aesha_2014 said:

جميل جدا

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

تقدر تعمل الكود في التقرير

في حدث عند الاغلاق

If MsgBox("هل تريد حذف البيانات  ¿", vbYesNo, "تنبيه") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from TblMihawlatLogIn"
MsgBox "لقد تم حذف البينات بنجاح !!!!", vbOKOnly, "تنبيه"
'Me.Refresh
Else
DoCmd.CancelEvent
End If
 

رابط هذا التعليق
شارك

في 12/22/2017 at 14:31, مرشدعلي said:

تقدر تعمل الكود في التقرير

في حدث عند الاغلاق

If MsgBox("هل تريد حذف البيانات  ¿", vbYesNo, "تنبيه") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from TblMihawlatLogIn"
MsgBox "لقد تم حذف البينات بنجاح !!!!", vbOKOnly, "تنبيه"
'Me.Refresh
Else
DoCmd.CancelEvent
End If
 

ممتاز جدا

كل يوم بتعلم شئ جديد

تعرف أيضا 

رأيت نقل الكود الذى يفتح النموذج أو التقرير الذى يحتوي على محاولات الدخول الخاطئة فجعلته عند فتح النموذج المؤمن

أى لن تظهر محاولت التلاعب إلا بعد إخال اسم المستخدم وكلمة السر الصحيحين

حتى لا يكون هناك ثغرة تسمح للمتلاعب بمسح محاولات تلاعبه

تصيد المتلاعب-4.rar

  • Like 1
رابط هذا التعليق
شارك

3 دقائق مضت, مرشدعلي said:

وانا كمان اضفت لك حاجه

حاول تدخل 3 مرات بالخطاء وشوف النتيجه

تصيد المتلاعب-4.rar

جزاك الله خير يا ابن العم ما شاء الله عليك ربنا يزيدك علما

  • Like 1
رابط هذا التعليق
شارك

10 ساعات مضت, مرشدعلي said:

وانا كمان اضفت لك حاجه

حاول تدخل 3 مرات بالخطاء وشوف النتيجه

تصيد المتلاعب-4.rar

فتح الله لك يا أستاذنا

تم تعديل بواسطه abo3aesha_2014
خطأ في الكتابة
  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information