不使用Webbrowser或Inet控件vb6打开URL

有没有办法在VB6应用程序中打开URL而不使用Webbrowser或MSInet组件？

---

谢谢

如果您只想在浏览器窗口中打开URL，请使用ShellExecute：

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

---

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

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

thansks，正如我在问题中所说的，我想在VB6应用程序中打开一个网页，而不使用WebBrowser，因为这需要我用我当前禁止的可执行文件重新分发此.ocx。（项目管理的东西）我不认为OCX（用于WebBrowser控制）需要与你的应用程序一起分发。我相信安装IE的PC会有OCX。我的VB有点生锈。所以，请进行测试运行。你对应用程序执行什么样的操作？如果你不喜欢VB的经典包和部署，那么你可以使用免费的Inno安装编译器为你的应用程序创建安装文件。它需要要分发的OCX。不幸的是，我只能将单个文件（无论是.exe还是其他文件）作为我的应用程序放在虚拟服务器上使用。该控件确实需要重新分发OCX，但

ShellExecute（）

不需要该控件。它只需要在计算机上安装一些web浏览器“单文件”是一个相当随意和愚蠢的限制，尤其是任何VB6应用程序都需要至少安装5个其他运行时DLL。@Deanna这是一个用于渗透测试的东西，是非常合理的限制。我不想详细说明，但事实就是这样。

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