Was is falsch an dem src

Dies soll ein tool werden was Bilder auf Imagebanana uploaded
aber nach dem klick auf Upload macht der nicht das was er soll!

Code:

---

Public Class frmMain

    Dim Pfad As String

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        OpenFileDialog1.Filter = "Alle Dateien (*.*) |*.*"
        OpenFileDialog1.ShowDialog()
        Pfad = OpenFileDialog1.FileName

    End Sub

    Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
        WebBrowser1.Navigate("www.imagebanana.com")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        WebBrowser1.Document.GetElementById("contentuploadbox").InnerText = Pfad.ToString
        WebBrowser1.Document.Forms(0).InvokeMember("send")
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        End

    End Sub

    Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        OpenFileDialog1.Filter = "Alle Dateien (*.*) |*.*"
        OpenFileDialog1.ShowDialog()
        Pfad = OpenFileDialog1.FileName

    End Sub

    Private Sub SchließenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchließenToolStripMenuItem.Click
        End

    End Sub
End Class

---

http://uploaded.to/?id=w2f7c6


~Jack

Jop, das geht bei Imagebanana nicht so einfach, versuch dich erstmal an http://www.directupload.net/ , da ist es ne Nummer einfacher!

da gehts auch ned -.-

Da gehts zu 100%, ich hab da früher mal ein Tool zu geschrieben, welches ich immernoch benutze ^^

Code:

---


    Private Sub Uppload()
        WebBrowser1.Document.GetElementById("bilddatei").Focus()
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{ENTER}")
        WebBrowser1.Document.GetElementById("bilddatei").Focus()
        SendKeys.Send(TextBox1.Text)
        SendKeys.Send("{ENTER}")
        AddHandler WebBrowser1.DocumentCompleted, New  _
        WebBrowserDocumentCompletedEventHandler(AddressOf GetThingy)
    End Sub

---

Ich hab die Funktion 2 mal drin, weils sonst nicht richtig zuverlässig funktioniert hat? ^^