Question

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

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

Answer 1

　　您好！很高兴为您答疑！

　　只能用shell语句调用火狐，因为InternetExplorer.application是微软提供给开发者的一个接口，用于调用IE内核，显示网页，而Mozilla公司并未提供类似接口。
　　您可以在火狐社区了解更多内容。希望我的回答对您有所帮助，如有疑问，欢迎继续在本平台咨询。

Answer 2

只能用shell语句调用火狐，因为InternetExplorer.application是微软提供给开发者的一个接口，用于调用IE内核，显示网页，而Mozilla公司并未提供类似接口。

追问

链接：http://odds.500.com/fenxi/ouzhi-358080.shtml

注：358080，此处是下载范围（358080~358089），即变数；

当前页面数据下载后，自动关闭当前页面

以上要求能用火狐完成吗？

追答

不需要火狐，可以用VB的webbrowser控件完成，但是代码相当复杂。

参考：
http://zhidao.baidu.com/link?url=p7SX8mVFKygSrlJGwsNGo0AMdmWRGq_R8PyzL-gE6_uwI42DnxnBkDikTV1S60N8DUQQRHDsbu-Nh-I93yskiq
http://zhidao.baidu.com/link?url=vkbOQfotRZ7vFOAjcjaeWzTlkRTWretUDV2Cl-2gZ-cJV1UrnQSvYI2-DNUefCY08zcMcqNQ3I2efHRYTScFsK
http://zhidao.baidu.com/question/149523875.html?qbl=relate_question_1&word=vb%20%BB%F1%C8%A1%CD%F8%D5%BE%D2%B3%C3%E6%CA%FD%BE%DD

追问

能帮忙搞定一下吗