Ir para conteúdo


Belini

Cadastrado: 24 Ago 2011
Offline Última atividade: Ontem, 08:57
*****

#13020 Remapear teclas

Postado por Belini em 11 maio 2017 - 02:24

Mais uma vez obrigado @Manimal, deu tudo certo agora!




#12997 Problema com mensagem usando GDIPlus

Postado por Belini em 08 maio 2017 - 11:05

Segue exemplo sem usar GDI+

 
Usando imagem em JPG. 
 
Esse exemplo deixa tudo que é Branco Transparente, mas ainda tem umas falhas.
 
Tomará que os meus queridos feras daqui possam ter uma solução para deixar ele pelo menos 99%
 
 Obs: Se houver várias partes brancas na imagem , tem que aumentar um pouco o tom ... por exemplo deixar um pouco cinza que já resolve.
          Ai é só deixar 100%  branco a parte que quer deixar transparente.
 
Abraços. 

 

 

Neste exemplo que tem o fundo todo preto ficou bom mas se colocar alguma imagem e recortar as partes que vão ficar transparentes não fica bom pois fica cheio de falhas ao redor de onde cortou e preencheu com branco, esta alternativa sua seria mesmo uma boa opção prá não usar GDI se conseguise fazer a transparência ficar somente onde tem o branco mesmo!

 

Obs: Achei uma maneira mais fácil pra criar a sua GUI  de exemplo e de quebra economiza o underline e o enter!!!

  1.  
  2. Func Janela()
  3. Local $Borda = ""
  4. ;~ Local $Borda = $WS_POPUP
  5. $Janela = GUICreate(" :: Transparência em Uma Imagem JPG - Esc = Sair / Fechar ::", 760, 668, -1, -1, $Borda, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST))
  6. GUISetBkColor(0xFFFFFF, $Janela)
  7. GUICtrlCreatePic(_Fundo_JPG(True), 0, 0, 760, 668)
  8. GUICtrlCreateLabel("By: Fábio iGames", 0, 10, 760, 22, 1)
  9. GUICtrlSetFont(-1, 13, 10, 1)
  10. GUICtrlSetColor(-1, 0x00FF00)
  11. GUICtrlSetBkColor(-1, -2)
  12. _WinAPI_SetLayeredWindowAttributes($Janela, 0xFFFFFF, 255)
  13. GUISetState(@SW_SHOW, $Janela)
  14. EndFunc ;==>Janela
  15.  



#12889 Remapear teclas

Postado por Belini em 28 abril 2017 - 11:09

@Manimal eu não sou o professor Raimundo mas queria ter um filho assim :aplausos: obrigado pela grande ajuda!




#12883 Remapear teclas

Postado por Belini em 27 abril 2017 - 08:34

Alguém sabe como alterar no registro para trocar uma letra por outra? Tipo apertei "P" e responde como se tivesse apertado "A" por exemplo!

 

OBS: Conheço dois programas que fazem isto o remapkey e o sharpkeys mas queria fazer em Autoit.




#12830 Sons do windows ao digitar em um GUI

Postado por Belini em 30 março 2017 - 10:59

 

kkkkkkkkkkkkkkkk , estava me perguntando se você já não tinha resolvido isso também.  :P  :muttley:

 

Se eu tivesse resolvido teria postado logo que iniciaram o tópico e só não entrei na conversa por falta de tempo e porque este som nunca me incomodou!




#12827 Sons do windows ao digitar em um GUI

Postado por Belini em 29 março 2017 - 06:57

Que bom que encontraram a solução, agora vou aplicar no meu jukebel que também dá este som no windows 7, não que isto me incomode mas como o som esta lá de atrevido e nao fui eu quem coloquei melhor sem ele né!


#12737 Duvida basica sobre labels

Postado por Belini em 19 março 2017 - 12:44

Muito bom mesmo mas eu acrescentaria um StringLen() prá verificar se o texto excedeu ou não o limite e assim só colocaria os pontinhos caso fosse necessário!

  1.  
  2. If StringLen($Texto) >= 29 Then
  3. $SetText = StringLeft($Texto, 29) & "..."
  4. Else
  5. $SetText = $Texto
  6. EndIf
  7.  



#12659 Movendo texto na label

Postado por Belini em 12 março 2017 - 09:57

Da uma olhada na Marquee UDF feita pelo Melba 23: https://www.autoitsc...comment-1012067




#12515 Monitorar pressionamento de teclado.

Postado por Belini em 14 fevereiro 2017 - 08:35

