كود :
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
اكتب هذا الكود بحدث النقر لزر الامر وامسح السابق
وش صار مع الكود؟ ضبط او لا.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
