[RESOLVED] [02/03] Web Browser Control Problem

[tommygrayson]

Hi guys!!!

How do I click the link of a page in a web browser control.

I tried searching everywhere and all I get is VB 2005 ang 6.0.

I already created a Web browser control and navigated to the website.

How do I click the link that says "Click me here".

[jmcilhinney]

Any VB6 examples you get should be almost directly applicable because the control you're using is ActiveX, not WinForms.

[tommygrayson]

Any VB6 examples you get should be almost directly applicable because the control you're using is ActiveX, not WinForms.

Hi Jm,

Can you give me some examples. I might be missing a lot. This is my first time manipulating IE through VB.

A simple one is enough.

[jmcilhinney]

I thought you said that you'd already found some VB6 examples. I don't know of any specifically because I've never done it. I'm just saying that you're using COM components so the code will be very similar to the VB6 equivalent.

[tommygrayson]

I thought you said that you'd already found some VB6 examples. I don't know of any specifically because I've never done it. I'm just saying that you're using COM components so the code will be very similar to the VB6 equivalent.

Ok. I know where this discussion is going.

Let's say I'll post Static's example of a Web Control Manipulation.

By the way thanks Static for the tutorial.

 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxWebBrowser1.Navigate("http://dci-intra")
    End Sub

    Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete
        If (sender Is AxWebBrowser1.Application) Then
            Dim AHREF As Object
            For Each AHREF In AxWebBrowser1.Document
                Debug.Write(AHREF)
            Next
        End If
    End Sub

Nothing is printed nor nothing has changed. Wonder why?

[tommygrayson]

Anybody?

[tommygrayson]

Calling once?

[jmcilhinney]

Have you debugged? Have you checked whether execution even enters that If block? I don't see how it could. The method is handling the DocumentComplete event of AxWebBrowser1, so the sender parameter refers to AxWebBrowser1. Your If statement is testing whether AxWebBrowser1 is the same object as AxWebBrowser1.Application, which I doubt is the case.

[tommygrayson]

Have you debugged? Have you checked whether execution even enters that If block? I don't see how it could. The method is handling the DocumentComplete event of AxWebBrowser1, so the sender parameter refers to AxWebBrowser1. Your If statement is testing whether AxWebBrowser1 is the same object as AxWebBrowser1.Application, which I doubt is the case.

So that what it does in the If Block.

No it does not enter the If Block. I will remove the If Block so that it will go directly to For Each Block. I will post the result shortly.

Yes I know I am such a noob at this.

The above statement was from Static's Web Browser Control that is made from Vb 6.0 that I have converted to Vb .NET.

[tommygrayson]

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxWebBrowser1.Navigate("http://dci-intra")
End Sub

Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete
        Dim AHREF As Object
        For Each AHREF In AxWebBrowser1.Document
            Debug.Write(AHREF)
        Next
     End Sub

Now it does not enter in the For Each Block. Hmmm...

Wonder why?

[tommygrayson]

Calling twice?

[tommygrayson]

Calling thrice?

[tommygrayson]

Problem still not resolved?

Ok I will try other alternatives and post again sometime.