Eu já fiz usando o AdlibRegister() e deixei prá somar mais 10 sempre que alguma tecla for pressionada.

  1.  
  2.  
  3. #cs ----------------------------------------------------------------------------
  4.  
  5. AutoIt Version: 3.3.14.1
  6. Author: Fábio iGames
  7. 15/11/2015
  8.  
  9. Script Function:
  10. Manter a Janela Por Mais 10 Segundos se Pressionar Qualquer Tecla.
  11.  
  12. ==> Gerência Todas as Teclas do Teclado , inclusive os 3 Botôes do Mouse.
  13.  
  14. FUNCIONA 100% COM TODAS AS TECLAS.
  15. #ce ----------------------------------------------------------------------------
  16.  
  17. #include <WinAPI.au3> ; Include Necessária Para a _WinAPI_GetAsyncKeyState
  18.  
  19. Global $Loop = 10, $Add = True ; Variáveis Auxiliares.
  20. Const $MASCARA = 0x8000
  21.  
  22. GUICreate(" Monitorar Teclas - By: Fábio iGames", 330, 50, -1, -1, -1, 0x00000008) ; Cria a Janela no Centro da Área de Trabalho.
  23. ;~ GUICreate(" Monitorar Teclas - By: Fábio iGames", @DesktopWidth, @DesktopHeight, 0, 0, 0x80000000, 0x00000008) ; Cria a Janela Ocupando Toda a Área de Trabalho.
  24.  
  25. GUISetBkColor(0x000000) ; Cor de Fundo da Gui.
  26.  
  27. Local $Label = GUICtrlCreateLabel("FECHANDO EM 10 SEGUNDOS.", 5, 15, 320, 20, 1) ; Label
  28. GUICtrlSetColor(-1, 0xFFFFFF) ; Cor do texto.
  29. GUICtrlSetBkColor(-1, -2) ; Fundo da Label Transparente.
  30. GUICtrlSetFont(-1, 11, 200, 1, "Arial") ; Parâmetros da Fonte.
  31.  
  32. GUISetState(@SW_SHOW) ; Mostra a Janela.
  33.  
  34. AdlibRegister("vigia_teclas", 25)
  35.  
  36. While $Loop ; Loop que Mantem o Script , Quando a Variável Atingir Zero Sai e Encerra o Script.
  37. GUIGetMsg()
  38. GUICtrlSetData($Label, "FECHANDO EM " & $Loop & " SEGUNDOS.") ; Seta na Label as Modificações.
  39. Sleep(1000) ; Delay Para $Loop Diminuir de Segundo em Segundo.
  40. $Loop -= 1 ; Diminui um na Variável $Loop.
  41. $Add = True
  42. WEnd
  43.  
  44. Func vigia_teclas()
  45. If $Add Then ; Se For Verdadeiro...
  46. For $Key = 0x01 To 0xFE ; Vi na #include WinAPIvkeysConstants.au3 e Fiz essa Lógica.
  47. If _WinAPI_GetAsyncKeyState($Key) Then ; Se Pressionar Qualquer Tecla...
  48. $Loop += 10 ; Adicona Mais 10 na Variável.
  49. $Add = False ; Variável Recebe False Para Não Adicionar Mais Tempo ao Pressionar Qualquer Tecla.
  50. EndIf
  51. EndIf
  52. EndFunc ;==>vigia_teclas
  53.  
  54. Exit (0)
  55.  
  56.  
  57.  

@Fábio iGames eu não cheguei a fazer nada que exigem para homologar o programa pois o ramo caiu demais e com certeza eu não conseguiria vender licençãs que compensassem o gasto e o trabalho para atender as exigências deles!




#12457 Organização do script

Postado por Belini em 27 janeiro 2017 - 07:51

Eu sempre coloco nos meus scripts uma linha com parâmetros que me indicam varios erros de sintaxe e variáveis que não estão sendo usadas:

  1.  
  2. #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
  3.  

Vc pode usar também funções do obfuscador (só até a versão 3.3.9.4) na hora de compilar pois ele tira todas funções e variáveis que não estão sendo usadas e aí prá ter o código limpo vc copia o conteúdo do script _Obfuscated.au3 que foi gerado.

 

OBS: Fazendo assim são eliminadas até as funções dos includes que não foram usadas aí vc pode copiar tudo e criar um include só, coloque os includes no início do script para ficar fácil separar o que é include do que é do seu script!

  1.  
  2. /sf 1; Elimina todas funções que não foram usadas no script
  3. /sv 1; Elimina todas variáveis que não foram usadas no script
  4.  



#12377 Ocultar o icone no sistema de bandeja

Postado por Belini em 12 janeiro 2017 - 08:50

Não acho perigoso pois quando é virus ícone já não aparece na barra de tarefas, o cara que cria um virus faz o máximo possível para ocultar a presença dele e pela lógica a primeira coisa seria não mostrar o ícone na barra de tarefas e por isto não vejo problema nenhum em postar este código aqui!




#12351 Conta que não bate o resultado!

Postado por Belini em 09 janeiro 2017 - 12:38

Obrigado a todos que ajudaram, vou optar por usar o == mesmo pois assim não terei que determinar se é para 32 ou 64 bits e nem se é número flutuante!




#12341 Ferramenta pra gerar hex cores

Postado por Belini em 07 janeiro 2017 - 09:46

Excelente trabalho @alexandre, parabéns!




#12328 função keyboardprovider dinput

Postado por Belini em 29 dezembro 2016 - 07:37

Tente assim:

  1.  
  2. ShellExecute("brmamep.exe", Chr(34) & "-keyboardprovider dinput elevator" & Chr(34),@ScriptDir , "open", @SW_HIDE)
  3.  



#12272 Movimentar imagens em loop

Postado por Belini em 05 dezembro 2016 - 01:12

@BigMen eu não posso aumentar as casas de 5 para 10 ou seja as 10 imagens devem fazer um loop nas 5 casas como ficou o que o @Luigi alterou!