Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 19 von 19
  1. #11
    CIH-Virus Avatar von 55F
    Registriert seit
    25.09.2008
    Beiträge
    436

    Standard

    fehler behoben? hehe^^

  2. #12
    It's Toasted!!
    Registriert seit
    08.08.2007
    Beiträge
    375

    Standard

    Ja, hatte die '' als " gesehen

  3. #13
    CIH-Virus Avatar von 55F
    Registriert seit
    25.09.2008
    Beiträge
    436

    Standard

    kannste mir denn nu den code so machen das es ind textbox1 angezeigt wird also der hotlink

  4. #14
    It's Toasted!!
    Registriert seit
    08.08.2007
    Beiträge
    375

    Standard

    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...

  5. #15
    CIH-Virus Avatar von 55F
    Registriert seit
    25.09.2008
    Beiträge
    436

    Standard

    ich packs ned digga

  6. #16
    It's Toasted!!
    Registriert seit
    08.08.2007
    Beiträge
    375

    Standard

    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

  7. #17
    CIH-Virus Avatar von 55F
    Registriert seit
    25.09.2008
    Beiträge
    436

    Standard

    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?

  8. #18
    It's Toasted!!
    Registriert seit
    08.08.2007
    Beiträge
    375

    Standard

    Mit einer Web Request Klasse, aber bleib ruhig bei deinem Sendkeys wenn du erst am Anfang bist.

  9. #19
    CIH-Virus Avatar von 55F
    Registriert seit
    25.09.2008
    Beiträge
    436

    Standard

    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

Seite 2 von 2 ErsteErste 12

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •