Contraseña V2 Ejercicio VB.Net - Curso de Programación Visual Basic

' Importing necessary namespaces
Imports System

Public Class Program
    Public Shared Sub Main()
        ' Declare variables for login, password, and attempt counter
        Dim login As Integer
        Dim password As Integer
        Dim attempts As Integer = 0

        ' Loop to allow a maximum of 3 attempts
        While attempts < 3
            ' Ask the user for the login
            Console.WriteLine("Enter login:")
            login = Convert.ToInt32(Console.ReadLine())

            ' Ask the user for the password
            Console.WriteLine("Enter password:")
            password = Convert.ToInt32(Console.ReadLine())

            ' Check if login and password are correct
            If login = 12 AndAlso password = 1234 Then
                Console.WriteLine("Access granted.")
                Return ' Exit the program if the credentials are correct
            Else
                ' Increment the number of attempts
                attempts += 1
                ' Display a message if the login or password is incorrect
                Console.WriteLine("Invalid login or password. Try again.")
            End If
        End While

        ' Inform the user if they failed to login after 3 attempts
        Console.WriteLine("Maximum attempts reached. Access denied.")
    End Sub
End Class