Ir para conteúdo


Conteúdo mais curtido


#5295 Checar A Hora Que O Computador Foi Ligado

Postado por joelson0007 em 06 agosto 2012 - 04:08

Esse script aqui é para checar a hora que o pc foi ligado :ninja:

agradecimentos ao @JScript por tranformar em UDF
Spoiler



#5377 Capture Selected! (Printscreen Melhorado...)

Postado por JScript em 11 agosto 2012 - 08:44

Olá!

Quando comecei a fazer esse pequeno programa para selecionar, capturar e salvar telas foi após ter visto como é a captura de telas no MacOS, é simplesmente fantástico, nada tem a ver com a tecla [PrintScreen] do Windows...

Comecei a fazer e usar há um bom tempo, quando pensei em publicar verifiquei que já existe algo até mais complexo e com mais funções do que meu simples sistema!

Bem, é simples mas fácil de usar: Acione a tela de captura com as teclas [Ctrl] + [F1], mova a tela para o local que deseja, redimensione de acordo com a área desejada e tecle [Enter], abrirá a janela para definir o local e o nome para salvar a imagem, simples assim!

Código fonte (bem bagunçado mas funcional...)
Download:
Arquivo anexado  CaptureSelected_(RedirectLink).html   142bytes   109 Downloads

Se alguém tiver interesse em contribuir com mais funções e idéias, não hesite!

Espero que gostem,

João Carlos.


#4563 Conexão ADO (com MSSQL e MYSQL)

Postado por V!c†o® em 04 julho 2012 - 01:59

Olá pessoal, este é meu primeiro tutorial, vi que o fórum carece de informações sobre banco de dados com o Autoit, então resolvi compartilhar um pouco do que eu sei e utilizo sobre o tema.

Antes de tudo, queria apenas deixar uma observação. Até o momento eu só trabalhei em cima de BDs feitos no MYSQL OU MSSQL, não utilizei e nem precisei utilizar o SQLITE, portanto não tenho conhecimento aprofundado sobre o mesmo e não faço idéia se é possível realizar integração do SQLITE com o MSSQL, ou MYSQL, ou outro SGBD. Utilizei a solução abaixo pois já a conhecia antes de mexer no Autoit.

Informe: Para quem não sabe, “O ADO (ActiveX Data Objects) é um mecanismo Component Object Model criado pela Microsoft onde os programas o utilizam para a troca de informações com as bases de dados.”
fonte: http://pt.wikipedia....eX_Data_Objects


Agora mãos na massa! Primeiramente devemos verificar se temos o ODBC (Open Data Base Connectivity) do SGBD(Sistema de gerenciamento de banco de dados) que vamos utilizar seja MSSQL, ou MYSQL. Para isso, segue os passos :

1 – Pressionar “winkey” +”r” (abre o executar do windows) ;

2 – Digitar “odbcad32.exe” e pressionar “Enter” - Irá abrir a janela de “Administrador de fonte de dados ODBC”;

3- Clicar em “Drivers” ;

Imagem Postada
fonte da img: http://www.teayudo.e...diante-odbc/en/

4 – Verificar se a lista contém o driver do SGBD (no nosso caso, do MSSQL ou do MYSQL) a utilizar. Se já tiver, guarde o nome exatamente como está na lista pois vamos utilizá-lo + p/ frente no script. Se não tiver, procure, baixe e instale.
*importante: De preferência baixe a mesma versão do drive utilizada pelo servidor da base de dados

No script :

Conexão MSSQL:
  1. Global $SQLcon="DRIVER={SQL Server};SERVER=xx.xx.xx.xxx; DATABASE=SuaDtBase; UID=SeuUsuario; PWD=SuaSenha;" ; //String usada para conexão. Note que em 'DRIVER={ };' devemos preencher conforme o nome que se encontra na lista de drivers ODBC do Windows
  2. Global $db= ObjCreate ("ADODB.Connection") ;//Cria o objeto COM ADO
  3. $db.Open($SQLcon) ;// Abre conexão com a base de dados conforme a string de conexão em '$SQLcon'

Pronto! Desta forma, abrimos uma conexão ADO com uma base de dados do MSSQL!

Quanto ao MYSQL, é semelhante, só se altera um pouco a sintaxe da string:

Conexão MYSQL:
  1. Global $SQLcon="DRIVER={MySQL ODBC 5.1 Driver};SERVER=xx.xx.xx.xxx;DATABASE=SuaDtBase;USER=SeuUsuario;PASSWORD=SuaSenha;"; //String usada para conexão. Note que em 'DRIVER={ };' devemos preencher conforme o nome que se encontra na lista de drivers ODBC
  2. Global $db= ObjCreate ("ADODB.Connection") ;//Cria o objeto COM ADO
  3. $db.Open($SQLcon) ;// Abre conexão com a base de dados conforme a string de conexão em '$SQLcon'

Para interagir com a base de dados, devemos utilizar as propriedades do nosso Objeto "ADODB.Connection". Abaixo segue as + usadas:

.Open() - Abre conexão com na BD;
.Close() - Fecha conexão com na BD;
.State() - Retorna o status da conexão (se esta aberta ou fechada);
.Execute() - Executa uma query na BD. Ex.: $db.Execute("select*from tb_exemplo")

Para saber + sobre outras propriedades e outros objetos ver: http://www.macoratti.net/ado.htm


#6769 _ComboBoxAutoFill.au3 (UDF) - Auto preenchimento de ComboBox.

Postado por JScript em 12 dezembro 2012 - 12:49

Function Reference 
_ComboBoxAutoFill.au3
Auto preenchimento de ComboBox.

Sintaxe:
[autoit]_GUICtrlComboBox_AutoFillCreate( hWnd )
_GUICtrlComboBox_AutoFillDelete( hWnd )[/autoit]
Suporte:
  1. ; Função nativa e UDF de combobox!
Downloads:

Version: 0.12
Arquivo anexado  _ComboBoxAutoFill_(RedirectLink).html   144bytes   47 Downloads

