"Download file" dialog automation

Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long
    
 
Private Sub Command1_Click()
    URLDownloadToFile 0, "http://disney-clipart.com/mickey-mouse/mickey-mouse/mickey-mouse-5.jpg", "c:\mickey.jpg", &H10, 0
    Beep
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Option Explicit
 
Private Const BM_CLICK = &HF5&
 
'// ID on WindowsXP IE8
Enum BUTTON_ID
[Button_Save] = &H114B
[Button_Run] = &H114A
[Button_Cancel] = &H2
End Enum
 
Private Declare Function FindWindowW Lib "user32" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function SendDlgItemMessageW Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Sub ClickButtonIEDlg(dwButton As BUTTON_ID)
  Dim hDlg As Long
  hDlg = FindWindowW(0, StrPtr("File Download - Security Warning"))
  SetForegroundWindow hDlg
  Sleep 1000 '// sleep here
  SendDlgItemMessageW hDlg, dwButton, BM_CLICK, 0, 0
End Sub
 
Private Sub Command1_Click()
ClickButtonIEDlg Button_Save
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal HWND1 As Long, ByVal HWND2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Integer, ByVal Y As Integer) As Integer
 
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
 
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Const BM_CLICK = &HF5
 
 
 
Sub GuardarComo(Fichero As String)
 
Dim hwnd As Long, HWND1 As Long, HWND2 As Long, HWND3 As Long, HWND4 As Long, HWND5 As Long, HWNDCont As Long, HWNDCont1 As Long
Dim Textlen As Long, FSO As Object, Carpeta As Object
Dim Texte As String, Txt As String, I As Integer, J As Integer, K As Integer
Dim tRECT As RECT
 
'Carga los parámetros por si no estaban cargados
If IsNull(DirectorioCSV) Or DirectorioCSV = "" Then M_ParámetrosConfiguración.Configuración
 
 
HWNDCont = 9999
 
While HWNDCont <> 0
 
For I = 1 To 12
 
    hwnd = FindWindow("#32770", "Descarga de archivos")
    If hwnd > 0 Then
        For J = 1 To 30
            HndB = FindWindowEx(hwnd, 0, "Button", "&Guardar")
            If HndB > 0 Then
                
                GetWindowRect HndB, tRECT
 
                With tRECT
                    X = .Left + (.Right - .Left) / 2
                    Y = .Top + (.Bottom - .Top) / 2
                End With
                
                SetForegroundWindow hwnd
                
                SetCursorPos X, Y
                Delay 0.3
                DoEvents
                
                SendMessage HndB, BM_CLICK, 0, 0
                
                Exit For
            Else
                Delay 0.2
            End If
            Debug.Print "J", J
        Next J
        Exit For
        
    Else
        Delay 0.5
    End If
    Debug.Print "I", I
Next I
 
For K = 1 To 5
    hwnd = 0
    HWND1 = 0
    HWND2 = 0
    HWND3 = 0
    HWND4 = 0
    HWND5 = 0
    
    hwnd = FindWindow("#32770", "Guardar Como")
    If hwnd > 0 And HWNDCont1 <> hwnd Then
            HndB = FindWindowEx(hwnd, 0, "Button", "&Guardar")
            HWND1 = FindWindowEx(hwnd, 0, "DUIViewWndClassName", vbNullString)
            HWND2 = FindWindowEx(HWND1, 0, "DirectUIHWND", vbNullString)
            HWND3 = FindWindowEx(HWND2, 0, "FloatNotifySink", vbNullString)
            HWND4 = FindWindowEx(HWND3, 0, "Combobox", vbNullString)
            HWND5 = FindWindowEx(HWND4, 0, "Edit", vbNullString)
 
        Txt = DirectorioBBVA & Fichero
 
        
        'lo borra por si ya existiera
        If Len(Dir(Txt)) > 0 Then Kill Txt
        
        'Informa el nuevo nombre y ruta
        SendMessageByString HWND5, WM_SETTEXT, Len(Txt), Txt
        
        Txt = ""
        'Pulsa el botón guardar
        SendMessage HndB, BM_CLICK, 0, 0
        Exit For
    Else
        HndB = FindWindowEx(hwnd, 0, "Button", "&Guardar")
        If HndB <> 0 Then
                GetWindowRect HndB, tRECT
 
                With tRECT
                    X = .Left + (.Right - .Left) / 2
                    Y = .Top + (.Bottom - .Top) / 2
                End With
                
                SetForegroundWindow hwnd
                
                SetCursorPos X, Y
                Delay 0.3
                DoEvents
                
                SendMessage HndB, BM_CLICK, 0, 0
                
                Exit For
        End If
        Delay 0.5
    End If
    Debug.Print "K", K
Next K
 
 
HWNDCont = FindWindow("#32770", "Descarga de archivos")
 
Wend
 
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138: