vbscript - 引用 Internet Explorer - 使用 Internet Explorer 对象模型

Question

我想在运行时创建一个 Internet Explorer 对象，我需要它来引用或查找已在当前会话中打开的浏览器对象 (IE)。

使用下面的代码作为启动创建一个新的 Internet Explorer 对象并打开一个浏览器并引用它。但是如何创建一个 Internet Explorer 对象，它可以帮助我们识别会话中打开的现有浏览器，而不是打开新的浏览器窗口。

Set IE = CreateObject("InternetExplorer.Application")

谁能帮我解决这个问题。谢谢你。

Answer 1

您可以使用该Shell.Application对象来查找已经运行的 IE 实例。

Set sh = CreateObject("Shell.Application")
For Each wnd In sh.Windows
  If InStr(1, wnd.FullName, "iexplore.exe", vbTextCompare) > 0 Then
    Set ie = wnd
    Exit For
  End If
Next

以上将附加到找到的第一个实例。如果您删除Exit For它，它将附加到找到的最后一个实例。