| Pregunta: | 45276 - USAR API PARA SUPLANTAR KEYASCII |
| Autor: | Victor David |
| Saludos a todos. Estoy diseñando una aplicación que guardará los datos introducidos en los documentos hechos en Word e inmediatamente los zipeará y los colocará en el servidor. Esto a manera de respaldo de datos pues la data en la presidencia de la empresa se ha perdido y ahora están requiriendo algo como lo que acabo de exponer.
Ziperlo y colocarlo en el servidor ya está controlado, pero mi pregunta es: ¿Existe alguna manera o función API para crear una aplicación que esté corriendo en memoria y que guarde una copia de los datos tecleados? (como hace el KeyAscii) | |
| Respuesta: | toni rodado |
| Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Public Const KEY_A = 65 Public Const KEY_B = 66 Public Const KEY_C = 67 Public Const KEY_D = 68 Public Const KEY_E = 69 Public Const KEY_F = 70 ... Global Key(1 To 255) As Boolean Public Sub GetKeys() For X = 1 To 255 If GetKeyState(X) < 0 Then Key(X) = True Else Key(X) = False End If Next X End Sub | |