Note: Está incluso exemplo de uso!

Amostra:

sample11.png

Correções:
Spoiler



#6391 Validadores

Postado por Luigi em 30 outubro 2012 - 01:33

Script para validar um CEP:

  1.  
  2. $cep = "88108-220"
  3. $uf = "sc"
  4. ConsoleWrite("CEP[" & $cep & "][" & $uf & "][" & _checaCep($cep, $uf) & "]" & @LF)
  5.  
  6. Func _checaCep($cCep, $cEstado)
  7. ; Autor: Vinicius O. Andrade
  8. ; Webgrafia: http://www.devmedia.com.br/dicas-validando-cep/833
  9. ; Adaptação: Luigi
  10. Local $cCep1
  11. $cEstado = StringUpper($cEstado)
  12. $cCep = StringMid($cCep, 1, 5) & StringMid($cCep, 7, 3)
  13. $cCep1 = StringMid($cCep, 1, 3)
  14.  
  15. If StringLen($cCep1) > 0 Then
  16. If $cCep <= 1000000 Then
  17. Return False
  18. Else
  19. If StringLen(StringMid($cCep, 6, 3)) < 3 Then
  20. Return False
  21. Else
  22. If $cEstado == 'SP' And $cCep1 >= 10 And $cCep1 <= 199 Then Return True
  23. If $cEstado == 'RJ' And $cCep1 >= 200 And $cCep1 <= 289 Then Return True
  24. If $cEstado == 'ES' And $cCep1 >= 290 And $cCep1 <= 299 Then Return True
  25. If $cEstado == 'MG' And $cCep1 >= 300 And $cCep1 <= 399 Then Return True
  26. If $cEstado == 'BA' And $cCep1 >= 400 And $cCep1 <= 489 Then Return True
  27. If $cEstado == 'SE' And $cCep1 >= 490 And $cCep1 <= 499 Then Return True
  28. If $cEstado == 'PE' And $cCep1 >= 500 And $cCep1 <= 569 Then Return True
  29. If $cEstado == 'AL' And $cCep1 >= 570 And $cCep1 <= 579 Then Return True
  30. If $cEstado == 'PB' And $cCep1 >= 580 And $cCep1 <= 589 Then Return True
  31. If $cEstado == 'RN' And $cCep1 >= 590 And $cCep1 <= 599 Then Return True
  32. If $cEstado == 'CE' And $cCep1 >= 600 And $cCep1 <= 639 Then Return True
  33. If $cEstado == 'PI' And $cCep1 >= 640 And $cCep1 <= 649 Then Return True
  34. If $cEstado == 'MA' And $cCep1 >= 650 And $cCep1 <= 659 Then Return True
  35. If $cEstado == 'PA' And $cCep1 >= 660 And $cCep1 <= 688 Then Return True
  36. If $cEstado == 'AM' And (($cCep1 >= 690 And $cCep1 <= 692) Or ($cCep1 >= 694 And $cCep1 <= 698)) Then Return True
  37. If $cEstado == 'AP' And $cCep1 = 689 Then Return True
  38. If $cEstado == 'RR' And $cCep1 = 693 Then Return True
  39. If $cEstado == 'AC' And $cCep1 = 699 Then Return True
  40. If ($cEstado == 'DF' Or $cEstado = 'GO') And $cCep1 >= 000 And $cCep1 <= 999 Then Return True
  41. If $cEstado == 'TO' And $cCep1 >= 770 And $cCep1 <= 779 Then Return True
  42. If $cEstado == 'MT' And $cCep1 >= 780 And $cCep1 <= 788 Then Return True
  43. If $cEstado == 'MS' And $cCep1 >= 790 And $cCep1 <= 799 Then Return True
  44. If $cEstado == 'RO' And $cCep1 == 789 Then Return True
  45. If $cEstado == 'PR' And $cCep1 >= 800 And $cCep1 <= 879 Then Return True
  46. If $cEstado == 'SC' And $cCep1 >= 880 And $cCep1 <= 899 Then Return True
  47. If $cEstado == 'RS' And $cCep1 >= 900 And $cCep1 <= 999 Then Return True
  48. EndIf
  49. EndIf
  50. Else
  51. Return False
  52. EndIf
  53. EndFunc ;==>_checaCep

CNH

  1.  
  2. $cnh = 112233445
  3. ConsoleWrite("_validaCHN[" & _validaCNH($cnh) & "]" & @LF)
  4.  
  5. Func _validaCNH($entrada)
  6. ; fonte:http://www.vbweb.com.br/dicas_visual.asp?Codigo=3294
  7. ; Adaptação: Luigi
  8. $entrada = Abs($entrada)
  9. If Not IsNumber($entrada) Then Return False
  10. Local $len = StringLen($entrada)
  11. If $len == 9 Then
  12. Local $numero = StringLeft($entrada, 8)
  13. Local $digito = StringRight($entrada, 1)
  14. Local $resto = Mod($numero, 11)
  15. Local $subtracao
  16. If $resto == 0 Or $resto == 1 Then
  17. $subtracao = 0
  18. Else
  19. $subtracao = 11 - $resto
  20. EndIf
  21. If $subtracao == $digito Then
  22. Return True
  23. Else
  24. Return False
  25. EndIf
  26. Else
  27. Return False
  28. EndIf
  29. EndFunc ;==>_validaCNH

