Ziemlich unsauber, aber schlimmer als dein SendKeys gehts eh nicht:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("www.directupload.net")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
PictureBox1.Image = screen()
IO.Directory.CreateDirectory("C:\Screeny")
PictureBox1.Image.Save("C:\Screeny\TEMPimage.jpg")
WebBrowser1.Navigate("www.directupload.net")
While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete
Application.DoEvents()
End While
WebBrowser1.Document.GetElementById("bilddatei").Focus()
SendKeys.Send("C:\Screeny\TEMPimage.jpg")
SendKeys.Send("{ENTER}")
End Sub
Private Function screen()
Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, SystemInformation.VirtualScreen.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.CopyFromScreen(0, 0, 0, 0, b.Size)
g.Dispose()
Return b
End Function
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim quelltext As String = WebBrowser1.Document.Body.InnerHtml
Try
Dim link As String = Split(Split(quelltext, "[URL=")(1), "]")(0)
TextBox2.Text = link
Catch ex As Exception
End Try
End Sub