Jump to content

claudioenner

Membros
  • Content count

    7
  • Joined

  • Last visited

Community Reputation

1 Neutro

About claudioenner

  • Rank
    Novato

Profile Information

  • Location
    Uberlândia, MG
  1. Capturar erros (exceptions) de outras aplicações

    Bom dia richardwareal, estou trabalhando em uma situação igual a sua, testando aplicação vb6, e para resolver essa questão eu fiz assim: Eu coloquei vários Case informando os erros esperados dentro da aplicação,então quando esse erro acontece eu adiciono um novo case. Ainda estou apanhando um pouco, mas está indo. Case (StringInStr(StringIsUpper($sTexto), StringIsUpper("MSRDO"))) > 1 ;' erro 1 $QuantidadeErros = $QuantidadeErros + 1 _CapituraInformacaoErro($evento & String( @CRLF) & " maior que suportado." & String( @CRLF) & WinGetText("[ACTIVE]") ) Send("{ENTER}") PreencheErroQuantErroVezes(1," maior que suportado.") $EnterropeExecucaoTeste = "S" Abraço!
  2. Mudar variáveis com checkbox

    Yuri Gonzatto, eu estava com a mesma dúvida que você e com a ajuda do antony-ag eu consegui achar uma solução para o meu problema e quem sabe o seu. #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("topico 1", 383, 238, 189, 118) GUISetIcon("C:\icone.ico", -1) $Radio1 = GUICtrlCreateRadio("opção 1", 176, 48, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Radio2 = GUICtrlCreateRadio("opção 2", 16, 48, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Radio3 = GUICtrlCreateRadio("opção 3", 16, 80, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Radio4 = GUICtrlCreateRadio("opção 4", 176, 80, 113, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $TextBox1 = GUICtrlCreateInput("", 56, 120, 241, 21) $TextBox2 = GUICtrlCreateInput("", 56, 150, 241, 21) $TextBox3 = GUICtrlCreateInput("", 56, 180, 241, 21) $TextBox4 = GUICtrlCreateInput("", 56, 210, 241, 21) $Label1 = GUICtrlCreateLabel("Escolha seu favorito", 88, 8, 204, 28) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Local $filename = "C:\Email de Destinatários.txt" $msg = FileRead($filename, 1000) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Radio1 $TextBox1 = GUICtrlCreateInput($msg, 56, 120, 241, 21) Case $Radio2 $TextBox2 = GUICtrlCreateInput("opção 2", 56, 150, 241, 21) Case $Radio3 $TextBox3 = GUICtrlCreateInput("opção 3", 56, 180, 241, 21) Case $Radio4 $TextBox4 = GUICtrlCreateInput("opção 4", 56, 210, 241, 21) Case $GUI_EVENT_CLOSE Exit Case $Radio3 EndSwitch WEnd
  3. Escondendo caracteres na criação de senha do email.

    Olá Manimal, Vou dar uma olhada sim, afinal é sempre bom estar aprendendo e melhorando o conhecimento. Obrigado pelas dicas.
  4. Escondendo caracteres na criação de senha do email.

    Muito massa Manimal, Como eu disse anteriormente eu estou me aprofundando no assunto, já estou fazendo isso que o Orve me disse, e estou usando o Koda para me auxiliar na criação do Designer e configurações desse tipo, ele parece muito com Delph, e tem alguns recursos que ajuda muito. No projeto que estou trabalhando, estou criando um aplicativo que cria uma janela onde o usuário informa o email e a senha e armazena em um arquivo txt, depois ele pega essa informação e usa em outra parte do programa. Durante a execução do programa se caso acontecer algum erro, ele envia um email com o print do erro para os usuários que eu salvei no arquivo txt. Estou quebrando um pouco a cabeça, mas está indo. Estou vendo bastante dicas aqui no fórum e adaptando ao meu código. Minha próxima etapa e pegar os emails do arquivo e usar quando for enviar a mensagem de erro. Já vi alguns tópicos de como ler um arquivo txt. Abraço!
  5. Escondendo caracteres na criação de senha do email.

    Consegui resolver assim: $Input1 = GUICtrlCreateInput("", 50, 58, 120, 21, "40") onde o 40 vai fazer com que os caracteres virem " * " na hora de digitar. Orve, vou pesquisar pela solução que me deu, assim aprimoro mais minha linguagem e conheço outras maneiras de criar meu código. Obrigado!
  6. Escondendo caracteres na criação de senha do email.

    Orve, desculpe minha ignorância mas não achei esse caminho que me indicou E pelo Koda vai em Object Inspector, na aba Styles procure e marque a opção ES_PASSWORD. Eu adicionei o código no final da linha na formatação do input e não passou, acredito que faltou alguma declaração que não fiz. Obrigado!
  7. Boa tarde pessoal, preciso saber como faço para esconder os caracteres quando eles são digitados no campo Senha. Sou novato no autoit, já fiz algumas coisas, mas estou aprendendo ainda. #Region #AutoIt3Wrapper_Icon=Icon\Program.ico #AutoIt3Wrapper_OutFile=teste.exe #Region   ; variáveis globais usadas Global $sArquivo Global $EnterropeExecucao = "Nao" Global $UltimoEvento   #include <GUIToolTip.au3> #include <StaticConstants.au3> #include <Constants.au3> #include <ScreenCapture.au3> #include <GUIConstantsEx.au3> #include <GuiComboBox.au3> #include <GUIConstantsEx.au3> #include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <ButtonConstants.au3> #include <WindowsConstants.au3> #include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <SalvaArquivoEmail.au3> #include <CapturaAcaoEmail.au3>     $FrmFonfiguracaoEmail = GUICreate(".:: Configurações do Email ::.", 320, 100, 190, 100) GUISetIcon("C:\Users\enner\Desktop\Automação\Form.ico", -1)   $Label1 = GUICtrlCreateLabel("Email:",15, 22, 25, 15) $Input2 = GUICtrlCreateInput("", 50, 18, 240, 21)   $Label1 = GUICtrlCreateLabel("Senha:",15, 65, 31, 15) $Input1 = GUICtrlCreateInput("", 50, 58, 120, 21) $Button1 = GUICtrlCreateButton("...", 293, 25, 25, 15) $BtnSalvar = GUICtrlCreateButton("Salvar", 175, 60, 55, 22) GUISetState(@SW_SHOW)   Local $iLoop = 1, $sText = "" While 1 $nMsg = GUIGetMsg() $aCtrlRecvMsg = 0      Select    Case $nMsg = $BtnSalvar $EnterropeExecucaoTeste = "Não"     ;Se o botão de caminho for acionado, será solicitado um caminho para armazenamento do arquivo e a gravação iniciará Case $nMsg = $Button1   ;_GravaEmail()   ;Se a tela for fechada ou o botão de sair for acionado o sistema é encerrado saindo do loop e fechando a janela     Case $nMsg = $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $FrmFonfiguracaoEmail) ExitLoop EndSelect  WEnd Desde já agradeço
×