Ir para conteúdo


peterhigashi

Cadastrado: 01 Ago 2014
Offline Última atividade: Ago 14 2017 10:00
-----

Posts que fiz

No tópico: Internet Explorer como fazer AUTOIT selecionar texto na tela?

01 junho 2017 - 08:17

Veja se é isso que você precisa MouseClickDrag

 

Espero ter ajudado.

Flw  :up:


No tópico: Apagar pastas e arquivos com direito de administrador

01 junho 2017 - 08:10

Você também pode usar o RunAs.

 

Eu uso o código abaixo p/ apagar um atalho que requer direito de administrador, que no meu caso o #RequireAdmin não resolvia.

  1.  
  2. RunAs($sUserName, @ComputerName, $sPassword, 0, @Comspec & ' /c del "C:\Users\Public\Desktop\Mozilla Firefox.lnk"', @SystemDir)
  3.  

Espero ter ajudado!

Flw  :up:


No tópico: Pesquisar Texto _IEBodyReadText com StringRight/Left

11 maio 2017 - 07:42

Luigi muito obrigado pela ajuda!!! :like_icon:
 
Refiz o código de acordo com suas instruções e não tive o resultado que eu esperava :unsure:
 
Adicionei a pagina inicial do Fórum :ILA2:  para ficar mais fácil os testes e vou tentar reforça a explicação:
 
Quando eu encontrar a palavra "ontem" gostaria que retorna-se no lado esquerdo o nome do usuário e do lado direito o horário conforme o quadro de "Tópicos Recentes" mais retorna "==========div class='message error'==========".
 
Fiz algo errado? :emoticons281:
 
  1.  
  2. #include <IE.au3>
  3. #include <MsgBoxConstants.au3>
  4. #include <String.au3>
  5.  
  6. Global $pg = "AutoIt Script Brasil"
  7.  
  8. ;~ Com
  9. Local $oIE = _IECreate("http://forum.autoitbrasil.com/", "embedded")
  10.  
  11.  
  12. Local $sText = _IEBodyReadText($oIE)
  13. local $meuTexto = "ontem"
  14.  
  15. If StringInStr($sText, $meuTexto) then
  16. Msgbox($MB_SYSTEMMODAL, "", "Text detectado " & $meuTexto)
  17. Msgbox($MB_SYSTEMMODAL, "", "Nada")
  18.  
  19. Local $meuTexto = ""
  20. Local $sInicio = "<", $sFim = ">", $sRepetir = "="
  21. Local $ExistePalavra = _StringBetween($sText, $sInicio, $sFim)
  22. If IsArray($ExistePalavra) Then
  23. $meuTexto = _StringRepeat($sRepetir, 10) & $ExistePalavra[0] & _StringRepeat($sRepetir, 10)
  24. ConsoleWrite($meuTexto & @LF)
  25.  

No tópico: Auto execução

07 outubro 2016 - 03:38

Vê se isso ajuda:
 
  1.  
  2. #include <Timers.au3>
  3. #include <MsgBoxConstants.au3>
  4.  
  5. HotKeySet("{PAUSE}","Quit")
  6.  
  7. Local $title = "your title"
  8. Local $width = "300"
  9. Local $height = "300"
  10. Local $x = -1 ; sets default, which is to center
  11. Local $y = -1 ; sets default, which is to center
  12. Local $opt = 1
  13.  
  14. Case 15 & 30 = @HOUR & @MIN
  15. MsgBox(0, "Relatório às", @HOUR & ":" & @MIN,3) ; Script do relatório
  16.  
  17. Func Quit()
  18.  
 
Flw   :up: