Vb：如何将以下行更改为默认Web浏览器：dim webbrowser1 as object = creatobject（" internetexplorer.application"） [英] Vb: how can I change the following line to default web browser: dim webbrowser1 as object = creatobject("internetexplorer.application")

问题描述

如何将以下行更改为默认Web浏览器：

  Dim  WebBrowser1  as   object  = CreatObject（  InternetExplorer.Application）

我的尝试：

  1 。  Dim  WebBrowser1  as   object  = CreatObject（< span class =code-string>  LaunchWinApp.exe％1）
  2 。  Dim  WebBrowser1  as   object  = CreatObject（< span class =code-string>  default）

解决方案

你没有。 AFAIK，IE是唯一通过COM接口公开的浏览器。



接下来，从CreateObjectAs Object处理返回的类对象，只能访问Object公开的方法和属性，而不是您创建的返回类对象的属性和方法。



如果您想控制所有主流浏览器，请查看 Selenium [ ^ ]。

[已编辑]

使用此代码（VBS / VBA）打开标准浏览器的URL：

  Dim  webbrowser2 
 设置 webbrowser2 = CreateObject（  Wscript.Shell）
 如果 webbrowser2    Nothin g  然后 
 MsgBox  创建WebBrowsewr对象时出错 
 其他 
 webbrowser2.Run   http：\\www.google.com， 1 ，错误 
 结束 如果 

看一看：脚本展示默认浏览器（针对Win10更新） [ ^ ]

 wscript.echo浏览器
 
'识别默认网络浏览器
 '作者：JørgenBigom
'2015年10月更新
功能浏览器
缺点t HKEY_CURRENT_USER =& H80000001 
 Const strKeyPath =Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice
 Const strValueName =Progid
 Dim strValue，objRegistry，i 
'浏览器列表：
 Dim blist（6,1）
 blist（0,0）=Intermet Explorer：blist（0,1）=即
 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，strKeyPa th，strValueName，strValue 
如果是IsNull（strValue）那么
 browser =Intermet Explorer（Windows标准）：退出函数
否则
对于i = 0到Ubound（blist， 1）
如果Instr（1，strValue，blist（i，1），vbTextCompare）则浏览器= blist（i，0）&  - 用户选择：退出功能
下一个
结束如果
 browser =未知的网络浏览器！（签名：'& strValue&'）
结束功能

How to change the following line to default web browser:

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

What I have tried:

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

解决方案

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[^].

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

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

这篇关于Vb：如何将以下行更改为默认Web浏览器：dim webbrowser1 as object = creatobject（" internetexplorer.application"）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！