Criar nomes de pessoas de forma totalmente aleatória, chega até a ser engraçado! 8D

  1.  
  2. #include <Misc.au3>
  3. #include <Array.au3>
  4. #include <String.au3>
  5. Local $names[1]
  6. ConsoleWrite("Nome:" & _nome() & @LF)
  7. ; abcdefghijklmnopqrstuvwxyz
  8. $y = 0
  9. While $y < 50
  10. Local $temp = _nome()
  11. ;ConsoleWrite("[" & $y & "][" & StringInStr("y" ,$temp) & "]" & $temp & @LF)
  12. ;If StringInStr($temp,"y" )>0 Then
  13. _ArrayAdd($names,$temp)
  14. $y +=1
  15. ;EndIf
  16. WEnd
  17. _ArrayDisplay($names)
  18. Func _nome()
  19. ; require
  20. ; #include <Misc.au3>
  21. ; #include <String.au3>
  22. Local $vogais = StringSplit("aeiouy","")
  23. Local $consoantes = StringSplit("bcdfghjklmnpqrstvwx","")
  24. Local $digrafos = StringSplit("ch,lh,nh,ph,ç,ss,rr,wh,st,lk,nk,br,kn,bl,cl",",")
  25. Local $final = StringSplit("bcdfghklmprstvwx","")
  26. ;ConsoleWrite(">" & $consoantes[0] & @LF)
  27. Local $nome = "", $sobrenome = ""
  28. $nome = _Iif(Random(0,1,1),$vogais[Random(1,6,1)],"")
  29. For $x = 0 To Random(1, 2, 1)
  30. If $x Then
  31. $nome &= $consoantes[Random(1,19,1)] & $vogais[Random(1,6,1)]
  32. Else
  33. If $nome Then
  34. $nome &= _Iif(Random(0,1,1),$consoantes[Random(1,$consoantes[0]-1,1)],$digrafos[Random(1,$digrafos[0],1)]) & $vogais[Random(1,6,1)]
  35. Else
  36. $nome &= $consoantes[Random(1,$consoantes[0]-1,1)] & $vogais[Random(1,6,1)]
  37. EndIf
  38. EndIf
  39. $nome = $nome & _Iif(Random(0,1,1),$final[Random(1,$final[0],1)],"")
  40. $sobrenome = _Iif(Random(0,1,1),$vogais[Random(1,5,1)],"")
  41. For $x = 0 To Random(1, 4, 1)
  42. If $x Then
  43. $sobrenome &= $consoantes[Random(1,19,1)] & $vogais[Random(1,5,1)]
  44. Else
  45. If $sobrenome Then
  46. $sobrenome &= _Iif(Random(0,1,1),$consoantes[Random(1,$consoantes[0]-1,1)],$digrafos[Random(1,$digrafos[0],1)]) & $vogais[Random(1,5,1)]
  47. Else
  48. $sobrenome &= $consoantes[Random(1,$consoantes[0]-1,1)] & $vogais[Random(1,5,1)]
  49. EndIf
  50. EndIf
  51. $sobrenome = $sobrenome & _Iif(Random(0,1,1),$final[Random(1,$final[0],1)],"")
  52. Return _StringProper($nome) & _Iif(Random(0,1,1),_Iif(Random(0,1,1)," de "," do ")," ") & _StringProper($sobrenome)
  53. EndFunc
  1.  
  2. ; Versão AutoIt 3.3.12.0
  3. #include <Misc.au3>
  4. #include <Array.au3>
  5. #include <String.au3>
  6. Local $names[1]
  7. ConsoleWrite("Nome:" & _nome() & @LF)
  8. ; abcdefghijklmnopqrstuvwxyz
  9. Local $yy = 0
  10. While $yy < 50
  11. Local $temp = _nome()
  12. ;ConsoleWrite("[" & $y & "][" & StringInStr("y" ,$temp) & "]" & $temp & @LF)
  13. _ArrayAdd($names, $temp)
  14. $yy += 1
  15. WEnd
  16. _ArrayDisplay($names)
  17.  
  18. Func _nome()
  19. ; require
  20. ; #include <Misc.au3>
  21. ; #include <String.au3>
  22. Local $aVagais = StringSplit("aeiouy", "")
  23. Local $aConsoantes = StringSplit("bcdfghjklmnpqrstvwx", "")
  24. Local $aDigrafos = StringSplit("ch,lh,nh,ph,ç,ss,rr,wh,st,lk,nk,br,kn,bl,cl", ",")
  25. Local $aFinal = StringSplit("bcdfghklmprstvwx", "")
  26. ;ConsoleWrite(">" & $aConsoantes[0] & @LF)
  27. Local $sNome = "", $sSobreNome = ""
  28. $sNome = (Random(0, 1, 1) ? $aVagais[Random(1, 6, 1)] : "")
  29. For $x = 0 To Random(1, 2, 1)
  30. If $x Then
  31. $sNome &= $aConsoantes[Random(1, 19, 1)] & $aVagais[Random(1, 6, 1)]
  32. Else
  33. If $sNome Then
  34. $sNome &= (Random(0, 1, 1) ? $aConsoantes[Random(1, $aConsoantes[0] - 1, 1)] : $aDigrafos[Random(1, $aDigrafos[0], 1)]) & $aVagais[Random(1, 6, 1)]
  35. Else
  36. $sNome &= $aConsoantes[Random(1, $aConsoantes[0] - 1, 1)] & $aVagais[Random(1, 6, 1)]
  37. EndIf
  38. EndIf
  39. $sNome = $sNome & (Random(0, 1, 1) ? $aFinal[Random(1, $aFinal[0], 1)] : "")
  40. $sSobreNome = (Random(0, 1, 1) ? $aVagais[Random(1, 5, 1)] : "")
  41. For $xx = 0 To Random(1, 4, 1)
  42. If $xx Then
  43. $sSobreNome &= $aConsoantes[Random(1, 19, 1)] & $aVagais[Random(1, 5, 1)]
  44. Else
  45. If $sSobreNome Then
  46. $sSobreNome &= (Random(0, 1, 1) ? $aConsoantes[Random(1, $aConsoantes[0] - 1, 1)] : $aDigrafos[Random(1, $aDigrafos[0], 1)]) & $aVagais[Random(1, 5, 1)]
  47. Else
  48. $sSobreNome &= $aConsoantes[Random(1, $aConsoantes[0] - 1, 1)] & $aVagais[Random(1, 5, 1)]
  49. EndIf
  50. EndIf
  51. $sSobreNome = $sSobreNome & (Random(0, 1, 1) ? $aFinal[Random(1, $aFinal[0], 1)] : "")
  52. Return _StringProper($sNome) & (Random(0, 1, 1) ? (Random(0, 1, 1) ? " de " : " do ") : " ") & _StringProper($sSobreNome)
  53. EndFunc ;==>_nome
  54.  



