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