Jump to content

Leaderboard

  1. JScript

    JScript

    Administradores (Adm)


    • Points

      420

    • Content count

      2,077


  2. Luigi

    Luigi

    Administradores (Adm)


    • Points

      317

    • Content count

      697


  3. joelson0007

    joelson0007

    Administradores (Adm)


    • Points

      259

    • Content count

      783


  4. Belini

    Belini

    Administradores (Adm)


    • Points

      230

    • Content count

      2,081



Popular Content

Showing most liked content since 07/03/2011 in all areas

  1. 2 points
    Talvez seja possível iniciar algo do tipo a partir desse código Instalei o BluetoothCLTools-1.2.0.56 e é possível gerenciar as conexões de bluetooth apartir dele Porém ainda não entendi como funciona todas as conexões. Todos os parâmetros estão neste link http://bluetoothinstaller.com/bluetooth-command-line-tools/ ou é possível visualizar pelo prompt de comando o help do arquivo digitando -h Exemplo: btcom.exe -h Este script eu desenvolvi no Windows 10. Não testei e outras versões. #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Bluetooth Script 06/2020 #ce ---------------------------------------------------------------------------- #RequireAdmin ;Necessario para mudar o status do servico #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <GuiListView.au3> #include <SendMessage.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <Services.au3> Dim $sRoot = @ScriptDir hWnd_Main() Func hWnd_Main() ; Cria a GUI principal $hWnd_Main = GUICreate("AutoitBrasil", 620, 380, -1, -1) $ListView1 = GUICtrlCreateListView("Mac Address|Friendly Name|Type", 0, 0, 620, 320) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150) $idBtn_Remove = GUICtrlCreateButton("Remove", 365, 330, 75, 25) $idBtn_Connect = GUICtrlCreateButton("Conectar", 445, 330, 75, 25) $idBtn_Pair = GUICtrlCreateButton("Parear", 525, 330, 75, 25) $idBtn_Refresh = GUICtrlCreateButton("Atualizar", 10, 330, 75, 25) $idBtn_ConnectView = GUICtrlCreateButton("Ver conexões", 95, 330, 75, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit ;Verifica quais conexoes bluetooth estao disponiveis e visiveis Case $idBtn_ConnectView $iStatusProgress = hWnd_Status($hWnd_Main, 'Obtendo informações das conexões visíveis. . .') viewConnections() GUIDelete($iStatusProgress) ;Atualiza a lista de dispoitivos Case $idBtn_Refresh $iStatusProgress = hWnd_Status($hWnd_Main, 'Executando discovery. . .') $aDiscovery = discoveryDevices() If IsArray($aDiscovery) Then _GUICtrlListView_DeleteAllItems($ListView1) For $i = 1 To UBound($aDiscovery) - 1 GUICtrlCreateListViewItem($aDiscovery[$i], $ListView1) Next EndIf GUIDelete($iStatusProgress) ;Remove o dispositivos das conexoes conhecidas Case $idBtn_Remove Local $aItem = _GUICtrlListView_GetItemTextArray($ListView1) If IsArray($aItem) Then If $aItem[1] <> '' Then $iStatusProgress = hWnd_Status($hWnd_Main, 'Tentando remover. . .') Local $iQuestion = MsgBox(262144 + 32 + 4, 'Debug', 'Tem certeza que deseja remover o dispositivo selecionado?' & @CRLF & @CRLF & 'Mac Address: ' & $aItem[1] & @CRLF & 'Device: ' & $aItem[2] & 'Type: ' & $aItem[3], 60) If $iQuestion = 6 Then bluetoothRemove($aItem[1]) EndIf GUIDelete($iStatusProgress) Else MsgBox(262144 + 16, 'Debug', 'Selecione um item da lista') EndIf EndIf ;Conecta um dispositivo bluetooth Case $idBtn_Connect Local $aItem = _GUICtrlListView_GetItemTextArray($ListView1) If IsArray($aItem) Then If $aItem[1] <> '' Then $iStatusProgress = hWnd_Status($hWnd_Main, 'Conectando. . .') bluetoothConnect($aItem[1]) GUIDelete($iStatusProgress) Else MsgBox(262144 + 16, 'Debug', 'Selecione um item da lista') EndIf EndIf ;Pareia um dispositivo bluetooth Case $idBtn_Pair Local $aItem = _GUICtrlListView_GetItemTextArray($ListView1) If IsArray($aItem) Then If $aItem[1] <> '' Then $iStatusProgress = hWnd_Status($hWnd_Main, 'Pareando. . .') bluetoothPair($aItem[1]) GUIDelete($iStatusProgress) Else MsgBox(262144 + 16, 'Debug', 'Selecione um item da lista') EndIf EndIf EndSwitch WEnd EndFunc ;==>hWnd_Main Func viewConnections() checkIsBluettothOn() Local $iPID Local $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btdiscovery.exe -s"', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) Local $sOutput = StdoutRead($iPID) MsgBox(262144 + 64, 'Debug', $sOutput) EndFunc ;==>viewConnections Func bluetoothConnect($sByRefDevice) checkIsBluettothOn() Local $iPID Local $sOutput $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btcom.exe" -b' & $sByRefDevice & ' -c -s110b', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btcom.exe" -b' & $sByRefDevice & ' -c -s110e', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) EndFunc ;==>bluetoothConnect Func bluetoothPair($sByRefDevice) checkIsBluettothOn() Local $iPID Local $sOutput $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btpair.exe -b' & $sByRefDevice & ' -c -s110b"', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btpair.exe -b' & $sByRefDevice & ' -c -s110e"', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) EndFunc ;==>bluetoothPair Func bluetoothRemove($sByRefDevice) checkIsBluettothOn() Local $iPID Local $sOutput $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btcom.exe" -b' & $sByRefDevice & ' -r -s110b', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btcom.exe" -b' & $sByRefDevice & ' -r -s110e', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) EndFunc ;==>bluetoothRemove Func discoveryDevices() checkIsBluettothOn() Local $iPID Local $sOutput, $sTab = ' ' Local $aOutput, $aDevice, $aReturn Local $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btdiscovery.exe -s"', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) Local $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) $aOutput = StringSplit($sOutput, @CRLF, 1) If IsArray($aOutput) Then For $i = 1 To UBound($aOutput) - 1 If StringLeft($aOutput[$i], 1) = '(' Then $aDevice = StringSplit($aOutput[$i], $sTab, 1) If IsArray($aDevice) Then If $aDevice[0] > 2 Then $aReturn &= $aDevice[1] & '|' & $aDevice[2] & '|' & $aDevice[3] & @CRLF EndIf EndIf EndIf Next EndIf $aReturn = StringSplit($aReturn, @CRLF, 1) Return $aReturn EndFunc ;==>discoveryDevices Func hWnd_Status($hWnd_ByRef, $sByRefText = 'Aguarde') $hWnd_Status = GUICreate("", 620, 380, 0, 0, $WS_POPUP, $WS_EX_MDICHILD, $hWnd_ByRef) GUISetBkColor(0x252525) Local $aGetPos = WinGetPos($hWnd_Status) Local $Graphic1 = GUICtrlCreateGraphic(0, 95, $aGetPos[2] - 2, 160) Local $Label1 = GUICtrlCreateLabel($sByRefText, 0, 155, $aGetPos[2] - 2, 17, $SS_CENTER) GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI") GUICtrlSetBkColor(-1, -2) GUICtrlSetColor(-1, 0xFFFFFF) Local $Progress1 = GUICtrlCreateProgress(165, 185, 310, 12, 0x8) _SendMessage(GUICtrlGetHandle($Progress1), $PBM_SETMARQUEE, 1, 16) WinSetTrans($hWnd_Status, '', 230) GUISetState() WinActivate($hWnd_ByRef) Return $hWnd_Status EndFunc ;==>hWnd_Status Func checkIsBluettothOn() Local $sParam1 = 'bthserv', $sParam2 = 'bthHFSrv' Local $aCheckService = _Service_QueryStatus($sParam1) If $aCheckService[1] <> 4 Then Local $iQuestion = MsgBox(262144 + 32 + 4, 'Debug', 'O serviço bluetoth não está habilitado' & @CRLF & @CRLF & 'Deseja habilitar agora?', 60) If $iQuestion = 6 Then _Service_Start($sParam1) _Service_Start($sParam2) EndIf EndIf EndFunc ;==>checkIsBluettothOn Os demais arquivos necessários estão no link https://1drv.ms/u/s!AnsPM67Cyv4Xk9MKRtGzYbK2dTsCIA?e=Y3nXkD
  2. 2 points
    Dessa vez esta com banco de dados em SQL
  3. 2 points
    Olá pessoal. Aproveitando o feriado de carnaval, que dependendo da região é mais ou menos comemorado, quero abrir um tópico para que todos possam dar sua contribuição em dicas, macetes e truques ao utilizar o AutoIt. Afinal todos nós, de uma maneira ou outra, ao fazermos nosso scripts, utilizamos as vezes sem nem mesmo pensar, alguma dica ou macete. Vou tentar manter compilado aqui no 1o post, essas dicas. Não tem sequência, nem melhor nem pior. Só uma lista! 1) a diretiva #include serve para incorporarmos códigos já prontos referentes a um determinado tópico aos nossos scripts. Ao utilizarmos o #include tem duas maneiras, que passam desapercebidas: #include <> com os sinais de maior e menor, que identifica um arquivo que será procurado e incorporado a partir da subpasta Include da pasta principal do AutoIt #include "" com as aspas, que identiica um arquivo que está na mesma pasta do script, facilitando assim para desdobrar o script em vários outros scripts menores para facilitar a edição ou manutenção Exemplos: #include <Misc.au3> - estamos procurando o arquivo Misc.au3 que está na pasta Include #include "MeuScript.au3" - estamos procurando o arquivo MeuScript.au3 que está na mesma pasta do meu script stual Aqui fica uma segunda dica que eu utilizo. Quando o script passa a ser meio genérico, tipo uma biblioteca de scripts em comum a vários projetos (vide o tópico Framework), eu costumo criar um link simbólico do arquivo na subpasta Include. Dessa forma, tenho o melhor dos dois mundos, pois mantenho o script "à mão" e ao mesmo tempo ele está disponível para qualquer projeto, sem criar uma cópia do mesmo e correndo o risco de ficar com arquivos desatualizados. 2) Já aconteceu a situação de vc testar seu código e as mensagens estarem em português correto (ou com acentos) mas ao compilar o mesmo script, ele aparece com alguns caracteres malucos no lugar dos acentos? Outra situação é quando eu vejo o pessoal reclamando do erro UTF-8 ou UNICODE ao compilar algum script, principalmente do fórum gringo. Isto acontece porque ao escrevermos nosso códigos no SciTe (assumindo que vc use o editor padrão do AutoIt), os códigos são escritos utilizando o código de página Windows 1252, que preserva os acentos e demais caracteres diferenciados da nossa língua portuguesa e similares. Porém, várias ferramentas do AutoIt e outras exigem UNICODE como forma de codificação. Não vou entrar em detalhes aqui (não é local para isto), mas minha recomendação é que vcs modifiquem o SciTe para que todos os seus scripts sejam gravados em UTF-8 with BOM, que é um padrão internacional UNICODE. Assim, vc ganha de várias formas: os acentos que estão no seu código em desenvolvimento serão transferidos adequada e corretamente para a versào compilada pode-se trocar scripts (ou compartilhá-los) nos fóruns estrangeiros sem problemas as ferramentas do AutoIt e outras externas não reclamarão da codificação do arquivo. Mas atenção, ao fazer esta modificação é necessário abrir o script, mudar a codificação e conferir o script para as mudanças que possam surgir, principalmente nas mensagens ao usuário. Ao salvar o script, ele já será salvo nste novo formato. Para fazer isto, com o script aberto no SciTe, vá no menu FILE, opção ENCODING e troque de Code Page Property para UFT-8 with BOM e salve seu script ou feche o editor, salvando o arquivo. Finalmente este procedimento é necessário ser feito em todos os seus scripts, o que dependendo da quantidade, pode ser um processo longo e trabalhoso/tedioso, assim vou colocar em outro tópico um script para fazer este processo de forma automática (a conversão apenas). Mesmo assim é importante que os scripts sejam conferidos. Veja aqui => Conversão de Codificação dos Scripts E vem mais por aí... A comunidade agradece!
  4. 2 points
    Olá. Dando sequência na ideia de customizar o SciTe, para fazê-lo basta editar os arqs de configuração. Isto pode ser feito de dentro do editor, pelo menu Option e selecionando o arquivo a ser modificado, Ou editando estes mesmos arquivos externamente através do bloco de notas (ou similar). Porém se fizer isso, recomendo que o SciTe esteja fechado para evitar que as alterações não sejam gravadas ou sejam sobregravadas quando o SciTe fechar. De qualquer maneira, editando estes arquivos (e quaisquer outros) pode aumentar o seu controle sobre o SciTe e deixar o seu ambiente de trabalho mais amigável. Vamos aos arquivos: 1) Menu Options / Open User Options File, ou externamente edite o arquivo "C:\Program Files (x86)\AutoIt3\SciTE\SciTEUser.properties" Este arquivo controle várias configurações do SciTe, em particular algumas das mais interessantes como: highlight.current.word=1 => para realçar a palavra onde está o cursor e podermos visualmente identificar as iguais no resto do código. Dica: quando fizer isto, normalmente mostra somente na tela as palavras iguais. No momento que vc move o cursor, vai selecionar outra palavra. A dica aqui é usar o botão do meio do mouse para rolar e ver as demais coincidências no resto do script highlight.current.word.minlength=3 => identifica qual o mínimo de letras para realçar uma palavra use.tabs=0 => para escolher entre tabulação ou espaço nas identações. Pessoalmente prefiro espaços, ou seja, quando eu aperto o TAB o SciTe insere x espaços a cada TAB. Para usar o TAB mesmo, coloque use.tabs=1 tabsize=3 => para escolher quantos espaços serão inseridos a cada TAB indent.size=3 => para escolher quantos espaços serão inseridos a cada nova linha para manter a identação highlight.current.word.stoponspace=0 => quando vc seleciona com o Shift uma quantidade maior do que uma palavra, tbm funciona o realce, porém ao chegar no primeiro espaço, para de realçar. Com esta opção, não para. Eu acho ótimo para comparar visualmente 2 linhas de código, pois ao marcar com o Shift, vai mostrando se a outra linha está igual. As vezes, uma pequena diferença como um apóstrofe é ruim de ver, mas no realce é fécil de ver. Tbm para mexer nas cores do editor, mexa nas seguintes configurações #Background -> style.au3.32=style.*.32=$(font.base),back:#F0F4F9 # CaretLineBackground -> caret.line.back= # Brace highlight -> style.au3.34= # Brace incomplete highlight -> style.au3.35= # White space -> style.au3.0= # Comment line -> style.au3.1= # Comment block -> style.au3.2= # Number -> style.au3.3= # Function -> style.au3.4= # Keyword -> style.au3.5= # Macro -> style.au3.6= # String -> style.au3.7= # Operator -> style.au3.8= # Variable -> style.au3.9= # Sent keys -> style.au3.10= # Pre=Processor -> style.au3.11= # Special -> style.au3.12= # Abbrev=Expand -> style.au3.13= # Com Objects -> style.au3.14= # Standard UDF's -> style.au3.15= As minhas cores são basicamente o padrão, porém eu gosto de usar uma cor amarela para realçar a linha atual que estou trabalhando. Então eu mexi na linha caret.line.back=#FFFA2B Se fizer isto por detro do prório editor, ao pressionar Ctrl S para salvar, a mudança aparece na hora. Para ajudar a selecionar cores e os seus códigos eu recomendo 2 sites, onde vc pode selecionar as cores e copiar o código hexa ou informar o código hexa e ver a cor desejada: https://www.colorschemer.com/color-picker/ https://www.rapidtables.com/web/color/RGB_Color.html
  5. 2 points
    Consegui colocar Mute e Volume neste que usa a Ole32.dll e agora já dá prá incluir ele na minha lista de players também. Func IMediaControl_Mute(ByRef $IGraphBuilder, $opt = 0) If $opt = 0 Then IMediaControl_Vol($IGraphBuilder, $volume); 100 para volume total Else IMediaControl_Vol($IGraphBuilder, 0) EndIf GUICtrlSetData($lab_mute, "Mute: " & $opt) EndFunc ;==>IMediaControl_Mute Func IMediaControl_Vol(ByRef $IGraphBuilder, $vol = 50); Faltando $IMediaControl = GetIMediaControl($IGraphBuilder) If @error Then Return SetError(1, 0, False) ;-------IMediaControl Vol Virtual Method Number Is 46;---------------- $Rt = InterfaceCall($IMediaControl, "long", 46, "long", -Exp((100 - $vol) / 10.86)) ;-------IMediaControl Vol Virtual Method Number Is 46;---------------- GUICtrlSetData($lab_vol, "Vol: " & $vol) If @error Or $Rt[0] <> 1 Then CtrlGraphRelease($IMediaControl) Return SetError(2, 0, False) EndIf Return SetError(0, 0, True) EndFunc ;==>IMediaControl_Vol _DirectShow_Ole32.au3
  6. 2 points
    Embora o ultimo post foi de 2017 e vi o codigo apenas agora Muito bom a UDF. Criei um script pra testar e ficou legal Notei que as vezes ao passar o mouse o efeito vem acompanhado de alguns blinks Adicionei uma função de sleep (_HighPrecisionSleep) na UDF mas não consegui eliminar totalmente o blink #include "BackEffect.au3" #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WinAPI.au3> #include <UDF_AnimateWindow.au3> #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Popup Exemplo 2 11/2019 #ce ---------------------------------------------------------------------------- ;Variavel de dimensionamento Dim Const $iW = 610, $iH = 430 ;Variavel para arrendondamento das bordas da janela e dimensionamento do botao fechar Dim Const $iC = 25 Dim Const $iC2 = 8 ;0 = Quadrado / 8 = Quadrado com cantos arredondados / 16 = Quase circular / 32 = Circulo ;Variavel para controle do MouseHover Dim $fOver0 = False, $fOver1 = False, $fOver2 = False ;/Tabela de cores Dim $tSTRUCTCOLOR = 'struct;char white[8];char alpha[2];char blueCustom[8];char blue[8];char dark[8];char red[8];char gray[8];endstruct' Dim $oColor = DllStructCreate($tSTRUCTCOLOR) DllStructSetData($oColor, 'blueCustom', 0x006BB7) DllStructSetData($oColor, 'blue', 0x01558C) DllStructSetData($oColor, 'white', 0xFFFFFF) DllStructSetData($oColor, 'alpha', -2) DllStructSetData($oColor, 'dark', 0x252525) DllStructSetData($oColor, 'red', 0xD61425) DllStructSetData($oColor, 'gray', 0xD1D1D1) ;// ;Cria o Popup Dim Const $hWnd_Main = GUICreate("", $iW, $iH, -1, -1, $WS_POPUP) GUISetBkColor($oColor.blueCustom) $aGetPos = WinGetPos($hWnd_Main) ;Arredonda os cantos da form Dim Const $hRegion = _WinAPI_CreateRoundRectRgn(0, 0, $iW, $iH, $iC, $iC) _WinAPI_SetWindowRgn($hWnd_Main, $hRegion) Dim $idBtn_Ok = GUICtrlCreateLabel("Ok", 410, 369, 75, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetBkColor(-1, $oColor.dark) GUICtrlSetColor(-1, $oColor.white) Dim $idBtn_Cancel = GUICtrlCreateLabel("Cancelar", 500, 369, 75, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetBkColor(-1, $oColor.dark) GUICtrlSetColor(-1, $oColor.white) ;Aplica efeito de entrada WinAPI_AnimateWindow($hWnd_Main, 'explode', 350) GUISetState(@SW_SHOW) ;/Cria o botao close Dim Const $hWnd_Close = GUICreate('', $iC, $iC, $aGetPos[2] - 35, 10, $WS_POPUP, $WS_EX_MDICHILD, $hWnd_Main) ;Arredonda os cantos da form Dim Const $hRegion_ = _WinAPI_CreateRoundRectRgn(0, 0, $iC, $iC, $iC2, $iC2) _WinAPI_SetWindowRgn($hWnd_Close, $hRegion_) ;Define a cor de fundo GUISetBkColor($oColor.dark) ;/Cria o botao X Dim $idBtn_Close_C = GUICtrlCreateLabel('X', 0, 0, $iC - 1, $iC - 1, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, 11, 400, 0, 'Segoe UI', 0) GUICtrlSetBkColor(-1, $oColor.dark) GUICtrlSetColor(-1, $oColor.white) ;// ;Executa a animacao de entrada WinAPI_AnimateWindow($hWnd_Close, 'explode', 300) ;Exibe a form GUISetState(@SW_SHOW) WinActivate($hWnd_Main) ;// ;Altera os estilos da form GUISetStyle(-1, $WS_EX_COMPOSITED, $hWnd_Main) ;Registra uma funcao definida para um Windows Message ID (WM_MSG) conhecido GUIRegisterMsg($WM_NCHITTEST, "_WM_NCHITTEST") ;Habilita o efeito nos controles __BackEffectStart($hWnd_Main, $oColor.gray) ;Adiciona o efeito no botao $idBtn_Ok AddBack_Effect($hWnd_Main, $idBtn_Ok, 3) ;Adiciona o efeito no botao $idBtn_Cancel AddBack_Effect($hWnd_Main, $idBtn_Cancel, 3) While 1 ;Identifica a posicao do mouse sobre a form _MouseHover() $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $idBtn_Close_C Exit Case $idBtn_Ok MsgBox(262144 + 0, 'Debug', 'Botao Ok pressionado', 0, $hWnd_Main) Case $idBtn_Cancel MsgBox(262144 + 0, 'Debug', 'Botao cancelar pressionado', 0, $hWnd_Main) Exit EndSwitch WEnd ;Retorna a posicao do mouse relativa a Form Func _MouseHover() $aCInfo = GUIGetCursorInfo($hWnd_Main) ;/Button Ok If $aCInfo[4] = $idBtn_Ok Then If $fOver0 = False Then GUICtrlSetBkColor($idBtn_Ok, $oColor.blue) GUICtrlSetColor($idBtn_Ok, $oColor.white) $fOver0 = True EndIf Else If $fOver0 = True Then GUICtrlSetBkColor($idBtn_Ok, $oColor.dark) GUICtrlSetColor($idBtn_Ok, $oColor.gray) $fOver0 = False EndIf EndIf ;// ;/Button Cancel If $aCInfo[4] = $idBtn_Cancel Then If $fOver1 = False Then GUICtrlSetBkColor($idBtn_Cancel, $oColor.red) GUICtrlSetColor($idBtn_Cancel, $oColor.white) $fOver1 = True EndIf Else If $fOver1 = True Then GUICtrlSetBkColor($idBtn_Cancel, $oColor.dark) GUICtrlSetColor($idBtn_Cancel, $oColor.gray) $fOver1 = False EndIf EndIf ;// $aCInfo = GUIGetCursorInfo($hWnd_Close) ;/Button Close If $aCInfo[4] = $idBtn_Close_C Then If $fOver2 = False Then GUICtrlSetBkColor($idBtn_Close_C, $oColor.red) GUICtrlSetColor($idBtn_Close_C, $oColor.white) $fOver2 = True EndIf Else If $fOver2 = True Then GUICtrlSetBkColor($idBtn_Close_C, $oColor.dark) GUICtrlSetColor($idBtn_Close_C, $oColor.gray) $fOver2 = False EndIf EndIf ;// EndFunc ;==>_MouseHover ;Habilita o movimento da form de qualquer ponto de referencia Func _WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam) ;https://docs.microsoft.com/en-us/windows/win32/inputdev/wm-nchittest #forceref $hWnd, $iMsg, $iwParam, $ilParam If $iMsg = $WM_NCHITTEST Then Return $HTCAPTION EndFunc ;==>_WM_NCHITTEST Abaixo eu anexei a UDF com a função _HighPrecisionSleep adicionada E a UDF AnimateWindow que não vem na instalação do Autoit mas esta presente nesse código de exemplo BackEffect.au3 UDF_AnimateWindow.au3
  7. 2 points
    Olá, Compartilhando um script de efeitos de entrada e saída de GUI utilizando a função _WinAPI_AnimateWindow Deve ser usado junto com GUISetState() #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Animate Window 07/2019 Base de pesquisa https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-animatewindow #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <WinAPIDiag.au3> ;Variaveis de efeitos Dim Const $tSTRUCT = 'struct;char fadeIn[128];char fadeOut[128];char Slide_In_Left[128];char Slide_Out_Left[128];char Slide_In_Right[128];char Slide_Out_Right[128];char Slide_In_Top[128];char Slide_Out_Top[128];' & _ 'char Slide_In_Bottom[128];char Slide_Out_Bottom[128];char DiagSlide_In_TopLeft[128];char DiagSlide_Out_TopLeft[128];char DiagSlide_In_TopRight[128];char DiagSlide_Out_TopRight[128];' & _ 'char DiagSlide_In_BottomLeft[128];char DiagSlide_Out_BottomLeft[128];char DiagSlide_In_BottomRight[128];char DiagSlide_Out_BottomRight[128];char explode[128];char implode[128];endstruct' Dim $oAW = DllStructCreate($tSTRUCT) $oAW.fadeIn = 0x00080000 $oAW.fadeOut = 0x00090000 $oAW.slide_In_Left = 0x00040001 $oAW.slide_Out_Left = 0x00050002 $oAW.slide_In_Top = 0x00040004 $oAW.slide_Out_Top = 0x00050008 $oAW.slide_In_Right = 0x00040002 $oAW.slide_Out_Right = 0x00050001 $oAW.slide_In_Bottom = 0x00040008 $oAW.slide_Out_Bottom = 0x00050004 $oAW.diagSlide_In_TopLeft = 0x00040005 $oAW.diagSlide_Out_TopLeft = 0x0005000a $oAW.diagSlide_In_TopRight = 0x00040006 $oAW.diagSlide_Out_TopRight = 0x00050009 $oAW.diagSlide_In_BottomLeft = 0x00040009 $oAW.diagSlide_Out_BottomLeft = 0x00050006 $oAW.diagSlide_In_BottomRight = 0x0004000a $oAW.diagSlide_Out_BottomRight = 0x00050005 $oAW.explode = 0x00040010 $oAW.implode = 0x00050010 ;Verificar a estrutura da variavel ;~ _WinAPI_DisplayStruct($oAW, $tSTRUCT) ;Variaveis de cores Dim Const $tagSTRUCT = 'struct;char white[8];char black[8];char dark[8];char light[8];char darkLight[8];char aqua[8];char alpha[2];endstruct' Dim $oColor = DllStructCreate($tagSTRUCT) $oColor.white = 0xFFFFFF $oColor.black = 0x000000 $oColor.dark = 0x202020 $oColor.light = 0xf5f6f7 $oColor.darkLight = 0x323232 $oColor.aqua = 0x00f2ff $oColor.alpha = -2 ;Verificar a estrutura da variavel ;~ _WinAPI_DisplayStruct($oColor, $tagSTRUCT) ;Texto de exemplo Dim $sSampleText = 'Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor ' & _ 'incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud ' & _ 'exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure ' & _ 'dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur ' & _ 'sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.' $hWnd_Main = GUICreate("", 615, 437, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST) GUISetBkColor($oColor.dark) $aGetPos = WinGetPos($hWnd_Main) $sLabel_Title = GUICtrlCreateLabel(" Exemplo de janela animada", 0, 0, $aGetPos[2] - 2, 17, $SS_CENTERIMAGE, $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI") GUICtrlSetBkColor(-1, $oColor.darkLight) GUICtrlSetColor(-1, $oColor.white) $Label2 = GUICtrlCreateLabel($sSampleText, 35, 40, 546, 337) GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI") GUICtrlSetColor(-1, $oColor.white) $idBtn_Run = GUICtrlCreateButton("Run Effect", 430, 385, 75, 25) $idBtn_Exit = GUICtrlCreateButton("Exit", 510, 385, 75, 25) GUISetState(@SW_SHOW) ;Cria um sublinhado na barra de titulo $lineGraphic = GUICtrlCreateGraphic(0, 18, $aGetPos[2] - 1, 1) GUICtrlSetBkColor(-1, $oColor.aqua) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $idBtn_Exit Exit Case $idBtn_Run GUICtrlSetState($idBtn_Run, $GUI_HIDE) GUISetState(@SW_HIDE, $hWnd_Main) Sleep(1500) For $i = 1 To 20 ;Coleta o valor da variavel da estrutura $oAW $getAW = DllStructGetData($oAW, $i) ;Aplica o efeito _WinAPI_AnimateWindow($hWnd_Main, $getAW, 300) Sleep(200) Next ;Aplica o efeito de entrada fade-in com tempo de entrada de 1s (1000ms) _WinAPI_AnimateWindow($hWnd_Main, $oAW.fadeIn, 1000) ;Recolore o sublinhado GUICtrlSetBkColor($lineGraphic, $oColor.aqua) GUISetState(@SW_SHOW) GUICtrlSetState($idBtn_Run, $GUI_SHOW) EndSwitch WEnd
  8. 2 points
    Bem... Segundo o Google Translator, DUMMY é um adjetivo que significa: simulado simulated, dummy, mock, sham, assumed, feigned falso false, untrue, bogus, phony, wrong, dummy postiço false, dummy Mas e no AutoIt, pra que serve? Se você usar um GuiCtrlCreateButton, ele retorno o id do elemento, e você vê um botão na GUI (Graphic User Interface ou apenas janela). Se você usar um GuiCtrlCreateLabel, ele retorno o id do elemento, e você vê um label na GUI. E assim por diante... Se você usar um GuiCtrlCreateDummy, ele retorno o id do elemento, e você não vê nada na GUI. Como assim? Ele cria e não retorna nada? Sim! Isso mesmo! É um controle fake, falso. Ah, mas e isso tem utilidade? Pior que tem... Vou mostrar aqui 1 exemplo: Você quer fazer uma GUI, mas nessa GUI tem várias "telas", por exemplo: tela de login tela de cadastro tela de logout Cada tela tem seus elementos (buttons, edit, radio, combobox, etc)... São muitas telas, e cada tela tem seus elementos, pronto, virou um salseiro! Uma confusão! Como fazer para @GUI_SHOW e @GUI_HIDE nesses controles? É nessa questão que venho mostrar esse exemplo. Ocultar o que não precisa, e exibir o que precisa. Outra alternativa simples, seria usar um GuiCtrlCreateTab... Mas fica para outro tópico, vou me ater no Dummy(). A ideia é simples. Antes de começar a criar os comandos da tela da primeira "tela de login", você cria um Dummy antes: #Region Tela de login Global $dummy1 = GuiCtrlCreateDummy() GuiCtrlCreateLabel("Nome de usuário", x1, y1, w1, h1) GuiCtrlCreateInput("digite seu nome de usuario", x2, y2, w2, h2) GuiCtrlCreateLabel("Senha", x3, y3, w3, h3) GuiCtrlCreateInput("digite sua senha", x4, y4, w4, h4) Global $dummy2 = GuiCtrlCreateDummy() #EndeRegion Tela de login E assim... Eu desenho todas as telas que eu preciso: Tela de login, Tela de cadastro, Tela de logout, etc... O segredo é, um Dummy antes do primeiro controle, e um Dummy depois do último controle para cada tela ou sessão. E preciso de um jeito, de manipular cada sessão, isto é, fazer que quando eu quiser a sessão "Tela de login", ele exiba todos os elementos da "Tela de login", e oculte todos os outros elementos que não fazer parte da "Tela de login". Por isso um Dummy antes, e um Dummy depois! O Dummy nada mais é, do que um número qualquer... E qualquer que seja o próximo controle que você criar, ele terá um número a mais do que o Dummy, nesta tela. E o próximo controle, terá um número a mais do que o anterior, até você colocar o Dummy no fim. Então todos os controles da sessão "Tela de login", estarão entre um Dummy (número inicial) e outro Dummy (número final). Agora, já é possível sair ocultando e exibindo os controles. ;~ #AutoIt3Wrapper_AU3Check_Parameters= -q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7 ;~ #Tidy_Parameters=/sf #include-once #include <Array.au3> #include <GUIConstantsEx.au3> #include <EditConstants.au3> #include <StaticConstants.au3> #include <EditConstants.au3> OnAutoItExitRegister("OnExit") Opt("GUIOnEventMode", 1) Opt("GUIEventOptions", 1) Opt("MustDeclareVars", 1) Global $sLoremIpsum = "Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum." Global $aGuiSize[2] = [800, 600] Global $sGuiTitle = "GuiTitle" Global $hGui $hGui = GUICreate($sGuiTitle, $aGuiSize[0], $aGuiSize[1]) GUISetOnEvent($GUI_EVENT_CLOSE, "Quit") GUISetFont(11, 400, 0, "DOSLike", $hGui) #Region VIEWS Global $VIEW = 1 Global $aVIEWS[][4] = [[0, "login"], [0, "account"], [0, "exit"]] Global $pos[4] = [10, 10, 100, 25] For $ii = 0 To UBound($aVIEWS, 1) - 1 $aVIEWS[$ii][0] = GUICtrlCreateRadio($aVIEWS[$ii][1], $pos[0] + $ii * $pos[2], $pos[1], $pos[2], $pos[3]) GUICtrlSetOnEvent($aVIEWS[$ii][0], "View_Click") Next GUICtrlCreateGroup("", -99, -99, 1, 1) #EndRegion VIEWS #Region Tela0 $aVIEWS[0][2] = GUICtrlCreateDummy() Global $hLabel_Tela0_Texto = GUICtrlCreateLabel("Tela de login", 10, 50, 780, 25, BitOR($SS_CENTER, $SS_SUNKEN)) GUICtrlSetBkColor($hLabel_Tela0_Texto, 0xccbbaa) Global $hLabel_Tela0_Usuario = GUICtrlCreateLabel("usuario", 10, 83, 80, 25, $ES_RIGHT) Global $hInput_Tela0_Usuario = GUICtrlCreateInput("", 100, 83, 200, 25) Global $hLabel_Tela0_Senha = GUICtrlCreateLabel("senha", 10, 113, 80, 25, $ES_RIGHT) Global $hInput_Tela0_Senha = GUICtrlCreateInput("", 100, 113, 200, 25) Global $hButton_Tela0_TryLogin = GUICtrlCreateButton("Login", 100, 140, 80, 25) $aVIEWS[0][3] = GUICtrlCreateDummy() #EndRegion Tela0 #Region Tela1 $aVIEWS[1][2] = GUICtrlCreateDummy() Global $hLabel_Tela1_Texto = GUICtrlCreateLabel("Tela de cadastro", 10, 50, 780, 25, BitOR($SS_CENTER, $SS_SUNKEN)) GUICtrlSetBkColor($hLabel_Tela1_Texto, 0x889922) Global $hLabel_Tela1_Nome = GUICtrlCreateLabel("Nome completo", 10, 83, 160, 25, $ES_RIGHT) Global $hInput_Tela1_Nome = GUICtrlCreateInput("", 180, 80, 200, 25) Global $hLabel_Tela1_Usuario = GUICtrlCreateLabel("Nome de usuário", 10, 113, 160, 25, $ES_RIGHT) Global $hInput_Tela1_Usuario = GUICtrlCreateInput("", 180, 110, 200, 25) Global $hLabel_Tela1_Senha = GUICtrlCreateLabel("Senha", 10, 143, 160, 25, $ES_RIGHT) Global $hInput_Tela1_Senha = GUICtrlCreateInput("", 180, 140, 200, 25) $aVIEWS[1][3] = GUICtrlCreateDummy() #EndRegion Tela1 #Region Tela2 $aVIEWS[2][2] = GUICtrlCreateDummy() Global $hLabel_Tela2_Texto = GUICtrlCreateLabel("Tela de logout", 10, 50, 780, 25, BitOR($SS_CENTER, $SS_SUNKEN)) GUICtrlSetBkColor($hLabel_Tela2_Texto, 0xff0011) Global $hLabel_Tela2_Texto = GUICtrlCreateEdit($sLoremIpsum, 10, 83, 780, 400, $ES_MULTILINE) $aVIEWS[2][3] = GUICtrlCreateDummy() #EndRegion Tela2 GUISetState(@SW_SHOW, $hGui) View_Click($VIEW) While Sleep(25) WEnd Func OnExit() GUISetState($hGui, @SW_HIDE) GUIDelete($hGui) EndFunc ;==>OnExit Func Quit() Exit EndFunc ;==>Quit Func View_Click($input = -1) $VIEW = IsDeclared("input") ? $input : @GUI_CtrlId - $aVIEWS[0][0] GUICtrlSetState($aVIEWS[$VIEW][0], $GUI_CHECKED) For $ii = 0 To UBound($aVIEWS, 1) - 1 For $jj = $aVIEWS[$ii][2] + 1 To $aVIEWS[$ii][3] - 1 GUICtrlSetState($jj, $ii = $VIEW ? $GUI_SHOW : $GUI_HIDE) Next Next EndFunc ;==>View_Click Como disse... eis o segredo: Global $aVIEWS[][4] = [ _ [0, "login", "Dummy 0 inicio", "Dummy 0 fim"], _ [0, "account", "Dummy 1 inicio", "Dummy 1 fim"], _ [0, "exit", "Dummy 2 inicio", "Dummy 2 fim"] _ ] coluna 0 $aVIEWS, recebe o handle do CheckBox da tela coluna 1 $aVIEWS, recebe o nome do CheckBox da tela coluna 2 $aVIEWS, recebe o Dummy inicial coluna 3 $aVIEWS, recebe o Dummy final E a cada vez que você chama a função View_Click, ele sabe qual a tela que é pra mostrar, exibindo a tela solicitada, e ocultado tudo o que não é solicitado. Agora para pirar um pouco, os controles não são deletados da tela, eles apenas são ocultados e exibidos! Outra coisa, nem todo o controle pode responder bem aqui... Todos os controles básicos funcionam bem, quero dizer: GuiCtrlCreateButton, GuiCtrlCreateLabe, etc.. Os controles plus não respondem bem: _GuiCtrlCreateButton, _GuiCtrlCreateEdit, etc... Em tempo... Se você precisa executar uma função toda a vez que entrar em uma tela, adicine uma coluna no $aVIEWS, contendo o nome da função que deseja chamar: Func View_Click($input = -1) $VIEW = IsDeclared("input") ? $input : @GUI_CtrlId - $aVIEWS[0][0] GUICtrlSetState($aVIEWS[$VIEW][0], $GUI_CHECKED) CALL($aVIEWS[$VIEW][5]) For $ii = 0 To UBound($aVIEWS, 1) - 1 For $jj = $aVIEWS[$ii][2] + 1 To $aVIEWS[$ii][3] - 1 GUICtrlSetState($jj, $ii = $VIEW ? $GUI_SHOW : $GUI_HIDE) Next Next EndFunc ;==>View_Click Então, toda a vez que você mudar de tela, ele chama a função programada, graças à: CALL($aVIEWS[$VIEW][5]) Você pode fazer a execução de saída de tela... Adicione mais uma coluna, rss... Acredito que mostro aqui um exemplo prático do uso do GuiCtrlCreteDummy, e para pequenos projetos e devido à sua simplicidade se adapta muito bem. É isso! 8D
  9. 2 points
    Bom dia, Compartilho uma pequena função que auxilia muito o debug... Ao invés de usar o ConsoleWrite, use o Print. Versão melhorada: https://github.com/chechelaky/AutoIt/blob/master/Print/Print.au3 Local $arr[][4] = [ _         ["0a", "0b", "0c", "0d"], _         ["1a", "1b", "1c", "1d"], _         ["2a", "2b", "2c", "2d"], _         ["3a", "3b", "3c", "3d"], _         ["4a", "4b", "4c", "4d"], _         ["5a", "5b", "5c", "5d"], _         ["6a", "6b", "6c", "6d"], _         ["7a", "7b", "7c", "7d"], _         ["8a", "8b", "8c", "8d"], _         ["9a", "9b", "9c", "9d"], _         ["10a", "10b", "10c", "10d"], _         ["11a", "11b", "11c", "11d"] _         ] Saída: --> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop +--0+--1+--2+--3+ 0 | 0a| 0b| 0c| 0d| 1 | 1a| 1b| 1c| 1d| 2 | 2a| 2b| 2c| 2d| 3 | 3a| 3b| 3c| 3d| 4 | 4a| 4b| 4c| 4d| 5 | 5a| 5b| 5c| 5d| 6 | 6a| 6b| 6c| 6d| 7 | 7a| 7b| 7c| 7d| 8 | 8a| 8b| 8c| 8d| 9 | 9a| 9b| 9c| 9d| 10 |10a|10b|10c|10d| 11 |11a|11b|11c|11d| +---+---+---+---+ +>14:09:07 AutoIt3.exe ended.rc:0 Local $arr[] = ["um", "dois", 3, 4, 5, 6, 7, 8, 9, 10, 22] Saída: --> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop +----+ 0 | um| 1 |dois| 2 | 3| 3 | 4| 4 | 5| 5 | 6| 6 | 7| 7 | 8| 8 | 9| 9 | 10| 10 | 22| +----+ +>14:15:59 AutoIt3.exe ended.rc:0
  10. 2 points
    É porque na linha 89 você adiciona um valor sequencial sempre que é adicionado um novo elemento na tabela. " $id= $id + 1" e sempre que você adiciona um novo item, ele segue a referencia da variável $id, até aí tudo bem, mas na hora de deletar um item da tabela você simplesmente exclui um item selecionado sem remover o valor da variável e mesmo removendo o valor da variável, o item selecionado pode ser que não seja sequencial como está na variavel $id. Exemplo (linha 89): você adiciona 1 item novo $id=1 $id=2 $id=3 $id=4 Aí você resolve deletar o item 2, a variavel $id continuará somando o valor 1 . Ao invés de usar a variável $id eu coloquei o _GUICtrlListView_GetItemCount para ler quantas linhas tinham na ListView e adicionar +1 de acordo com a quantidade, então se você deletar uma linha, a função que eu citei ali vai ter um valor exato de itens na lista. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <GuiImageList.au3> #include <GuiListView.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <MsgBoxConstants.au3> #include <WinAPI.au3> #include <StringConstants.au3> #include <Array.au3> #include <GuiListBox.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 612, 480, 192, 154) $MenuItem1 = GUICtrlCreateMenu("&Arquivo") $MenuItem2 = GUICtrlCreateMenuItem("Salvar Ctrl+S", $MenuItem1, $SS_CENTER) $MenuItem4 = GUICtrlCreateMenuItem("Carregar Ctrl+O", $MenuItem1, $SS_CENTER) $MenuItem3 = GUICtrlCreateMenuItem("Salvar Como Shitft+Ctrl+S", $MenuItem1, $SS_CENTER) $Group1 = GUICtrlCreateGroup("", 21, 8, 569, 97, $SS_CENTER) $Input1 = GUICtrlCreateInput("ID COR", 122, 32, 97, 21, $SS_CENTER) $Input2 = GUICtrlCreateInput("REGIÃO", 138, 64, 249, 21, $SS_CENTER) $Input3 = GUICtrlCreateInput("Label", 264, 30, 121, 21, $SS_CENTER) $Label1 = GUICtrlCreateLabel("Label", 232, 32, 30, 17, $SS_CENTER) $Button1 = GUICtrlCreateButton("Capturar Cor", 42, 30, 75, 25, $SS_CENTER) $Button2 = GUICtrlCreateButton("Capturar Região", 42, 62, 91, 25, $SS_CENTER) $Button3 = GUICtrlCreateButton("ADD", 442, 24, 113, 33) $Button5 = GUICtrlCreateButton("Delet", 442, 64, 113, 33) $Group2 = GUICtrlCreateGroup("Editar ID selecionado", 8, 384, 601, 57, $SS_CENTER) $Input7 = GUICtrlCreateInput("ID", 10, 402, 40,21, $SS_CENTER) $Input4 = GUICtrlCreateInput("COR", 51, 402, 121, 21, $SS_CENTER) $Input5 = GUICtrlCreateInput("REGIÃO", 173, 402, 249, 21, $SS_CENTER) $Input6 = GUICtrlCreateInput("LABEL", 423, 402, 121, 21, $SS_CENTER) $Button4 = GUICtrlCreateButton("\/", 544, 400, 30, 25, $SS_CENTER) $Button6 = GUICtrlCreateButton("/\", 574, 400, 30, 25, $SS_CENTER) ; Add column ;~ Global $id = Int(0) $List1 = GUICtrlCreateListView("",5, 120, 601, 253, $SS_CENTER) _GUICtrlListView_AddColumn($List1, "ID",40) _GUICtrlListView_AddColumn($List1, "COR",100) _GUICtrlListView_AddColumn($List1, "COORDENADA",305) _GUICtrlListView_AddColumn($List1, "LABEL",150) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $MenuItem2 MsgBox($MB_SYSTEMMODAL, "ctrl + s", "Nothing Here",1) Case $MenuItem3 MsgBox($MB_SYSTEMMODAL, "shift+ctrl s", "Nothing Here",1) Case $MenuItem4 MsgBox($MB_SYSTEMMODAL, "ctrl + o", "Nothing Here",1) Case $Button1 MsgBox($MB_SYSTEMMODAL, "Capturar cor", "Aperte espaço para capturar a cor") GUICtrlSetData($Input1,MouseColor()) Case $Button2 MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição inicial") local $mouse = MouseGetPos() $x_init = $mouse[0] $y_init = $mouse[1] MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição final") local $mouse = MouseGetPos() $x_end = $mouse[0] $y_end = $mouse[1] GUICtrlSetData($Input2,$x_init&','&$y_init&' ; '&$x_end&','&$y_end) Case $Button3 _GUICtrlListView_AddItem($List1, _GUICtrlListView_GetItemCount ( $List1 )+1, 1) ; id _GUICtrlListView_AddSubItem($List1, _GUICtrlListView_GetItemCount ( $List1 )-1, GUICtrlRead($Input1), 1, 1) ;cor _GUICtrlListView_AddSubItem($List1, _GUICtrlListView_GetItemCount ( $List1 )-1, GUICtrlRead($Input2), 2, 1) ;coordenada _GUICtrlListView_AddSubItem($List1, _GUICtrlListView_GetItemCount ( $List1 )-1, GUICtrlRead($Input3), 3, 1) ;label ;~ $id= $id + 1 Case $Button4 $Item = _GUICtrlListView_GetSelectedIndices($List1) $Sid = _GUICtrlListView_GetItem($List1, Number($Item),0) $Scor = _GUICtrlListView_GetItem($List1, Number($Item),1) $Scord = _GUICtrlListView_GetItem($List1, Number($Item),2) $Slabel = _GUICtrlListView_GetItem($List1, Number($Item),3) ; get info GUICtrlSetData($Input7,$Sid[3]) GUICtrlSetData($Input4,$Scor[3]) GUICtrlSetData($Input5,$Scord[3]) GUICtrlSetData($Input6,$Slabel[3]) Case $Button5 _GUICtrlListView_DeleteItemsSelected($List1) Case $Button6 ; give back inf if GUICtrlRead($Input7) <> "ID" Then _GUICtrlListView_SetItem($List1, GUICtrlRead($Input4), GUICtrlRead($Input7),1) ;cor _GUICtrlListView_SetItem($List1, GUICtrlRead($Input5), GUICtrlRead($Input7),2) ;coordenada _GUICtrlListView_SetItem($List1, GUICtrlRead($Input6), GUICtrlRead($Input7),3) ;coordenada EndIf EndSwitch WEnd Func MouseColor() local $mouse = MouseGetPos() Return Hex(PixelGetColor($mouse[0],$mouse[1]), 6) EndFunc
  11. 2 points
    Olha vou te dar um exemplo, mais pode ser que você tenha que ajustar para seu proposito.. ; mutleey ; 12/06/2018 ; de uma olhada nas opçoes do ffmpeg (ffmpeg -help) $vidIN = "meu_video.mp4" ; video entrada $imgOUT = "frame.jpg" ; frame saida $outRES = "1024x768" ; resolução da imagem $vidTIME = "00:01:14" ; posição do video reproduzido HH:MM:SS ShellExecute("ffmpeg.exe", '-ss ' & $vidTIME & ' -i ' & $vidIN & ' -t 1 -s '& $outRES & ' -f image2 ' & $imgOUT, @ScriptDir, "open", @SW_HIDE) ffmpeg Download obs: isso é só uma ideia, existe outros softwares que podem extrair frames, basta testar e ajustar..
  12. 2 points
    Depois de muita procura e testes, achei uma modificação da UDF _HighPrecisionSleep() que retornou resultados satisfatorios.. Pra quem estiver com o mesmo problema segue o código. ; mutleey HotKeySet("{ESC}", "__Exit") Global $ntdll = DllOpen("ntdll.dll") Global $winmm = DllOpen("winmm.dll") While True $timer = TimerInit() MsSleep(1) ConsoleWrite('> ' & TimerDiff($timer) & @LF) WEnd Func MsSleep($MS) $MS *= 1000 DllCall($winmm, "int", "timeBeginPeriod", "int", "1") DllCall($ntdll, "dword", "NtDelayExecution", "int", 0, "int64*", -10 * $MS) EndFunc ;==>MsSleep Func __Exit() DllClose($ntdll) DllClose($winmm) Exit EndFunc
  13. 2 points
    bom dia @Pedro Pinheiro, sugiro o uso do Telegram. Embora houve uma tentativa de minha parte para fazer uma comunicação bidirecional entre ambos sem sucesso (PC -> Celular e Celular -> PC) sem muito sucesso, mas a comunicação PC -> Celular funciona perfeitamente.
  14. 2 points
    Segue... #include <File.au3> #include <Array.au3> #include <FileConstants.au3> CONVERSOR_ENCODING("C:\Scripts") Func CONVERSOR_ENCODING ($sPasta, $iENCODING = $FO_UTF8) Local $aArquivos = _FileListToArrayRec($sPasta, "*.au3", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH) If @error Then Return ConsoleWrite($sPasta & @CRLF) Local $sConteudo, $hArquivo, $nOld_Encoding = -1, $nNew_Encoding = -1, $sAtributos = "", $bMudou_Atributo = False For $nArquivo = 1 to $aArquivos[0] $bMudou_Atributo = False $nOld_Encoding = FileGetEncoding($aArquivos[$nArquivo]) $sAtributos = FileGetAttrib($aArquivos[$nArquivo]) If StringInStr($sAtributos, "R") Then $bMudou_Atributo = True FileSetAttrib($aArquivos[$nArquivo], "-R") EndIf If $nOld_Encoding = $iENCODING Then ConsoleWrite("> ") Else ConsoleWrite("! ") $sConteudo = FileRead($aArquivos[$nArquivo]) FileDelete($aArquivos[$nArquivo]) $hArquivo = FileOpen($aArquivos[$nArquivo], $FO_OVERWRITE + $iENCODING) ConsoleWrite(FileWrite($hArquivo, $sConteudo) & " ") FileClose($hArquivo) EndIf If $bMudou_Atributo Then FileSetAttrib($aArquivos[$nArquivo], "+R") $nNew_Encoding = FileGetEncoding($aArquivos[$nArquivo]) ConsoleWrite(StringFormat("%-100s", $aArquivos[$nArquivo]) & " = " & NOME_ENCODING($nOld_Encoding) & " => " & NOME_ENCODING($nNew_Encoding) & @CRLF) Next EndFunc ;==>CONVERSOR_ENCODING Func NOME_ENCODING ($nCode) Local $aNomes = [ [ $FO_UTF16_LE, "UTF16 Little Endian" ], _ [ $FO_UTF16_BE, "UTF16 Big Endian" ], _ [ $FO_UTF8, "UTF8 (with BOM)" ], _ [ $FO_UTF8_NOBOM, "UTF8 (without BOM)" ], _ [ $FO_ANSI, "ANSI (containing char > 127 and < 255)" ] ] Local $nPosicao = _ArraySearch($aNomes, $nCode) If @error Then Return SetError(1, 0, "NÃO ENCONTRADO") Return SetError(0, 0, StringFormat("%40s", $aNomes[$nPosicao][1])) EndFunc
  15. 1 point
    @Belini Em teoria, vc deixar o arquivo sem extensão poderia ser uma solução no seu caso, onde os programas são chamados por você através do Run. Em termos genéricos não resolve o problema dele. Mas isso pode depender de onde o vírus fez seu gatilho, se na chave do registro do arquivo tipo .EXE ou na chamada de execução do SO para eecutáveis. Se for no registro, este método resolve. Mas é inacreditável que um cara esteja tão "sujo" que não percebe a situação ridícula que se colocou, a ponto do AV "não deixar ele trabalhar"! Caramba! @mutleey A ideia é boa, eu mesmo utilizo em alguns clients esta mesma técnica, mas o ideal é desativar o autorun geral, pois caso algun pendrive estranho (ou sem a pasta) apareça, daí recomeça o ciclo de infecção. Uma outra técnica que existe, quando vc não quer ativar o autorun para um determinado dispositivo (pendrive ou HD) é segurar o SHIFT enquanto espeta o dispositivo. Mantendo o SHIFT pressionado diz pro SO não ativar o autorun para aquele dispositivo. Segue um arquivo de registro que eu uso para desativar os autorun de todos os drives. AutoPlay for all drives - Disable.reg
  16. 1 point
    as versões mais novas do AutoiT a variavel $ghGDIPDll tem que ser renomeada para $__g_hGDIPDll
  17. 1 point
    Manimal faço das suas palavras as minhas! o AutoIT hoje em dia é sem duvida uma excepcional ferramenta seja pra automação, criação de pequenos e complexos programas.. mas o que na minha opinião poderia ser melhorado é a velocidade te interpretação do código, ou a utilização de Multithreading que já resolveria esta questão também..
  18. 1 point
    Olá Odaylton. Realmente o AutoIt Debugger é muito interessante. Os conceitos de projeto, trabalhar com vários fontes, um debugger integrado à IDE fazem parte da maioria dos ambientes de programação de linguagens mais conhecidas por aí. O fato de ter sido descontinuado não é problema, pois ainda funciona perfeitamente na atual versão do AutoIt. Futuramente? Vamos ver... Minha opinião pessoal é que apesar dos recursos, não me adaptei com ele, mas isto é uma questão de gosto mesmo. Fico um pouco chateado com os desenvolvedores originais, que são fantásticos, mas tem uma visão incorreta de sua própria criação! O AutoIt já foi uma mera ferramenta de automação ou de produção de pequenos scripts e tal, mas hoje sua complexidade e abundância de recursos exige um tratamento bem mais profissional, com uma IDE apropriada, compilação efetiva (para eliminar os problemas de direitos autorais), uma interface para produção de janelas e relatórios, etc... Hoje o AutoIt é uma linguagem madura, sem nada a dever para as outras, mas está sendo mantida em segundo plano por conta desta visão tacanha. É uma pena.
  19. 1 point
    Show @Manimal Eu não sabia que o Autoit tinha essa função "Ceiling", eu sempre criava uma função para fazer esse trabalho de arredondar números inteiros.
  20. 1 point
    @Pedro Pinheiro a função _WinAPI_CreateWindowEx é um coringa. Com a mesma função você cria uma janela e os elementos da janela, como input, label, button, etc... Veja esse exemplo que eu traduzi (meia boca) do fórum alemão, mas deu para perceber o que a função _WinAPI_CreateWindowEx pode fazer. Mas nesse momento, infelizmente eu não sei dizer realmente qual a diferença entre a forma tradicional que utilizamos e esta... ;============================================================================== ; _WinAPI_CreateWindowEx.au3 ;============================================================================== #include <WindowsConstants.au3> #include <GuiConstantsEx.au3> #include <ButtonConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> #include <Constants.au3> #include <WinAPI.au3> ; source: https://autoit.de/onlinehilfe/libfunctions/_WinAPI_CreateWindowEx.htm Opt("MustDeclareVars", 1) Global Const $IDC_STATIC = -1, $IDC_EDIT = 101 Global $hInstance ;============================================================================== Exit Example() ;============================================================================== Func Example() Local $hWndMain, $hWndEdit, $hWndStatic, $hWndButton $hInstance = _WinAPI_GetModuleHandle(0) ; cria uma janela principal $hWndMain = GUICreate( _ "_WinAPI_CreateWindowEx - Demo", _ ; título de janela 400, 300, -1, -1, _ ; tamanho e Position de janela BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPCHILDREN), _ ; janelatile $WS_EX_WINDOWEDGE, _ ; extendido janelatile 0) ; Handle de Parent-janela ; cria um simples campo de entrada $hWndEdit = _WinAPI_CreateWindowEx( _ 0, _ ; extendido janelatile "EDIT", _ ; Name o Fensterklasse "Pressione <ENTER>", _ ; Text/título de janela BitOR($WS_TABSTOP, $WS_CHILD, $WS_BORDER, _ ; janelatile $WS_VISIBLE, $ES_LEFT, $ES_NOHIDESEL), _ 100, 80, 200, 22, _ ; Position e tamanho de janela $hWndMain, _ ; Handle de Parent-janela $IDC_EDIT, _ ; Identifizierer de (Kind-)janela $hInstance, _ ; Instanzhandle de Moduls 0) ; aplicação definida valor ; cri um simples TextLabel $hWndStatic = _WinAPI_CreateWindowEx( _ 0, _ ; extendido janelatile "STATIC", _ ; Name o Fensterklasse "Text", _ ; Text/título de janela BitOR($WS_TABSTOP, $WS_CHILD, $WS_VISIBLE, _ ; janelatile $SS_CENTER), _ 160, 140, 80, 18, _ ; Position e tamanho de janela $hWndMain, _ ; Handle de Parent-janela $IDC_STATIC, _ ; Identifizierer de (Kind-)janela $hInstance, _ ; Instanzhandle de Moduls 0) ; aplicação definida valor ; cria um simples botão $hWndButton = _WinAPI_CreateWindowEx( _ 0, _ ; extendido janelatile "BUTTON", _ ; Name o Fensterklasse "Text", _ ; Text/título de janela BitOR($WS_TABSTOP, $WS_VISIBLE, $WS_CHILD, _ ; janelatile $BS_DEFPUSHBUTTON), _ 160, 220, 80, 25, _ ; Position e tamanho de janela $hWndMain, _ ; Handle de Parent-janela $IDOK, _ ; Identifizierer de (Kind-)janela $hInstance, _ ; Instanzhandle de Moduls 0) ; aplicação definida valor ; registra a funão da Janela GUIRegisterMsg($WM_COMMAND, "MyWM_COMMAND") ; exibe a Janela _WinAPI_ShowWindow($hWndMain, @SW_SHOW) While True Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd EndFunc ;==>Example Func MyWM_COMMAND($hWnd, $iMsg, $wParam, $lParam) #forceref $hWnd, $iMsg Local $sMessage Switch _WinAPI_LoWord($wParam) Case $IDC_EDIT ; Nachrichten de Eingabefeldes Switch _WinAPI_HiWord($wParam) Case $EN_UPDATE ContinueCase Case $EN_CHANGE ConsoleWrite(_WinAPI_GetWindowText($lParam) & @CRLF) EndSwitch Case $IDOK $sMessage = StringFormat("o botão com o ID %d foi deprimido.", $IDOK) _WinAPI_MsgBox( _ BitOR($MB_OK, $MB_ICONASTERISK), _ "MyWM_COMMAND", _ $sMessage) EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>MyWM_COMMAND ;================================ End of File =================================
  21. 1 point
    @Manimal, acredito que fizemos funções similares em momentos diferentes, compartilho o meu código para aplicar ou formatar uma entrada numérica no formato de número real "000.000" com qualquer tipo de entrada, segue exemplo: https://github.com/chechelaky/AutoIt/tree/master/Diversos/Mask
  22. 1 point
    @Sergio-F Não precisa mudar dentro da udf, apenas informe ao chamar a função "__BackEffectStart()". Func __BackEffectStart($hGui = 0, $iColorOver = 0x00FF00, $iDelay = 10, $iIncrement = 5) Informe no segundo parâmetro a cor desejada. Mas acho que está valendo também a tua sugestão e a incremento: - Na function "__BackEffectStart()" informar a espessura da borda que seria padrão para todos. - Na function "AddBack_Effect()" dar a possibilidade de informar uma cor em específica para o elemento.
×