#4758 SQLite Tutorial 1

Postado por V!c†o® em 19 julho 2012 - 05:22


Olá pessoal! Estou aqui de volta trazendo meu 2º tutorial, mas dessa vez, como foi pedido, trabalharemos com o SQLite! :up: (ou melhor dizendo, com as funções do SQLite presentes no Autoit! ‘^^ ).


Neste "tuto" iremos ver:

• Conceitos Básicos Sobre BDs
• O que é o SQLite?
• Iniciando SQLite no Autoit
• Abrindo ou Criando uma DtBase
• Tabelas, Campos e Registros
• Consultando Registros



*** Nota1: Os conceitos abordados neste tutorial são básicos visando apenas clarear e encaminhar usuários iniciantes, agindo apenas como ponto de partida para o longo e complexo aprendizado a banco de dados. Aos iniciantes, não pensem que banco de dados se resume a cerca do pouco conteúdo deste tutorial, estude!

*** Nota2: Todo conteúdo prático foi retirado e organizado do AutoIt Help!



Conceitos Básicos Sobre BDs

Spoiler


O que é o SQLite?

Spoiler


Iniciando SQLite no Autoit

Spoiler


Abrindo ou Criando uma DtBase

Spoiler


Tabelas, Campos e Registros

Spoiler


Consultando Registros

Spoiler


Script Completo!

Segue abaixo o script completo do nosso tutorial:
Spoiler


Mais tarde eu posto uma lista com os principais comandos SQL para vocês utilizarem com a _SQLite_Exec()!


Abraço.


#3048 Funções básicas do autoit.

Postado por Belini em 02 março 2012 - 11:00

Estou postando um pequeno tutorial feito pelo amigo Brbranco, o help da versão 3.3.0.0 traduzido pelo amigo airhead e outras coisas úteis para quem esta iniciando.

- Primeiros passos com Autoit fórum do baboo: http://www.babooforu...os-t540090.html
- Funções básicas do Autoit: http://www.4shared.c...utoit.html]link
- Help traduzido do Autoit: http://www.4shared.c.../AutoIt3PT.html
- Tradução do Scite do Autoit: http://www.4shared.c...o_do_scite.html
- Virtual keycodes: http://www.4shared.c..._Key_Codes.html

Obs: Abaixo postei o link de um programa que baixa sempre as últimas versões além de conter vários exemplos e fazer busca por outros tutoriais, não encontrei o nome do autor pois isto não teve como atribuir os créditos a ele.

Link: http://www.4shared.c...Autoit_123.html


#233 Criando Um Programa Do Zero (Com Video Aula)

Postado por Daniel em 12 julho 2011 - 02:12

Aew Galera Fmz :D,
Hj Vim Ensinar Vcs A Criarem Um Programa Do Zero,
Vamos La.

Criando O .au3

1º Baixe O AutoIt Na Area Downloads.
2º Instale O AutoIt.
3º Agora Clique Com O Botão Direito Do Mouse, E Vá Em Novo, Dai Clique Em Novo(a) AutoIt v3 Script.
4º Dai Renomeie O Arquivo .au3 Para O Nome Do Programa Que Você Deseja.
5º Agora Clique Com O Botão Direito Em Cima Do Arquivo .au3 E Vá Em Edit Script.

Agora Vamos Criar O Design Do Programa

1º Com O Scite Aberto Aperte ALT+M, Ou Abra O Koda Pelo O Executavel Msm.
2º Agora Faça O Design Do Programa Normalmente.
3º Dai Clique Em Tools, Generate Form Code, Ou Aperte F9.
4º Dai Clique Em Insert Into Scite.
5º Pronto O Codigo Da Gui Do Programa Foi Gerado.

Exemplo De Source:
  1. ; Includes
  2. #include <ButtonConstants.au3>
  3. #include <EditConstants.au3>
  4. #include <GUIConstantsEx.au3>
  5. #include <WindowsConstants.au3>
  6. ; Fim Dos Includes
  7.  
  8. ; Form Do Programa
  9. $Form1 = GUICreate("Digitador", 187, 65, 192, 124)
  10. $Input1 = GUICtrlCreateInput("Texto", 8, 8, 169, 21)
  11. $Button1 = GUICtrlCreateButton("Digitar No Bloco De Notas", 8, 32, 171, 25, $WS_GROUP)
  12. ; Fim Do Form
  13.  
  14. ; Case Dos Botões
  15. $nMsg = GUIGetMsg()
  16. Switch $nMsg
  17. Case $GUI_EVENT_CLOSE
  18.  
  19. ; Fim Das Cases

Agora Vamos Tirar O Icone Do AutoIt Dali Perto Do Relogio

1º Adicione No Topo Da Source:
  1. #NoTrayIcon
Ficando +/- Assim:
  1. ; Includes
  2. #NoTrayIcon
  3. #include <ButtonConstants.au3>
  4. #include <EditConstants.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <WindowsConstants.au3>
  7. ; Fim Dos Includes

Vamos Fazer O AutoIt Pegar O Texto Do Input 1
1º Vá Nesta Parte Da Source:
  1. $nMsg = GUIGetMsg()
2º Agora Coloque Em Cima (Ou Em Baixo Tanto Faz) Isto:
  1. $Texto = GuiCtrlRead($Input1)
3º Ficando +/- Assim:
  1. ; Includes
  2. #NoTrayIcon
  3. #include <ButtonConstants.au3>
  4. #include <EditConstants.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <WindowsConstants.au3>
  7. ; Fim Dos Includes
  8.  
  9. ; Form Do Programa
  10. $Form1 = GUICreate("Digitador", 187, 65, 192, 124)
  11. $Input1 = GUICtrlCreateInput("Texto", 8, 8, 169, 21)
  12. $Button1 = GUICtrlCreateButton("Digitar No Bloco De Notas", 8, 32, 171, 25, $WS_GROUP)
  13. ; Fim Do Form
  14.  
  15. ; Case Dos Botões
  16. $Texto = GUICtrlRead($Input1)
  17. $nMsg = GUIGetMsg()
  18. Switch $nMsg
  19. Case $GUI_EVENT_CLOSE
  20.  
  21. ; Fim Das Cases

