[nabil]

اشكرك اخي لكن لم يعطيني المطلوب حيث اني ادخل ارقام من 12345678 وقبل مني هذا الباسورد
في حين اللي انا محتاجه يكون مثلا Nabil2008 ولو nabil2008 يرفض هذا الباسورد ولو كنبت nabilsaleh يرفضه ايضا ولو كتبت 1234356789 يرفض الارقام فقط
اتمني يا اخي اني اكون قدرت اشرح مشكلتي بشكل واضح

[سعود]

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

[nabil]

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

[سعود]

كود :

       If TextBox1.TextLength < 8 Then
           MsgBox("اقل خانات 8", MsgBoxStyle.Exclamation, "")
           Exit Sub
       End If
       Dim all As New List(Of String)
       For Each t In TextBox1.Text
           all.Add(t)
       Next


       If Char.IsUpper(all.Item(0)) = False Then
           MsgBox("الحرف الاول لابد ان يكون كابيتال")
           Exit Sub
       End If



       Dim upper As Integer = 0
       Dim lower As Integer = 0
       Dim symbol As Integer = 0
       Dim num As Integer = 0

       Dim str As String = TextBox1.Text  '"Hello$"
       For [loop] As Integer = 0 To str.Length - 1
           If [Char].IsUpper(str([loop])) Then
               upper += 1
           ElseIf [Char].IsLower(str([loop])) Then
               lower += 1
           ElseIf [Char].IsSymbol(str([loop])) Then
               symbol += 1

           ElseIf [Char].IsNumber(str([loop])) Then
               num += 1


           End If
       Next

       If upper < 3 Or lower < 3 Or symbol < 3 Or num < 3 Then
           MsgBox("يجب ان تكتب خليطا من نصوص وارقام ورموز لا يقل عن 3 خانات لكل نوع" &
                  vbNewLine &
                  upper & " cap" & vbNewLine &
                  lower & " low" & vbNewLine &
                  symbol & " sym" & vbNewLine &
                  num & " num")

           Exit Sub
       Else
           MsgBox("ممتاز الان كلمة المرور قوية", MsgBoxStyle.Information, "")

       End If

اكتب هذا الكود بحدث النقر لزر الامر وامسح السابق

---

وش صار مع الكود؟ ضبط او لا.

[nabil]

الف الف الف شكر يا سعودي

[سعود]

العفو .. يعني تمام