Vb: how can I change the following line to default web browser: dim webbrowser1 as object = creatobject("internetexplorer.application")

Question

5.00/5 (2 votes)

See more:

How to change the following line to default web browser:

VB

Dim WebBrowser1 as object = CreatObject("InternetExplorer.Application")

What I have tried:

VB

1. Dim WebBrowser1 as object = CreatObject("LaunchWinApp.exe %1")
2. Dim WebBrowser1 as object = CreatObject("default")

Posted 13-Oct-18 6:03am

Alex Steinmetz

Updated 15-Oct-18 1:34am

Nelek

v2

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)

Dave Kreskowiak · Answer 1 · 2018-10-14T05:13:00

Solution 1

You don't. AFAIK, IE is the only browser exposed through a COM interface.

Next, treating the returned class object from CreateObject "As Object", will only get you access to the methods and properties that an Object exposes, not the properties and methods of the returned class object you created.

If you want to control all of the major browsers, look into Selenium[^].

Posted 14-Oct-18 5:13am

Dave Kreskowiak

Comments

Alex Steinmetz 15-Oct-18 6:56am

Thanks Dave for your imm. answer.
you have saved me a lot of time of testing.

Selenium do not support VB.

Dave Kreskowiak 15-Oct-18 8:26am

What makes you say it's not supported?

It works in VB.NET.

Leo Chapiro · Answer 2 · 2018-10-15T01:34:00

Solution 3

[EDITED]
Use this code (VBS/VBA) to open a URL with standard browser:

VB

Dim webbrowser2
Set webbrowser2 = CreateObject("Wscript.Shell")
If webbrowser2 Is Nothing Then
  MsgBox "Error on creating WebBrowsewr object"
Else
  webbrowser2.Run "http:\\www.google.com", 1, False
End If

Take a look: Script Show default browser (updated for Win10)[^]

wscript.echo browser 
 
' Indentify default web browser 
' By Jørgen Bigom  
' Updated Oct. 2015 
Function Browser 
    Const HKEY_CURRENT_USER = &H80000001 
    Const strKeyPath = "Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice" 
    Const strValueName = "Progid" 
    Dim strValue, objRegistry, i 
' Browser list: 
    Dim blist(6,1) 
    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" 
    Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") 
    objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue 
    If IsNull(strValue) Then 
        browser = "Intermet Explorer (Windows standard)": Exit Function 
    Else 
        For i = 0 To Ubound (blist, 1) 
            If Instr (1, strValue, blist(i,1), vbTextCompare) Then browser = blist(i,0) & " - User choice": Exit Function 
        Next 
    End If 
    browser = "Unknown web browser! (signature: '" & strValue & "')" 
End Function

Posted 15-Oct-18 1:34am

Leo Chapiro

Updated 19-Oct-18 1:51am

v2

Comments

Dave Kreskowiak 17-Oct-18 8:25am

This has nothing to do with the question that was asked.

Leo Chapiro 18-Oct-18 10:46am

This is the possibility to get the staandard browser by using the windows registry. Why should that not to be relevant to asked question?

Dave Kreskowiak 18-Oct-18 11:54am

My bad. This is what I get for trying to read code with half my brain asleep.

Alex Steinmetz 18-Oct-18 13:43pm

_dude
Can you be more specific.

Looks like you all missing the main point.
I am not trying to control all of the major browsers.

what I am trying is to run the default browser as: "Process.Start(url)"

and get the HtmlDocuments and the active elements

so I can post my UserName and Password.

Leo Chapiro 18-Oct-18 14:33pm

@Alex: Have you tried call WShell.Run(url, 1, false) ?

Alex Steinmetz 19-Oct-18 1:54am

Please declare "WShell" and kindly give more details.

Leo Chapiro 19-Oct-18 2:47am

CreateObject("Wscript.Shell").Run - take a look https://ss64.com/vb/run.html. Are you not familiar with VBS?

Alex Steinmetz 19-Oct-18 6:26am

No, I am not familiar with VB script.

Still can not get the Active Elements.

Code
Dim webbrowser2 As Object = CreateObject("Wscript.Shell").Run(MemSite(CurrCell), 1, False)
Dim HtmlDoc, HtmlElem As Object
HtmlDoc = webbrowser2.Document
HtmlElem = HtmlDoc.all.item(0)
If HtmlElem.tagname = "HTML" Then
------
End if

Leo Chapiro 19-Oct-18 7:22am

You need to use "Set" to create objects in VBS/VBA.
Try this (VBS):

Dim webbrowser2
Set webbrowser2 = CreateObject("Wscript.Shell")
If webbrowser2 Is Nothing Then
MsgBox "Error on creating WebBrowsewr object"
Else
webbrowser2.Run "http:\\www.google.com", 1, False
End If

Dave Kreskowiak 19-Oct-18 9:17am

The problem with this approach is that you get a Process object back. You don't get access to the browsers DOM to be able to fill in fields from the code.

Alex Steinmetz 19-Oct-18 8:41am

SET and LET is no longer supported.

how do you get the "ACTIVE ELEMENTS" of displayed html page ???

Leo Chapiro 19-Oct-18 9:12am

Alex, make me a pleasure, please: save the code I gave you as test.vbs and let it run ("cscript.exe test.vbs" on console). You will see that the default browser opens the google site - that is all I can do for you now. Have no more time dude, sorry!

Alex Steinmetz 19-Oct-18 9:57am

Thank you for trying to help
Have a nice week end.