Agora Vamos Adicionar O Codigo Dos Botões

1º Vá Nesta Parte Da Source:
  1. Switch $nMsg
  2. Case $GUI_EVENT_CLOSE
2º Agora Em Baixo Disso Coloque Assim:
  1. Case $Button1
  2. Run("Notepad.exe")
  3. WinWaitActive("[CLASS:Notepad]")
  4. ControlSend("[CLASS:Notepad]","","Edit1",$Texto)

Source Final:
  1. ; Includes
  2. #NoTrayIcon
  3. #include <ButtonConstants.au3>
  4. #include <EditConstants.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <WindowsConstants.au3>
  7. ; Fim Dos Includes
  8.  
  9. ; Form Do Programa
  10. $Form1 = GUICreate("Digitador", 187, 65, 192, 124)
  11. $Input1 = GUICtrlCreateInput("Texto", 8, 8, 169, 21)
  12. $Button1 = GUICtrlCreateButton("Digitar No Bloco De Notas", 8, 32, 171, 25, $WS_GROUP)
  13. ; Fim Do Form
  14.  
  15. ; Case Dos Botões
  16. $Texto = GUICtrlRead($Input1)
  17. $nMsg = GUIGetMsg()
  18. Switch $nMsg
  19. Case $GUI_EVENT_CLOSE
  20. Case $Button1
  21. Run("Notepad.exe")
  22. WinWaitActive("[CLASS:Notepad]")
  23. ControlSend("[CLASS:Notepad]","","Edit1",$Texto)
  24.  
  25. ; Fim Das Cases

Salvando A Source

1º Aperte Ctrl+S.

Compilando A Source

