VB 调用火狐内核

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Sub Command1_Click()

Dim winHwnd, btnHwnd, i, x, y, z, xId, T
    With CreateObject("InternetExplorer.application")

        .Visible = True
        .Navigate "http://www.baidu.com/" '打开网页
    End With
End Sub



以上是按钮单击代码，如何修改，可以调用火狐浏览器打开网页，代码形式最好不变，谢谢

不用CreateObject呗

用shell类似的执行：
ShellExecute 0, "open", "C:\Program Files\Mozilla Firefox\Firefox.exe", "http://www.baidu.com", vbNullString, 1

以下代码如何修改可以调用火狐打开，并下载；

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Sub Command1_Click()
Dim winHwnd, btnHwnd, i, x, y, z, xId, T
x = 399336  '开始
y = 399337  '结束
For z = x To y
    With CreateObject("InternetExplorer.application")           '创建一个空的ie
        .Visible = True
        .Navigate "http://odds.500.com/fenxi/ouzhi-" & z & ".shtml" '打开网页
        Do Until .ReadyState = 4                         '等待ie完毕加载
            DoEvents
        Loop
        For i = 0 To .Document.All.tags("A").Length - 1
            If InStr(.Document.All.tags("A")(i).innerText, "赔率下载") > 0 Then xId = .Document.All.tags("A")(i).ID
        Next
        .Document.GetelementById(xId).Click     '点击下载按钮
    End With
Next
End Sub

谢谢分享！

既然已经有了 IE 的实现代码，为什么要用 firefox 实现呢？