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 5000

Dependendo 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

perguntou Jun 09 '17 às 15:55

eliaspenajr's gravatar image

eliaspenajr
111

Seja o primeiro a responder a esta pergunta!
mudar para preview

Siga esta pergunta

Por Email:

Uma vez que você entrar você poderá se inscrever para todas as atualizações aqui

Por RSS:

Respostas

Respostas e Comentários

Markdown Básico

  • *italico* ou __italico__
  • **negrito** or __negrito__
  • link:[texto](http://url.com/ "Qual é a sua dúvida?")
  • imagem?![alt texto](/path/img.jpg "Qual é a sua dúvida?")
  • 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

×853
×367
×175
×123
×121
×25
×2
×1

pergunta feita: Jun 09 '17 às 15:55

pergunta lida: 1,670 vezes

última alteração: Jun 09 '17 às 15:55