从嵌入式 Internet Explorer 获取返回值

Question

我知道如何从 VBA 应用程序中打开 Internet Explorer。但是如何从正在运行的资源管理器中获取“返回”值到 VBA 应用程序。例如让我们假设我尝试访问 http://page_not_there 并返回错误 400

如何在我的 VBA 应用程序中获取此值并采取相应措施。非常欢迎任何提示或链接或编程示例

可以进行精细编辑。所以顺序是： 信息被发送，我得到一个 HTML 字符串，它可以在 IE 中用于签署文档。当然，为此必须在 IE 中单击一下，但最后如果签名成功，我会得到一种“反馈”，我需要这个“反馈”来知道我是否可以继续。

我已经关闭了我的 windows 盒子，所以请谨慎使用他的盒子。我是这样启动IE的

set ie = CreateObject("InternetExplorer.Application")
ie.navigate2 "to_where_I_want"

就是这样。

然后我得到一个页面，其中运行 Java 小程序以对选定的 URL 进行签名 上面（“to_where_I_want”）我那里有几个按钮，点击签名后我必须输入我的 PIN，然后我对 IE Explorer 的输出感兴趣。

据我了解，我最好创建一个带有 Web 控件的表单并将其用于浏览和签名

问候 弗里德里希

Answer 1

以下是有关获取页面状态的一种方法的一些说明。

   Dim http As Object
   Dim xmlhttp As Object

       Set http = CreateObject("MSXML2.ServerXMLHTTP.4.0")
       Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")

       On Error Resume Next

       xmlhttp.Open "GET", url, False
       ''This alternative can return status 405 in some cases
       ''xmlhttp.Open "HEAD", url, False
       xmlhttp.Send ""

       ''You can get the status of the page
       Status = xmlhttp.Status

       If Err.Number <> 0 Or Status <> 200 Then
           IsLink = False
       Else
           IsLink = True
       End If

       Set xmlhttp = Nothing

编辑：一些注释重新评论

假设有一个名为 WBForm 的表单和一个名为 WB 的控件，它是一个 Microsoft Web Browser 控件：

 ''Navigate to a non-existent page 
 Forms!WBForm!WB.Navigate "http://lessthandot.com/somepage.htm"
 ''Title of the page
 MsgBox Forms!WBForm!WB.Document.Title

在上述情况下，标题将包含“HTTP 404 Not Found”。也可以使用各种元素来阅读文档。

The document object model Scripting with Elements and Collections