اشكرك اخي لكن لم يعطيني المطلوب حيث اني ادخل ارقام من 12345678 وقبل مني هذا الباسورد
في حين اللي انا محتاجه يكون مثلا Nabil2008 ولو nabil2008 يرفض هذا الباسورد ولو كنبت nabilsaleh يرفضه ايضا ولو كتبت 1234356789 يرفض الارقام فقط
اتمني يا اخي اني اكون قدرت اشرح مشكلتي بشكل واضح
المطلوب واضح لكن اللي انا كتبته ليس كامل لكن يحتوي المطلوب .. طيب اخوي انتظرني...دقيقة وباذن الله اجهز الكود.
شكرا سعودي لكن المشكله زي ماهي بكتب ارقم فقط وبيقبل مني الباسورد
كود :
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
![[صورة مرفقة: 9wMB3.png]](http://im31.gulfup.com/9wMB3.png)
![[صورة مرفقة: AI7tr.png]](http://im31.gulfup.com/AI7tr.png)
اكتب هذا الكود بحدث النقر لزر الامر وامسح السابق
وش صار مع الكود؟ ضبط او لا.
العفو .. يعني تمام
