Module KeyUse[VB6]
Publicado: 17 Nov 2009, 23:54
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