برنامج لكشف الباسوردات ممكن تعطونا راييكم

الاخت نهى

حملت البرنامج

ولما شغلته لم تظهر لي سوى شاشة زهرية اللون مكتوب عليها

كاشف الباسوورد

ووسطها زر مكتوب عليه (((كشف)))

مثل ما هو موضح بالصورة

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

مع العلم ان الزر خير قابل للضغط والفورم لا يتقبل اي اشارة سوى علاقة الاكس تقوم بإغلاق النافذة فقط ؟؟؟؟؟؟

اريد حلا من صاحب البرنامج ومبرمجه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

تحياتي

هل هو لكشف باسورد الكاش أم ماذا .

على العموم .. مشاركة جميله

وفقك الله .

طريقة عمل البرنامج

مثلا

اذا كان عندك في طلب الاتصال كلمة مرور وهي على شكل *****

اضغط على كشف الموجود في البرنامج ثم حدد على كلمة المرور

ثم تظهر لك كلمة المرور

تحياتي

طيب الحقيقة البرنامج غاية في الروعة من ناحية التصميم

هناك ملاحظات بسيطة

1- يجب ان تكتبي على البرنامج الخدمه التي يقوم بها وطريقة عمله .

2- لو استطعتي تغيير مؤشر الماوس بعد الضغط على زر ( كشف ) لينتبه المستخدم لذلك .

وفقك الله

اخوك

ايـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــوة الحين اشتغل معي البرنامج

البرنامج رائعا حقا ولكن ............................. ؟؟؟

اولا اذا حصل عليه اي مستخدم مع غض النظر عن مستوى المستخدم في استخدام الحاسب ككل سوف لم يتمكن نهااااااااااااااائيا من فهم او التوصل الى كيفيه استخدامه بالوجه الصحيح

لذاااااااااااااا انا اقترح عليكي ان تقومي بالتعديل البسيط على البرنامج

مثل ان تضعي نافذة خاصة للمساعدة

او رسالة ترحيبية تظهر للمستخدم عن بداية التشغيل تشرح له كيفية استخدام البرنامج

وكذلك كما تفضل الاخ الكريم منصور بإقتراحه وهو ان تقومي بتغير شكل مؤشر الفارة بعد الضغط على زر الكشف

او ان تقومي بتغيير لون خلفية واجهة البرنامج

اسف جدا على الازعاج

وارجوا ان لا تعتبري ردي نوع من انواع (الفلسفلة)

انا احببت ان ابدي رأي لكي تقومي بتطوير البرنامج

هذا كل مالدي

ولكن ................ !!!

اتفضل عليكي بطلب بسيط وهو ؟؟؟؟؟؟؟؟؟؟؟؟؟؟

كود البرنامج الرائع وذلك لكي تعم الفائدة لي ولجميع اعضاء هذا المنتدى ولكل المسلمين

كرما منكي لا امر

تقبلي تحياتي

اخوكم ((((((( الدولار ))))))

هذا هو الكود للفائدة

Private Type POINTAPI
    X As Long
    Y As Long
    End Type


Private Declare Function GetClassNames Lib "user32" _
Alias "GetClassNameA" (ByVal hwnd As Long,  _ 
ByVal LpClassName As String, ByVal nMaxCount As Long) _ 
As Long


Private Declare Function UpdateWindow Lib "user32"  _
(ByVal hwnd As Long) As Long


Private Declare Function SetFocusAp Lib "user32" Alias _ 
"SetFocus" (ByVal hwnd As Long) As Long


Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long


Private Declare Function GetCursorPos Lib "user32" _
 (lpPoint As POINTAPI) As Long


Private Declare Function WindowFromPoint Lib "user32" _
 (ByVal X As Long, ByVal Y As Long) As Long


Private Declare Function GetParent Lib "user32" _
(ByVal hwnd As Long) As Long


Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg  _
As Long, ByVal wParam As Long, ByVal lParam As Long)  _
As Long
    Private Exper As Boolean


Private Sub Image1_Click()
    Dim Point As POINTAPI, Cname As String, Resxxx As _
 Long, LSta As Long
    Dim Counter As Long, xxx As Long, Par As Long
    Const Clase_Name As String = "ThunderTextBox"
    Const Clase_Name2 As String = "Edit"
    Exper = False


    Do Until Exper = True
        Resxxx = GetCursorPos(Point)
        Resxxx = WindowFromPoint(Point.X, Point.Y)


        If Resxxx <> 0 Then
            Cname = String$(255, 0)
            xxx = GetClassNames(Resxxx, Cname, 254)


            If InStr(1, Cname, Clase_Name2, vbTextCompare) <> 0 Then
                Par = GetParent(Resxxx)
                xxx = SendMessage(Resxxx, &HCC, 0, 0)
                xxx = SetForegroundWindow(Par)
                xxx = UpdateWindow(Par)
                xxx = UpdateWindow(Resxxx)
                xxx = UpdateWindow(Resxxx)
                xxx = SetFocusAp(Resxxx)
                SetFocusAp xxx
                SetFocusAp Resxxx
                Exper = True
            End If
        End If


        DoEvents
        Loop

End Sub

Private Sub Image2_Click()
End
End Sub

ملاحظة بسيطة : حيث ان الاخت نهى استعملت صوره كز بدل الـ Command Bottum ( زر الامر ) فيجب جعل الحدث تحت زر الامر اذا لم يكن هناك صورة ..:rolleyes: