web - 打开没有 Webbrowser 或 Inet 控制 vb6 的 URL

Question

有没有办法在不使用 Webbrowser 或 MSInet 组件的情况下在 VB6 应用程序中打开 URL？谢谢

Answer 1

如果您只想在浏览器窗口中打开 URL，请使用 ShellExecute：http: //support.microsoft.com/kb/224816

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()
   Dim r As Long
   r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 1)
End Sub

这将在默认浏览器中打开 URL。

否则，如果您需要在应用程序中显示网页，请使用 WebBrowser 控件。

Answer 2

没有。VB6 没有在应用程序中显示网页的任何内在方法。您必须使用第三方控件。另一方面，这应该不是问题，因为您实际上是在使用 Microsoft Internet Explorer 的一个组件。事实上，您不应该分发此控件，因为您可能会损坏最终用户的 Windows 安装。