fehler behoben? hehe^^
Druckbare Version
fehler behoben? hehe^^
Ja, hatte die '' als " gesehen :P
kannste mir denn nu den code so machen das es ind textbox1 angezeigt wird also der hotlink
Versuchs doch einfach mal selbst :roll:
Ich hab dir doch gesagt, wie du an den Link kommst, den Quelltext bekommst du übrigens mit Webbrowser.Document.Body.OuterHTML
Dann musst du nur noch richtig Splitten und den Link ins TextFeld zu bekommen ist ja wohl das leichteste...
ich packs ned digga
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
geil kappt nur das er mir ned den hotlink anzeigt sondern den ersten aber danke
trotzdem wie würdest du es denn machen wenn nicht mit sendkeys?
Mit einer Web Request Klasse, aber bleib ruhig bei deinem Sendkeys wenn du erst am Anfang bist.
yyo geil danke kannste mir vllt. noch nen tipp geben das auf dem screen die form vom toll ned angezeigt wird also ich habs schon mit me.hide versucht aber das wird zu schnell ausgeblendet und klappt dann ned ich habe mir gedacht das wenn man auf take a screen klick das ich eine msgbox mit press f9 to take a screen kommt und bei ok das teil in den tray verschwindet