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

??

السلام عليكم

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

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

مفيش اى مشاكل انت مزعل نفس ليه ممكن تعملها باكثر من طريقه

ممكن تخلى البرنامج لمه تكون البيانات ادخلت بطريقه صحيحه ينشىء ملف TEXT به كلمه

مكتوبه فى داخله مثلا YES و فى كل مره يفتح فيها البرنامج يتائكد من الكلمه المكتوبه

فى الملف فاذا وجدها YES فهاذا يعنى ان المستخدم قام بالتسجيل

لو مبتعرفش تتعامل مع الملفات قولى علشان اعملك مثال

نعم يا اخي

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

والمره الثانية لا يطلب من التسجيل على طول يدخل البرنامج

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

السلام عليكم

الموضوع سهل.... لم اتعامل مع تشفير كلمة السر من قبل لكني احفظ طلمة السر في ملف في ال C:\Windows\System32

Public Function PasswordFunc(ByVal Mode As Integer, Optional ByVal Pass As String = "")
Dim WinDir As String
Dim result As String
WinDir = String(200, Chr(0))
'GetWindowsDirectory WinDir, Len(WinDir)
'WinDir = Left(WinDir, Len(WinDir) - InStr(1, WinDir, Chr(0)))
WinDir = Left$(WinDir, GetWindowsDirectory(WinDir, Len(WinDir)))
If Mode = 0 Then 'let
    Open WinDir & "\MyData.dat" For Output As #1
        Print #1, Pass
    Close #1
ElseIf Mode = 1 Then 'get
    If Dir(WinDir & "\MyData.dat") = "" Then
        PasswordFunc = ""
        Exit Function
    End If
    Open WinDir & "\MyData.dat" For Input As #1
        result = Input$(LOF(1), #1)
    Close #1
    PasswordFunc = result
End If
End Function

هذه الدالة تقوم بحفظ و استرجاع كلمة السر من ملف نصي.

Public Password As String
Private Sub Form_Load()
Password = Replace(PasswordFunc(1), vbCrLf, "")
If Password = "" then
'ask user for password
end if 
End Sub