Vb net: how to get htmldocument & active htmlelements from default web browser

Question

1.00/5 (1 vote)

See more:

Trying to get Active elements from default web browser
without using form layout + Web Browser Control.
and post the username + password.

What I have tried:

VB

Dim webBrowser1 As Object = New WebBrowser
webBrowser1 = Process.Start(MemSite(CurrCell), ProcessWindowStyle.Maximized)
Dim HtmlDoc As HtmlDocument = webBrowser1.Document
Dim htmlElem As HtmlElement = HtmlDoc.All.Item(0)
If htmlElem.TagName = "HTML" Then

End If

Posted 17-Oct-18 1:53am

Alex Steinmetz

Updated 24-Oct-18 23:48pm

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Alex Steinmetz · Answer 1 · 2018-10-24T23:49:00

VB

Quote:

Private Sub NavWeb()
Browser()
'Dim driver As New InternetExplorerDriver
'Dim driver As New ChromeDriver
Dim driver As New EdgeDriver
'Dim driver As New SafariDriver
driver.Navigate.GoToUrl(MemSite(CurrCell))
Dim HtmlElem As IWebElement
HtmlElem = GetWebElement(driver, By.TagName("html"), 20)
If HtmlElem.TagName = "html" Then
MsgBox("Fond HTML page in " & "Browser: " & Browser())
End If
End Sub

Private Overloads Function GetWebElement(ByVal webDriver As IWebDriver, ByVal definition As By, ByVal timeoutSeconds As Integer) As IWebElement
Dim wait As New WebDriverWait(webDriver, TimeSpan.FromSeconds(timeoutSeconds))
wait.Until(Function(d)
Return d.FindElement(definition).Enabled And d.FindElement(definition).Displayed
End Function)
Return webDriver.FindElement(definition)
End Function

Function Browser()
Const HKEY_CURRENT_USER = &H80000001
Const strKeyPath = "Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice"
Const strValueName = "Progid"
Dim strValue, objRegistry, i
strValue = Nothing
Dim blist(6, 1) 'Browser list:
blist(0, 0) = "Intermet Explorer" : blist(0, 1) = "ie"
blist(1, 0) = "Edge" : blist(1, 1) = "appxq0fevzme2pys62n3e0fbqa7peapykr8v"
blist(2, 0) = "Firefox" : blist(2, 1) = "firefox"
blist(3, 0) = "Chrome" : blist(3, 1) = "chrome"
blist(4, 0) = "Safari" : blist(4, 1) = "safari"
blist(5, 0) = "Avant" : blist(5, 1) = "browserexeurl"
blist(6, 0) = "Opera" : blist(6, 1) = "opera"
objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
objRegistry.GetStringValue(HKEY_CURRENT_USER, strKeyPath, strValueName, strValue)
If strValue Is Nothing Then
Browser = "Intermet Explorer" : Exit Function
Else
For i = 0 To UBound(blist, 1)
If InStr(1, strValue, blist(i, 1), vbTextCompare) Then Browser = blist(i, 0) : Exit Function
Next
End If
Browser = "Unknown web browser" '(signature: '" & strValue & "')"
End Function

Dave Kreskowiak · Answer 2 · 2018-10-17T02:27:00

Solution 1

The only way to do that is Selenium. You were told that two days ago, here[^].

Again, what makes you think VB.NET isn't supported by Selenium?

Posted 17-Oct-18 2:27am

Dave Kreskowiak

Comments

Alex Steinmetz 17-Oct-18 13:34pm

Hi Dave
I am not sure what to download from Selenium.
Can you be so kind and help.

Dave Kreskowiak 17-Oct-18 14:27pm

You don't have to download anything really. In your project in Visual Studio, go the Tools menu and click NuGet Package Manager --> Package Manager Console.

In the Package Manager Console, type "Install-Package Selenium.WebDriver" and hit ENTER.

When that completes, type "Install-Package Selenium.WebDriver.ChromeDriver", then "Install-Package Selenium.WebDriver.IEDriver".

There is a FireFox driver in the package "Selenium.Firefox.WebDriver", but that one wasn't written by the Selenium project.

Alex Steinmetz 18-Oct-18 7:07am

Hi Dave.
Thanks for your guideness.
I have installed the drives + added to project references, imported namespaces.

But I don't have the minimum idea how to use it, to solve above question.

I have tried Selenium site doc. + Selenium user group, but noting.

a lot of questions with verey few answers.

Are you ready to spend a little more time and helping me and others to solve

above.

I will be very great full,

Dave Kreskowiak 18-Oct-18 10:38am

I don't get a lot of time to do this. I've got my own work I have to get through.

This is just a quick example of creating a browser instance and getting it to navigate to a URL:

Imports OpenQA.Selenium
Imports OpenQA.Selenium.Chrome
Imports OpenQA.Selenium.Support.UI

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim driver As New ChromeDriver
        driver.Navigate.GoToUrl("http://www.google.com")

        Dim searchBox As IWebElement
        searchBox = GetWebElement(driver, By.Name("q"), 10)
        searchBox.SendKeys("2001 something wonderful")
        searchBox.SendKeys(Keys.Enter)
    End Sub

    Private Overloads Function GetWebElement(ByVal webDriver As IWebDriver, ByVal definition As By, ByVal timeoutSeconds As Integer) As IWebElement
        Dim wait As New WebDriverWait(webDriver, TimeSpan.FromSeconds(timeoutSeconds))

        wait.Until(Function(d)
                       Return d.FindElement(definition).Enabled And d.FindElement(definition).Displayed
                   End Function)

        Return webDriver.FindElement(definition)
    End Function
End Class

Alex Steinmetz 25-Oct-18 5:37am

After checking & testing for a few days
I can state very clearly that the only possible & simple answer
to this problem is:
Script Show default browser (updated for Win10)[^] by Jorgen Bigom
plus Selenium Project.
THANKS to Dave & duDE help and guideness.