Question

vb在ie不是默认浏览器的情况下怎样打开网页?

Answer 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()   '强制用IE浏览器打开网站
Shell "explorer 网址写在这里"
End Sub

Private Sub Command2_Click()   '用默认浏览器打开网站
ShellExecute Me.hwnd, "open", "网址写在这里", "", "", 0
End Sub

我不知道你的目的究竟是什么，所以把两种方法都写上了

追问

我发现ie不是默认浏览器的情况下，用下面这行代码打不开网页，所以，进行了上面的提问。
ShellExecute 0&, vbNullString, "网址", vbNullString, vbNullString, 0

追答

第二个参数是指定网址的打开方式，可写"open"

我的默认浏览器是谷歌，经测试正常

Answer 2

默认浏览器不是IE浏览器，VB可以打开自行设置的默认浏览器来浏览网页。

可以用以下两种代码方式打开。

代码1）用Shell函数直接调用explorer.exe来打开网页。

Private Sub Command1_Click()
    Dim strOpen
    strOpen = Shell("explorer.exe " & Text1, 1)
End Sub

Private Sub Form_Load()
    Text1 = "http://zhidao.baidu.com"
End Sub

代码2）使用Api函数ShellExecute实现打开网页。

Option Explicit
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Dim strUrl As String
    
Private Sub OpenUrl(tUrl As String)
    ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub

Private Sub Command1_Click()
    strUrl = Text1.Text
    OpenUrl (strUrl)
End Sub

Private Sub Form_Load()
    Text1 = "http://zhidao.baidu.com/"
End Sub

两种方式都能在设置谷歌浏览器为默认浏览器状况下，打开想看的网页。

Answer 3

只要有ie插件就可以，是不是默认没关系啊，直接在vb里嵌入浏览器就可以。

Answer 4

想用什么浏览器..就用什么浏览器打开就好