反射终端仿真器 - 与 IE 集成

Question

我正在尝试在反射终端模拟器中运行的遗留应用程序和在 IE 中运行的基于浏览器的应用程序之间实现一些集成。

我正在使用主机启动脚本，以便将维护和部署问题隔离到旧应用程序中。 所有脚本都将在旧版应用程序中生成，并使用转义序列传输到 Reflection。

我目前能够：

1. 启动 IE
2. 设置隐藏工具栏等选项
3. 导航到 URL
4. 将状态信息传输回旧版应用程序
5. 等待旧版应用程序发出“关闭”信号
6. 关闭 IE

以下是执行此操作的 VBA 代码

Sub Main
  Dim CR as String
  CR = CHR$(rcCR)
  Dim objIE as Object
  Set objIE = CreateObject("InternetExplorer.Application")
  objIE.ToolBar = false
  objIE.Navigate("http://www.google.com/")
  objIE.Visible = true
  Session.Transmit "OK" & CR
  Session.WaitForString "CLOSE", 0, rcAllowKeystrokes
  objIE.Quit
End Sub

：是脚本继续运行，直到它从旧应用程序获取关闭命令。

我想要做的是使用一个脚本来启动浏览器，然后使用另一个脚本来关闭它或将其重新用于另一个 URL。 但是，我一直无法找到一种方法来跨脚本调用保存对 IE 的引用。 将 objIE 声明为 Sub Main 之外的 Global 没有帮助。 Session 对象确实在脚本调用中持续存在，但它似乎没有可用于此目的的属性。 （Session 确实有一个 UserData 属性，但那是一个字符串，而不是一个对象。）

这是我想要做的一个示例：

脚本 1 - 打开 IE 和 IE。 保持打开状态：

Sub Main
  Dim CR as String
  CR = CHR$(rcCR)
  Dim objIE as Object
  Set objIE = CreateObject("InternetExplorer.Application")
  objIE.ToolBar = false
  objIE.Navigate("http://www.google.com/")
  objIE.Visible = true
  Session.Transmit "OK" & CR
End Sub

脚本 2 - 将原始 IE 窗口发送到新的 URL

Sub Main
  Dim CR as String
  CR = CHR$(rcCR)
  Dim objIE as Object
  Set objIE = FindOriginalIE()
  objIE.Navigate("http://www.stackoverflow.com/")
  Session.Transmit "OK" & CR
End Sub

脚本 3 - 关闭 IE

Sub Main
  Dim CR as String
  CR = CHR$(rcCR)
  Dim objIE as Object
  Set objIE = FindOriginalIE()
  objIE.Quit
  Session.Transmit "OK" & CR
End Sub

我不明白的部分是如何实现脚本 2 和 3 中使用的 FindOriginalIE() 函数。

我尝试使用 GetObject( ) 而不是 CreateObject()，但这让我无处可去。 GetObject() 不会打开新的 IE 窗口，也不会查找现有的 IE 窗口。 我怀疑这是因为我在 Citrix 下运行，但我不确定。

我现在唯一的线索是尝试使用 IE 的 hWND 重新连接到原始窗口，或者使用 DDE 而不是 OLE。 然而，我在这两个方面都没有太多运气，主要是因为缺乏文档。

所以，我的问题是：

1. 我想做的事情是否可能 使用 OLE？ 也就是说有没有办法 保持我对 IE 的处理 主机发起脚本调用？
2. 我应该期望 GetObject() 起作用吗？ 或者这是一个死胡同？
3. 是否可以使用Win32 API 在主机启动的脚本中 使用 hWND 重新连接 IE？

非常感谢任何相关文章、示例代码或其他见解的链接。

Answer 1

AFAIK GetObject 只是不支持 InternetExplorer 对象。 然而，这还不是结束:) 许多其他方式你可以将它从 shell32 的 windows 集合中拉出来。 为了使示例代码（改编自上面链接中的代码）正常工作，您需要设置对以下内容的引用：

1. Microsoft Internet 控件
2. Microsoft HTML 对象库
3. Microsoft Shell 控件和自动化

Public Sub RunMeFirst()
    Dim objIE As SHDocVw.InternetExplorer
    Set objIE = New SHDocVw.InternetExplorer
    objIE.Visible = True
    objIE.navigate "http://www.google.com/"
    Do Until objIE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
End Sub


  公共子 RunMeSecond() 
      Dim objIE As SHDocVw.InternetExplorer 
      昏暗的文档作为 MSHTML.HTMLDocument 
      设置 objIE = GetIEByURL("http://www.google.com/") 
      设置 doc = objIE.document 
      MsgBox doc.body.innerText 
  End Sub

 Private Function GetIEByURL(ByVal URL As String) As SHDocVw.InternetExplorer 
      将 objShell 调暗为 Shell32.Shell 
      将 objExplorer 调暗为 Shell32.ShellFolderView 
      将 obj 调暗为对象 
      设置 objShell = 新外壳 
      对于 objShell.Windows 中的每个 obj 
          如果 TypeOf obj 是 SHDocVw.InternetExplorer 那么 
              如果 StrComp(obj.LocationURL, URL, vbTextCompare) = 0&   然后 
                  退出对于 
              万一 
          万一 
      下一个对象 
      设置 GetIEByURL = obj 
  End Function

我认为可能值得讨论一下您想要完成的任务。 机器人化 IE 是一种相当笨拙的方法（我经常对此感到内疚），但可能有一种更好、资源消耗更少的方法。