Vb 08 Aus geöffneten Browser...

[Algaten™]

Hi zwei Fragen:

1. :
Ich würde gerne wenn ich z.b. Firefox offen habe aus Firefox von der Angezeigten webseite aus dem Quelltext etwas bestimmtes rauslesen!
Wie mach ich das?

2. :
In einer Form aus einem Webbrowser in z.b. zeile 200 den code auslesen.
Wie mach ich das?
Also ich will das die Zeile als Text in einem Label erscheint

[Jay Niize]

Zum ersten :

Ich weiss nur, wie man aus einem Webborwser in der Form (nicht firefox) Quelltext ausliest, und danach dort einen text sucht.

Quelltext auslesen :

 Spoiler

PHP Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sQuelltext As String = WebBrowser1.DocumentText.ToString
        TextBox1.Text = WebBrowser1.DocumentText
    End Sub

    Private Function LoadURL(ByVal sURL As String) As Boolean
        Dim nTimeout As Integer
        Dim vStart As Date
        Dim bResult As Boolean = True

        Me.Cursor = Cursors.WaitCursor
        With WebBrowser1
            ' URL übergeben
            .Navigate(sURL)

            ' Warten, bis vollständig geladen
            ' Timeout auf 30 Sek. festlegen
            nTimeout = 30
            vStart = Now

            Do While .ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
                ' Timeout ?
                If DateDiff(DateInterval.Second, vStart, Now) > nTimeout Then
                    bResult = False
                    Exit Do
                End If
            Loop
        End With
        Me.Cursor = Cursors.Default

        Return bResult
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            WebBrowser1.Navigate(TextBox1.Text)
        Catch ex As Exception
            MsgBox("Ungültige Adresse.Sicher gehen das www voran steht!")
        End Try


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Navigate("www.google.de")
        TextBox2.Text = "http://www.google.de"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class 


du brauchst :

6 Button, 2 Textboxen, 2 Labels und einen Webbrowser

DU gehst auf die Seite im Webbrowser und drücks dann auf den button wo es den quelltext ausliest. Nun kannst du mit einer Search function etwas bestimmtes im Quelltext auslesen

[Algaten™]

Originally Posted by Jusikid

Zum ersten :

Ich weiss nur, wie man aus einem Webborwser in der Form (nicht firefox) Quelltext ausliest, und danach dort einen text sucht.

Quelltext auslesen :

 Spoiler

PHP Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sQuelltext As String = WebBrowser1.DocumentText.ToString
        TextBox1.Text = WebBrowser1.DocumentText
    End Sub

    Private Function LoadURL(ByVal sURL As String) As Boolean
        Dim nTimeout As Integer
        Dim vStart As Date
        Dim bResult As Boolean = True

        Me.Cursor = Cursors.WaitCursor
        With WebBrowser1
            ' URL übergeben
            .Navigate(sURL)

            ' Warten, bis vollständig geladen
            ' Timeout auf 30 Sek. festlegen
            nTimeout = 30
            vStart = Now

            Do While .ReadyState <> WebBrowserReadyState.Complete
                Application.DoEvents()
                ' Timeout ?
                If DateDiff(DateInterval.Second, vStart, Now) > nTimeout Then
                    bResult = False
                    Exit Do
                End If
            Loop
        End With
        Me.Cursor = Cursors.Default

        Return bResult
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            WebBrowser1.Navigate(TextBox1.Text)
        Catch ex As Exception
            MsgBox("Ungültige Adresse.Sicher gehen das www voran steht!")
        End Try


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        WebBrowser1.Navigate("www.google.de")
        TextBox2.Text = "http://www.google.de"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.GoBack()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        WebBrowser1.GoForward()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        WebBrowser1.Refresh()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class 


du brauchst :

6 Button, 2 Textboxen, 2 Labels und einen Webbrowser

DU gehst auf die Seite im Webbrowser und drücks dann auf den button wo es den quelltext ausliest. Nun kannst du mit einer Search function etwas bestimmtes im Quelltext auslesen

aus ner webseite den quelltext wusst ichs chon nur nicht wie ich uas einer bestimmten zeile könnte ich nicht auch

Dim Quelltext As String = Form1.WebBrowser1.Document.GetElementById("").InnerText
        If Quelltext.Contains(TextBox1.Text)

Machen?

[Madd Eye]

Dim codeteil as String

codeteil = Form1WebBrowser1.Document.GetElementById("btnLogin").innerHTML