Primeiro, deve-se incluir a referência à biblioteca UIAutomationClient É necessário primeiro colar as funções abaixo no topo código Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) Dim IE As InternetExplorer Dim h As LongPtr Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr O código acima é para computadores com 64 bits. for 32 bits, basta apagar a palavra PtrSafedo código. Depois, colar o código a seguir logo abaixo do comando que chama o arquivo a ser salvo. Dim o As IUIAutomation Dim e As IUIAutomationElement Set o = New CUIAutomation h = IE.Hwnd h = FindWindowEx(h, 0, "Frame Notification Bar", vbNullString) If h = 0 Then Exit Sub Set e = o.ElementFromHandle(ByVal h) Dim iCnd As IUIAutomationCondition Set iCnd = o.CreatePropertyCondition(UIA_NamePropertyId, "Salvar") Dim Button As IUIAutomationElement Set Button = e.FindFirst(TreeScope_Subtree, iCnd) Dim InvokePattern As IUIAutomationInvokePattern Set InvokePattern = Button.GetCurrentPattern(UIA_InvokePatternId) InvokePattern.Invoke Sleep 5000Dependendo do tamanho do arquivo você pode aumentar o tem pode aumentar o tempo de espera antes desse comando, lembrando que o sleep funciona em milisegundos onde 1 segundo é 1000 milisegundos. Quando o botão tiver texto diferente de "salvar" é preciso atualizar logo após o comando NamePropertyId. Espero que vocês consigam utilizar. Grande abraço |
Siga esta pergunta
Por Email:Uma vez que você entrar você poderá se inscrever para todas as atualizações aqui
Por RSS:Markdown Básico
- *italico* ou __italico__
- **negrito** or __negrito__
- link:[texto](http://url.com/ "Qual é a sua dúvida?")
- imagem?
- lista numerada: 1. Foo 2. Bar
- para adicionar uma quebra de linha basta adicionar dois espaços onde você gostaria que a nova linha estivesse.
- tags HTML básicas também são suportadas
Tags
pergunta feita: Jun 09 '17 às 15:55
pergunta lida: 1,670 vezes
última alteração: Jun 09 '17 às 15:55