Question

VB program

How to write a code that reset your password

I need password reset method that gets your current password and gets the new password by two Textboxes and reset button that reset the password to new one.

use the Sub resetpass(....)

Answer 1

Answer:

Please find the VB Code as well as the screenprint. The names of the three text boxes are:

Current Password - txtCurrentPassword

New Password - txtNewPassword

Confirm Password - txtConfirmPassword

The PasswordChar Property for all the above textboxes are kept as "*". So, please update accordingly.

Screenprint:

Code:

Public Class Form1
    'This is the current password of user. In an ideal scenario, this can be expected
    'to automatically initialize when a user logs in to the application
    Public strPassword As String = "ABCD"
    Private Sub btnResetPassword_Click(sender As Object, e As EventArgs) Handles btnResetPassword.Click
        If txtCurrentPassword.Text = "" Then    'Current Password cannot be blank
            MsgBox("Please enter the Current Password.", vbCritical)
            txtCurrentPassword.Focus()
            Exit Sub
        End If
        If txtNewPassword.Text = "" Then    'New Password cannot be blank
            MsgBox("Please enter the New Password.", vbCritical)
            txtNewPassword.Focus()
            Exit Sub
        End If
        If txtConfirmPassword.Text = "" Then    'Confirm Password cannot be blank
            MsgBox("Please enter the Confirm Password.", vbCritical)
            txtConfirmPassword.Focus()
            Exit Sub
        End If
        'Calling the Procedure to reset the password
        Call resetPass(txtCurrentPassword.Text, txtNewPassword.Text, txtConfirmPassword.Text)
    End Sub
    Private Sub resetPass(strCurrPwd As String, strNewPwd As String, strConfPwd As String)
        'Checking to see if the current password entered is matching with
        'the actual password of user which is stored in the global variable
        'strPassword
        If strCurrPwd <> strPassword Then
            MsgBox("Current Password is Incorrect. Please enter the correct Password.", vbCritical)
            txtCurrentPassword.Focus()
            Exit Sub
        End If
        'Check to see if the New Password is same as the existing password
        If strNewPwd = strPassword Then
            MsgBox("New Password cannot be the same as existing password. Please enter a different Password.", vbCritical)
            txtNewPassword.Focus()
            Exit Sub
        End If
        'Check to see if the New Password is matching with the Confirm Password
        If strNewPwd <> strConfPwd Then
            MsgBox("New Password and Confirm Password is not matching. Please check.", vbCritical)
            txtConfirmPassword.Focus()
            Exit Sub
        End If
        'If all above conditions are passed, then update the global Password
        'variable with the New Password
        strPassword = strNewPwd
        'Successfull Password Change Message
        MsgBox("Password changed successfully!!!")
    End Sub
End Class