访问 Internet Explorer 11 上的按钮查看下载表单

如何解决访问 Internet Explorer 11 上的按钮查看下载表单

我在 vb.net 中有一段代码，用于打开应用程序的 Web 链接并从页面下载文件。 Web 浏览器加载页面，程序自动点击页面上的链接下载文件，然后在 IE 11 中弹出“查看下载 - Internet Explorer”窗口，如下所示：

Internet Explorer 11- VIew Downloads window

我设法激活了该窗口，但无法在没有用户干预的情况下单击“保存”按钮自动下载文件。我尝试激活并单击按钮的代码如下

Private Declare Auto Function FindWindow Lib "user32" (ByVal ClassName As String,ByVal WindowTitle As String) As IntPtr
Private Declare Auto Function findwindowex Lib "user32" (ByVal parentHandle As IntPtr,ByVal childAfter As IntPtr,ByVal ClassName As String,ByVal WindowTitle As String) As IntPtr
Private Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr,ByVal msg As Integer,ByVal wParam As Integer,ByVal lParam As IntPtr) As IntPtr


Private Sub Button5_Click(sender As Object,e As EventArgs) Handles Button5.Click
    Dim ParentWndHandle As IntPtr
    ParentWndHandle = FindWindow("#32770","View Downloads - Internet Explorer")
    If ParentWndHandle <> IntPtr.Zero Then
        Dim ChildWndHandle As IntPtr
        ChildWndHandle = findwindowex(ParentWndHandle,vbNullString,"DirectUIHWND",vbNullString)
        Dim btn1 As IntPtr = findwindowex(ChildWndHandle,IntPtr.Zero,"Button","&Save")
        SendMessage(ChildWndHandle,WM_ACTIVATE,WA_ACTIVE,0)
        SendMessage(ChildWndHandle,WM_COMMAND,VK_RETURN,IntPtr.Zero)
    End If
End Sub

解决方法

我认为您的问题可能与 this thread 相同：您需要在 SetActiveWindow 之前使用 SendMessage。

或者你能提取文件 url 吗？如果是这样，您可以参考this doc使用简单的DownloadFile方法下载文件：

My.Computer.Network.DownloadFile(
    "http://www.example.com/downloads/abc.txt","C:\Documents and Settings\All Users\Documents\abc.txt")