Gravar tudo o que é digitado

Bom dia Pessoal !
é possível criar um código que grava tudo o que é digitado no teclado ? mais ou menos no estilo de um Keylloger, pois gostaria de criar essa função pois caso meu notebook seja roubado eu teria pista de quem roubo.
andei lendo e vi que o arquivo onde registra isso no windows é o user32. mas nem faço ideias de como pegar essa informação.

Tópico movido de formulários.

Veja um programa pronto que atende sua solicitação.
baixaki.com.br/download/prey-project.htm

Na verdade eu quero criar um próprio pois assim o antivírus nao pego

Conforme sua mensagem, isso é uma prevenção para ter pista de quem roubou, certo? Como o computador vai estar com você no momento de configurar o programa, basta adicionar nas exceções do antivirus.

E também o MS Access não é a ferramenta ideal para criar um programa desta natureza, haja visto o fato de que o ícone do Access estará na barra e tarefas mostrando que um arquivo está em execução.

Gravar em uma variável o que foi digitado e mostra em uma caixa de texto
este é meu código porem não esta funcionando. Alguém pode me ajudar


' API que identifica as teclas digitadas
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long

' Criando a função que retorna o estado da tecla
'Function EstadoCapsLock() As Boolean
' EstadoCapsLock = GetKeyState(vbKeyCapital)
'End Function

Dim letra As String
Function tecla() As Boolean
If GetKeyState(vbKeyA) Then
letra = "a"
ElseIf GetKeyState(vbKeyB) Then
letra = "b"
ElseIf GetKeyState(vbKeyC) Then
letra = "c"

tecla = letra
End If
End Function

==============================================================
'aqui eu coloco no evento de um botão

Private Sub btGerar_Click()
Call tecla
Me.Texto1 = tecla
End Sub




o resultado aparece apenas a palavra Falso,

Bom dia,

alexjc escreveu:o resultado aparece apenas a palavra Falso

Sim, esse é um dos retornos esperados pela function tecla, que retorna boolean.

Detalhe o que precisa para então tentarmos algo, por favor.

Então se eu troco para string nada ocorre, eu gostaria q a função me retornar a letra digitada

Fiquei aqui sem entender o motivo de usar API para retornar as teclas, no entanto, se assim está funcionando, ok.

Imagino que para resolver seu problema, basta alterar o tipo de retorno da função tecla. Ela está assim atualmente:

Function tecla() As Boolean

Mude para

Function tecla() As String

Teste por favor.

então eu mudei para string porem nada acontece. nem erro,

minha intenção é usar este código, para um programa de rastreio que estou desenvolvendo.

A primeira parte já esta quase pronta, onde caso um notebook for roubado, ele faz o rastreio com tecnologia blockchain.

Agora vem esta segunda parte onde eu gostaria de criar a minha própria função de captura de teclas, para mim saber mais com quem esta o not roubado, pois o rastreio que consigo no blockchain não é tão preciso, eu apenas sei o bairro e a rua, mas não apessoa entende.

e outro detalhe eu poderia simplesmente instalar um keyloogger nos nootbooks, mas quero ter junto na minha ferramenta entende.

ah sobre usar API é que ela trabalha mesmo com o ms access em segundo plano

Tópicos fundidos. Mesmo autor, mesma dúvida.

Sim e a mesma dúvida, pois ainda não consegui,