1º Clique Com O Botão Direito Em Cima Da Source E Vá Em Compile Script (Caso Queira Alterar Icone, E Proteger O Programa, Vá Em Compile With Options.
2º Pronto.

=====

Video Aula: Criando Um Programa Do Zero By: Huntresske (Daniel Turina)

=====

Download Da Source Inteira Comentada E Explicada: Exemplo De Programa By: Huntresske

=====

Links Uteis:
Condicionais no autoit [If,Select,Switch] ; Creditos: BabyLovs
Trabalho Com Or e And Juntos ; Creditos: SkinF4xi
Sleep sem travar o Programa ; Creditos: Xbenny
Trabalhando Com TrayIcon ; Creditos: Huntresske

=====

Creditos: Huntresske (Daniel Turina).



#7712 Verificar a data que o sistema operacional foi instalado

Postado por joelson0007 em 09 maio 2013 - 07:04

Fala galera autoit brasil mais script simples, mas que talvez um dia você precise 
 

  1.  
  2. $oWMI = ObjGet("winmgmts:\\.\root\CIMV2")
  3. MsgBox(4096, "mensagem", 'O Sistema operacional foi installado ' & _getLastInstallDate())
  4.  
  5. Func _getLastInstallDate()
  6. $oItem = $oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
  7. For $objItem In $oItem
  8. $ano = StringMid($objItem.InstallDate, 1, 4)
  9. $mes = StringMid($objItem.InstallDate, 5, 2)
  10. $dia = StringMid($objItem.InstallDate, 7, 2)
  11. $hora = StringMid($objItem.InstallDate, 9, 2)
  12. $min = StringMid($objItem.InstallDate, 11, 2)
  13. Return $dia & "/" & $mes & "/" & $ano & " as " & $hora & ":" & $min
  14.  

obs:eu faço item por item, porque é assim que a microsoft recomenda.

até mais.

 

:robot:




#7562 Tutorial Ler uma XML

Postado por alexandre em 10 abril 2013 - 10:19

uma forma bem bacana de se ler uma xml pelo autoit.




#6851 Criando o conteúdo de um arquivo INI rapidamente

Postado por Luigi em 20 dezembro 2012 - 09:30

Hoje precisei criar um arquivo INI, como várias outras vezes, mas pensei, poxa, vou fazer isso de uma forma fácil e rápida.
Eu quero criar um arquivo INI a partir de uma única string, ficou simples, e funcional, compartilho com os colegas.
 
Logicamente, o retorno é uma string, que pode ser colocada no FileWrite e pronto, está criado o INI.

 

Na string $file01, cada SECTION do arquivo INI é delimitada por { e }, então você pode criar um ou várias SECTIONS de uma única vez.

Dentro de cada chave, o que está antes do : é considerado o nome da SECTION, e o que vem depois, a dupla key=value.

 

Bom proveito!

 

  1.  
  2. #include <String.au3>
  3. #include <Array.au3>
  4. $file01 = "{NUMEROS:zero=0,um=1,dois=2,tres=3,quatro}{CORES:azul=blue,vermelho=red,amarelo,verde=green}{SECTIONSEMVALORES}{}"
  5.  
  6. ConsoleWrite(_iniCreateContent($file01))
  7.  
  8. Func _iniCreateContent($sInput)
  9. Local $aKeys = _StringBetween($sInput, "{", "}"), $temp, $tempIni = "", $tempLines, $tempValues
  10. If UBound($aKeys) > 0 Then
  11. For $each In $aKeys
  12. If StringInStr($each,":") Then
  13. $temp = StringSplit($each, ":", 2)
  14. $tempIni &= "[" & $temp[0] & "]" & @LF
  15. $tempLines = StringSplit($temp[1], ",", 2)
  16. For $eachLine In $tempLines
  17. $tempValues = StringSplit($eachLine, "=", 2)
  18. $tempIni &= $tempValues[0] & "="
  19. If UBound($tempValues) > 1 Then
  20. $tempIni &= $tempValues[1] & @LF
  21. Else
  22. $tempIni &= @LF
  23. EndIf
  24. $tempIni &= @LF
  25. Else
  26. If $each Then $tempIni &= "[" & $each & "]" & @LF
  27. EndIf
  28. Return $tempIni
  29. Else
  30. Return 0
  31. EndIf
  32. EndFunc ;==>_ini
  33.  

 

 




#575 ProtectFolder

Postado por JScript em 08 agosto 2011 - 07:16

Mais um programinha de minha autoria, o título já diz tudo...

Download:
(Código fonte + executável)
Arquivo anexado  ProtectFolder_v3.05.1012.2600_10-05-2012.zip   851,39K   55 Downloads

Obs.: Após executar pela primeira vez, podes ir em qualquer pasta e clicar com o botão direito e "Enviar para / ProtectFolder".
No núcleo Vista/Seven existe um delay de uns 20 segundos +- até que a pasta fique protegida...

Imagens de exemplo:
Image1.jpg Image2.jpg Image3.jpg

:brasil: Software Livre
Spoiler

Abraços,

João Carlos.


#5612 ProcessPorcent v1.0

Postado por joelson0007 em 26 agosto 2012 - 10:39

ProcessPorcent v1.0

Imagem Postada



removi o código e coloquei o link porque o fórum, não está mostrando a \

ProcessPorcent v1.0


ProcessPorcet v1.1


fix:combobox não mostrava todos os processos

ProcessPorcent_v1.2


add:adicionando um botão para atualizar lista de processo do combobox a pedido do @belini


#5313 Autoit Window Info - Cordenadas Exatas

Postado por Anderson_sc em 08 agosto 2012 - 04:27

Estava lendo um velho post feito pelo script_kid:

http://autoitbrasil....ch__1#entry3245

Bom nao sei exatamente se ele sabia sobre...
Mas tae uma dica para quem ta iniciando e ainda não sabe:
Usando o autoit window info você consegue pegar as coordenadas do ponteiro do mouse, agora para nao sair da posição gravada, basta usar Ctrl+Alt+F, vai selecionar a opção "freeze" na propria janela. Independente de onde vc clicar as cordenadas não se alterarão até que seja feita um nova consulta.
Espero ter postado no local correto.

autoit win info.JPG


#5265 Micrecorder V0.1

Postado por kidslax em 04 agosto 2012 - 03:54

Boa tarde! :D

Fiz esse programa pra gravar o áudio do microfone, por enquanto ele só grava o áudio, mas pretendo fazer com que grave em formato de video pra fazer video-aulas com ele!

Print do programa:

Imagem Postada

Qualquer dúvida, crítica ou bug poste aqui!

Obrigado. :up:

Você precisa ter a UDF Sound.au3 (Obrigado Joelson)

Arquivo(s) anexado(s)




#2379 _GUICreateAlfa.au3

Postado por JScript em 18 janeiro 2012 - 02:17

Function Reference 
_GUICreateAlfa.au3

Cria GUIs com imagens AlphaBlended!
Based on the "How to create an alpha blended form" by Paul Campbell (PaulIA)


Sintaxe:

  1. _GUICreateAlfa( Title, Image[, Width [, Height [, Left [, Top ]]]])

Suporte:

  1. ; Imagens no formato: .png, .gif {não animada!}

Downloads:

Versão: 1.05.612.2600b
Arquivo anexado  _GUICreateAlfa_v1.05.612.2600b_17-05-2012.zip   92,02K   89 Downloads
(Estimativa anterior: 16)
Está incluso exemplo de uso!


Amostra:
Imagem Postada

Correções:
Spoiler
 
Abraços,

João Carlos.


#2093 Variáveis

Postado por JDSCaram em 06 janeiro 2012 - 01:01

Olá pessoal, hoje vou falar um pouquinho em um tutorial basico a respeito de "Variaveis" que é uma das coisas mais basica na programção, a necessidade de armazenamento de dados.


Introdução:

Resumidamente : Oque são "Variáveis", são espaços na memória ram do computador para armazenar informações que serão utilizadas depois.

Toda variavel deve ser identificada com um nome que de preferencia siga o contexto do seu script, porem diferentimente de outras linguagem de alto nivel no autoit devemos colocar o prefixo "$" antes do nome dado a variavel, ficando mais assim:

  1. $isso_e_variavel

Lembrando que o nome de uma variavel nao deve conter "Espaços,virgulas,traços,pontos e etc" entre outros caracteres especiais

Adicionando informação a uma variavel:

Para que uma variavel tenha finalidade devemos atribuir a ela algum tipo de informação para que possa ser guardado e usado depois, segue exemplo abaixo:


$isso_e_variavel_A = 10
$isso_e_variavel_B = "Hello World"
$isso_e_variavel_C = "Autoitv3"
$isso_e_variavel_D = $isso_e_variavel_A


Breve Explicação:
Na variavel "$isso_e_variavel_A" recebeu o numero "10" como informação sendo assim ela ira retornar "10", Já na variavel $isso_e_variavel_B recebeu o texto "Hello World" todo texto inserido deve estar contido dentro de "" (aspas), segue a mesma regra para a $isso_e_variavel_C que no caso recebeu tanto numericos quando caracteres do tipo letra, sendo que mesmo contendo um numero atribuido a essa variavel deve usar aspas pois alem de letras contem numeros, Já na ultima variavel atribuimos ela com outra variavel, no caso NÃO se usa aspas para atribuir uma variavel a outra, pois senao ela iria virar um texto, Sendo assim a variavel $isso_e_variavel_D passou a receber o conteudo armazenado na variavel "$isso_e_variavel_A" que é 10

Regras de uso:

  • Tem ser declarada e conter geralmente alguma informação.
  • Nome da variavel só pode conter apenas: Números (0-9), Letras minúsculas ou maiúsculas e sem acentos (a-z, A-Z) e Carácter “_” (underscore)

Declaração de Variaveis:


Visto que em muitas outras linguagens a declaração de uma variavel é obrigatorio contendo seu tipo (Real,char,int e etc) no AutoIT isso se torna opcional, porem quando a necessidade de colocar a variavel em uso em apenas um parte do script segue abaixo:


Local $variavel = 1
Global $variavel = 10


Breve Explicação:
No primeiro exemplo a variavel fica armazenada somente naquele momento da funcao usada, por isso ela é declarada com LOCAL, Ja no outro exemplo a variavel pode ter acesso de todo o codigo escrito pois foi declarada como do tipo GLOBAL


Variáveis constantes

Uma variável, como o nome diz: “que pode variar”. As variáveis constantes, também são como o nome diz “constantes, não mudam”. Ou seja se declararmos uma variável constante com um valor, esse valor nunca mais se irá alterar. Isto pode ser útil para quando queremos de propósito que uma variável nunca altere o valor, e que para o caso de fizermos algum erro na escrita do programa, essa mesma variável não altere o seu valor por acidente. (partes do texto retirado do antigo autoittutoriais, segue os creditos a eles)
Segue abaixo:


Const $ano = 2009
Const Local $const_local = "Portugues"
Const Global $const_global = "Terra"


Breve Explicação:
Como no caso das variáveis normais, também podemos declarar variáveis locais e globais. Mas existem algumas diferenças nas variáveis constantes:
Têm de ser declaradas
Tem de atribuir o conteúdo na declaração



 

Exemplo do Uso:



Global $Text = 'www.forum.autoitbrasil.com o maior acervo de AU3 do Brasil'
MsgBox(0,"Tutorial",$Text)


A variavel $Text esta armazenando a mensagem (que ira ser mostrado no Msgbox) e foi declarada como do tipo global sendo assim ela pode ser usada em qualquer parte do codigo, ja o Msgbox ao invez de receber todo o texto , apenas recebeu a variavel cuja esta memorizada o texto.




#1951 O que é uma Janela?

Postado por JScript em 02 janeiro 2012 - 06:48

Capítulo 01 - O que é uma Janela?
Spoiler

Capítulo 02 - Criando sua 1ª Janela.
Spoiler

Capítulo 03 - Entendendo as Classes de Janela.
Spoiler


Continua em breve...

Equipe AutoIt Brasil


#12373 Mercado Livre Burlator Tabajara

Postado por mutleey em 11 janeiro 2017 - 08:43

Cansado de tentar passar o telefone e o mercado livre bloquear?
Precisa trocar uma idéia com o vendedor mais não sabe como passar contato?

 

Seus problemas acabaram, chegou o revolucionário "Mercado Livre Burlator Tabajara".

 

Gere um código "sem sentido" e poste no ML, depois peça ao vendedor para usar o teclado alfanumérico do celular.

  1.  
  2. #AutoIt3Wrapper_Icon=..\Icon Collection Pack 2014\Chronometer.ico
  3. #AutoIt3Wrapper_Res_Comment=Mercado Livre Burlator Tabajara
  4. #AutoIt3Wrapper_Res_Description=Mercado Livre Burlator Tabajara
  5. #AutoIt3Wrapper_Res_Fileversion=0.0.0.1
  6. #AutoIt3Wrapper_Res_Language=1046
  7. #AutoIt3Wrapper_Res_Field=Author|mutleey
  8. ;******************************************************
  9. ;Autoit v3.3.14.2
  10. ;Autor mutleey
  11. ;Data 11/01/2017
  12. ;******************************************************
  13.  
  14. #include <GUIConstantsEx.au3>
  15.  
  16. Local $WS_SYSMENU = 0x00080000
  17. Local $ES_NUMBER = 0x2000
  18. Local $ES_CENTER = 0x0001
  19. Local $SS_SUNKEN = 0x1000
  20.  
  21. Local $hGUI = GUICreate("Mercado Livre Burlator Tabajara", 415, 735, -1, -1, $WS_SYSMENU)
  22. If GUICtrlCreatePic("pic.jpg", 5, 5, 400, 700) = 0 Then
  23. MsgBox(0, "ERRO", "È necessário a imagem para o correto funcionamento do script!")
  24. Exit(0)
  25. EndIf
  26. GUICtrlSetState(-1, $GUI_DISABLE)
  27.  
  28. GUICtrlCreateLabel("Celular/Tel", 82, 80, 248, 17)
  29. GUICtrlSetFont(-1, 11, 600, 0, "Arial", 5)
  30. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  31.  
  32. Local $tDisplay = GUICtrlCreateLabel("", 82, 100, 249, 48, $ES_CENTER+$SS_SUNKEN)
  33. GUICtrlSetFont(-1, 28, 500, 0, "Arial", 5)
  34. GUICtrlSetBkColor(-1, 0xC9C9C9)
  35.  
  36. GUICtrlCreateLabel("Código", 82, 180, 248, 17)
  37. GUICtrlSetFont(-1, 11, 600, 0, "Arial", 5)
  38. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  39.  
  40. $tCode = GUICtrlCreateInput("", 80, 200, 252, 50, $ES_CENTER)
  41. GUICtrlSetFont(-1, 28, 500, 0, "Arial", 5)
  42.  
  43. Local $Clear = GUICtrlCreateLabel("", 75, 320, 80, 48) ; 1
  44. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  45. Local $Converter = GUICtrlCreateLabel("", 259, 320, 80, 48) ; 1
  46. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  47.  
  48. Local $Btn_1 = GUICtrlCreateLabel("", 75, 440, 80, 48) ; 1
  49. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  50. Local $Btn_2 = GUICtrlCreateLabel("", 167, 440, 80, 48) ; 2
  51. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  52. Local $Btn_3 = GUICtrlCreateLabel("", 259, 440, 80, 48) ; 3
  53. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  54. Local $Btn_4 = GUICtrlCreateLabel("", 75, 500, 80, 48) ; 4
  55. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  56. Local $Btn_5 = GUICtrlCreateLabel("", 167, 500, 80, 48) ; 5
  57. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  58. Local $Btn_6 = GUICtrlCreateLabel("", 259, 500, 80, 48) ; 6
  59. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  60. Local $Btn_7 = GUICtrlCreateLabel("", 75, 560, 80, 48) ; 7
  61. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  62. Local $Btn_8 = GUICtrlCreateLabel("", 167, 560, 80, 48) ; 8
  63. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  64. Local $Btn_9 = GUICtrlCreateLabel("", 259, 560, 80, 48) ; 9
  65. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  66. Local $Btn_0 = GUICtrlCreateLabel("", 167, 622, 80, 52) ; 0
  67. GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
  68.  
  69. GUISetState(@SW_SHOW, $hGUI)
  70.  
  71. While 1
  72. Switch GUIGetMsg()
  73. Case $GUI_EVENT_CLOSE
  74. ExitLoop
  75. Case $Clear
  76. GUICtrlSetData($tDisplay, "") ; Decodificar
  77. GUICtrlSetData($tCode, "") ; Clear
  78. Case $Converter
  79. Converter()
  80. Case $Btn_1
  81. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "1")
  82. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(58, 59, 1))) ; :;
  83. Case $Btn_2
  84. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "2")
  85. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(97, 99, 1))) ; ABC
  86. Case $Btn_3
  87. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "3")
  88. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(100, 102, 1))) ; DEF
  89. Case $Btn_4
  90. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "4")
  91. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(103, 105, 1))) ; GHI
  92. Case $Btn_5
  93. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "5")
  94. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(106, 108, 1))) ; JKL
  95. Case $Btn_6
  96. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "6")
  97. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(109, 111, 1))) ; MNO
  98. Case $Btn_7
  99. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "7")
  100. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(112, 115, 1))) ; PQRS
  101. Case $Btn_8
  102. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "8")
  103. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(116, 118, 1))) ; TUV
  104. Case $Btn_9
  105. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "9")
  106. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(119, 122, 1))) ; WXYZ
  107. Case $Btn_0
  108. GUICtrlSetData($tDisplay, GUICtrlRead($tDisplay) & "0")
  109. GUICtrlSetData($tCode, GUICtrlRead($tCode) & Chr(Random(42, 43, 1))) ; *+
  110. EndSwitch
  111. WEnd
  112.  
  113. GUIDelete($hGUI)
  114.  
  115. Func Converter()
  116. Local $RepCod, $Telefone
  117. Local $rCode = GUICtrlRead($tCode)
  118. Local $Char = StringLen($rCode)
  119. For $i = 0 To $Char -1
  120. $RepCod = StringTrimLeft(StringLeft($rCode, $i+1), $i)
  121. $KeyChar = Asc($RepCod)
  122. Switch $KeyChar
  123. Case 58 To 59
  124. $Telefone = $Telefone & "1"
  125. Case 97 To 99
  126. $Telefone = $Telefone & "2"
  127. Case 100 To 102
  128. $Telefone = $Telefone & "3"
  129. Case 103 To 105
  130. $Telefone = $Telefone & "4"
  131. Case 106 To 108
  132. $Telefone = $Telefone & "5"
  133. Case 109 To 111
  134. $Telefone = $Telefone & "6"
  135. Case 112 To 115
  136. $Telefone = $Telefone & "7"
  137. Case 116 To 118
  138. $Telefone = $Telefone & "8"
  139. Case 119 To 122
  140. $Telefone = $Telefone & "9"
  141. Case 42 To 43
  142. $Telefone = $Telefone & "0"
  143. EndSwitch
  144. GUICtrlSetData($tDisplay, $Telefone)
  145. EndFunc
  146.  

