Was is falsch an dem src

[Jack Daniels]

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

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

[Sirect]

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

[Jack Daniels]

da gehts auch ned -.-

[Sirect]

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

    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? ^^