Hej!
detta har jag använt i vb6 men vill nu använda detta i vb 2010

        Dim start As Long
        Dim Slut As Long
        Dim i As Integer
        Dim K As String
        Dim X As String

        ListBox1.Text = ""

        start = 1

        start = InStr(start, WebBrowser1.Document.Body.InnerText, "Ant" & ":") + 7
        Slut = InStr(start, WebBrowser1.Document.Body.InnerText, vbCrLf)
        X = Mid$(WebBrowser1.Document.Body.InnerText, start, Slut - start)

        X = X - 1

        For i = 0 To X

            start = 1
            start = InStr(start, WebBrowser1.Document.body.innerText, "Namn" & i) + 5
            Slut = InStr(start, WebBrowser1.Document.body.innerText, vbCrLf)
            K = Mid$(WebBrowser1.Document.body.innerText, start, Slut - start)

            ListBox1.AddItem(K)

        Next i

Hej, tog ett exempel från nätet att hämta data från webbläsare i vb.net. Se om det fungerar bättre

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'You can hide the WebBrowser if you don't want to see it
        WebBrowser1.Visible = False
        WebBrowser1.Navigate("http://mail.google.com/mail/help/intro.html")
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        'e.g. You can locate and retrieve the hyperlink text "Show me my account" and display on RichTextBox
        'Show me my account »
        Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
        For Each curElement As HtmlElement In theElementCollection
            If curElement.GetAttribute("href").Equals("http://mail.google.com/mail") Then
                RichTextBox1.Text = curElement.GetAttribute("innerText")
            End If
        Next
 

        'You can retrieve Body content of entire page and display on RichTextBox
        Dim bodyText As String = WebBrowser1.Document.Body.InnerText.ToString
        RichTextBox1.Text = bodyText
 

        ' You can conveniently save RichTextBox's Text as .rtf file via RichTextBox.SaveFile method
        RichTextBox1.SaveFile("C:\myFile.rtf")
        ' RichTextBox1.LoadFile("C:\myFile.rtf") 'And you can load back the .rtf file
 

        ' Alternatively, you can save RichTextBox's Text as .txt file via StreamWriter class
        Dim sw As New IO.StreamWriter("C:\myFile.txt")
        sw.WriteLine(RichTextBox1.Text)
        sw.Close()
    End Sub
 
End Class

Hej!

Det jag är ute efter är att plocka ut lite text efter Namn
start = InStr(start, WebBrowser1.Document.body.innerText, "Namn") + 5
Slut = InStr(start, WebBrowser1.Document.body.innerText, vbCrLf)
K = Mid$(WebBrowser1.Document.body.innerText, start, Slut - start)

Jag förstår inte varför detta inte funker i VB 2010

Tobbe

Hejsan!

Har fått det att funka nu ändrade Long i Dim Start as As Long till As Integer då gick det?

Tobbe