Brincadeiras a parte já faço isso a um tempo, resolvi criar este script fuleira pra facilitar as coisas, basta digitar o numero do telefone nas teclas da imagem copiar o codigo e postar no ML, pra decodificar copiar o codigo e colar no Input e clicar em "Decodificar" para ver o numero do telefone.

 

Por enquanto ainda funciona, vamos ver até quando o ML vai aceitar...

 

Obs: Baixar a imagem para funcionar corretamente o script.

Thumbnail(s) anexado(s)

  • pic.jpg



#1049 DVI-Remote (Acesso e controle remoto)

Postado por JScript em 11 setembro 2011 - 02:31

Olá à todos!

Eu sei que existem muitos programas inclusive gratuitos para esse propósito, mas os melhores são pagos (e muito caro), te dão somente 5 minutos para cada seção gratuita...

Eu pensei: Porque não em AutoIt? Então eu fiz!
Não stá completo, ainda faltam algumas coisas para fazer, mas já é funcional!

O que o progrma faz:
1 - Visualização remota (claro...)
2 - Controlo por mouse, clicks, 2 clicks, scrolling (MouseWheel)
3 - Controle por teclado, completo com todas as funções!
4 - Suporta todas os idiomas​​, atualmente English e Portuguese
5 - ChatBox!
6 - Salva a tela em um arquivo
7 - 2 tipos de compressão: LZMA (nível 2) e LZNT nativo
8 - Mostra o cursor remoto (Sim, você pode ver!)
9 - Captura somente a janela que estiver ativa (muito rápido, recomendado!)

O que falta ser feito:
1 - Salvar a seção em um arquivo .avi (em andamento!)
2 - Enviar e receber arquivos usando uma GUI
3 - Arrastar & Soltar arquivos e pastas para o computador remoto (em andamento!)
4 - Precisa mais?!

Algumas imagens de exemplo:
connec11.jpgview11.jpgperfor11.jpgadvanc10.jpgchatbo10.jpg
connec12.jpg

Última atualização (02/10/2011 - 11:57)
Download:
https://www.dropbox....02-10-2011).zip
2.09k

Onde foi testado:
Product: VMware® Workstation
Version: 7.1.0 build-261024
Network Adapter: Bridged (Conectado diretamente na rede física)
e: Dois PCs reais (in redes diferentes!)

Software Livre
Spoiler

Espero que gostem e retornarei a atualizá-lo em breve!

JScript