Module.bas:

''''''''''''''''''''''''''''''''''''''''''''
'Module KeyUse
'Edited by Th3 Sw4sh
'Contact: [email protected]
''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal VBKey As Long) As Integer
Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwflags As Long, ByVal dwExtraInfo As Byte)
'Public Declaration, KeyIdentify = Hex Value
Public Const VBKeyBACK = &H8
Public Const VBKeyTAB = &H9
Public Const VBKeyCLEAR = &HC
Public Const VBKeyRETUNR = &HD
Public Const VBKeySHIFT = &H10
Public Const VBKeyCONTROL = &H11
Public Const VBKeyALT = &H12
Public Const VBKeyCAPSLOCK = &H14
Public Const VBKeyESC = &H1B
Public Const VBKeySPACE = &H20
Public Const VBKeyPUP = &H21
Public Const VBKeyPDW = &H22
Public Const VBKeyEND = &H23
Public Const VBKeyHOME = &H24
Public Const VBKeyLEFT = &H25
Public Const VBKeyUP = &H26
Public Const VBKeyRIGHT = &H27
Public Const VBKeyDOWN = &H28
Public Const VBKeySELECT = &H29
Public Const VBKeyEXECUTE = &H2B
Public Const VBKeyPRINT = &H2C
Public Const VBKeyINSERT = &H2D
Public Const VBKeyDELETE = &H2E
Public Const VBKeyHELP = &H2F
Public Const VBKeyNUMPAD0 = &H60
Public Const VBKeyNUMPAD1 = &H61
Public Const VBKeyNUMPAD2 = &H62
Public Const VBKeyNUMPAD3 = &H63
Public Const VBKeyNUMPAD4 = &H64
Public Const VBKeyNUMPAD5 = &H65
Public Const VBKeyNUMPAD6 = &H66
Public Const VBKeyNUMPAD7 = &H67
Public Const VBKeyNUMPAD8 = &H68
Public Const VBKeyNUMPAD9 = &H69
Public Const VBKeyMULTIPLY = &H6A
Public Const VBKeyADD = &H6B
Public Const VBKeySEPARATOR = &H6C
Public Const VBKeySUBTRACK = &H6D
Public Const VBKeyDECIMAL = &H6E
Public Const VBKeyDIVIDE = &H6F
Public Const VBKeyF1 = &H70
Public Const VBKeyF2 = &H71
Public Const VBKeyF3 = &H72
Public Const VBKeyF4 = &H73
Public Const VBKeyF5 = &H74
Public Const VBKeyF6 = &H75
Public Const VBKeyF7 = &H76
Public Const VBKeyF8 = &H77
Public Const VBKeyF9 = &H78
Public Const VBKeyF10 = &H79
Public Const VBKeyF11 = &H7A
Public Const VBKeyF12 = &H7B
Public Const VBKeyNUMLOCK = &H90
Public Const VBKeySCROLL = &H91
Public Const VBKeyA = &H41
Public Const VBKeyB = &H42
Public Const VBKeyC = &H43
Public Const VBKeyD = &H44
Public Const VBKeyE = &H45
Public Const VBKeyF = &H46
Public Const VBKeyG = &H47
Public Const VBKeyH = &H48
Public Const VBKeyI = &H49
Public Const VBKeyJ = &H4A
Public Const VBKeyK = &H4B
Public Const VBKeyL = &H4C
Public Const VBKeyM = &H4D
Public Const VBKeyN = &H4E
Public Const VBKeyO = &H4F
Public Const VBKeyP = &H50
Public Const VBKeyQ = &H51
Public Const VBKeyR = &H52
Public Const VBKeyS = &H53
Public Const VBKeyT = &H54
Public Const VBKeyU = &H55
Public Const VBKeyV = &H56
Public Const VBKeyW = &H57
Public Const VBKeyX = &H58
Public Const VBKeyY = &H59
Public Const VBKeyZ = &H5A[/code]

This Module is for Use Keys of Keyboard to execute actions.

[b]Method For use:[/b]
Use a Timer:
[code]    If GetAsyncKeyState(KeyIdentify) Then
Label1.Caption = "Z key "
End If

primero que todo, buen aporte y gracias por compartir.

te quedaste corto con la explicacion, pero no te preocupes yo te ayudo un poco xD.

PRO: es de facil uso, se puede utilizar en programas con control atraves de teclado (winamp) o que permanescan ocultos hasta detectar ciertos teclas ej. control+alt+F6 (deepfreeze)

CONTRA: este metodo no es muy util en troyanos, despues de probarlo me di cuenta que si la victima escribe relativamente rapido no captura todos los caracteres, aparte de eso la nesecidad de revisar el estado constantemente genera un consumo elevado de los recursos del sistema.
es mucho mejor utilizar el Hook al teclado y que el sistema le avise a tu programa cuando
se ha presionado una tecla