[RESOLVED] How navigate to next page on google?

[romanos8]

I want to know how navigate to next page on google automatically. I found this code but I don't know how use it.

Dim temp = WebBrowser1.Document.GetElementById("pnnext")
  If temp Is Nothing OrElse TryCast(temp.DomElement, mshtml.HTMLAnchorElement) Is Nothing Then
   Return
  End If

[romanos8]

I am making a small google tool and I want auto click on button called "next" for navigate to the next page on google search.Sorry for my bad english.Thanks.

[ForumAccount]

This worked for me:

Public Class Form1

    '//event handlers
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, _
                                              ByVal e As WebBrowserDocumentCompletedEventArgs) _
                                              Handles WebBrowser1.DocumentCompleted
        Me.Timer1.Enabled = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Interval = 2000
        Me.WebBrowser1.Navigate("http://www.google.ca/#q=something")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Timer1.Enabled = False

        Dim element = Me.WebBrowser1.Document.GetElementById("pnnext")
        If element IsNot Nothing Then
            element.InvokeMember("click")
        End If

    End Sub

End Class

[romanos8]

Thanks but not work for me, did not make click on next.

[ForumAccount]

Thanks but not work for me, did not make click on next.

Works for me, so, maybe you should detail what's happening for you.

[romanos8]

I opened a new project visual basic 2010 and add a button, a timer1 and one webbrowser, also paste your code. When I make click on the button1 the webbrowser navigate to http://www.google.ca/#q=something but not go to the next page on the google search.

Full code:

Public Class Form1

    '//event handlers
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, _
                                              ByVal e As WebBrowserDocumentCompletedEventArgs)

        Me.Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Timer1.Enabled = False

        Dim element = Me.WebBrowser1.Document.GetElementById("pnnext")
        If element IsNot Nothing Then
            element.InvokeMember("click")
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Timer1.Interval = 2000
        Me.WebBrowser1.Navigate("http://www.google.ca/#q=something")
    End Sub
End Class

[romanos8]

I get it

[ForumAccount]

I don't know how you can paste improperly, but in your "Full Code" (post #6) you are missing the Handles clause for the DocumentCompleted event.

[romanos8]

Thanks the code is working