Jump to content

Daniel

Membros
  • Content count

    32
  • Joined

  • Last visited

  • Days Won

    4

Everything posted by Daniel

  1. Aew Galera Blz. Vou Postar Um Tuto Sobre O TrayIcon Pra Vc's #NoTrayIcon #Include <Constants.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("TrayMenuMode",1) Global $Bandeja1 = TrayCreateItem("Preferências") TrayCreateItem("") Global $Bandeja2 = TrayCreateItem("Sobre") TrayCreateItem("") Global $Bandeja3 = TrayCreateItem("Sair") TraySetState() Form() Func Form() $Form1 = GUICreate("Form1", 117, 56, 192, 124) $Button1 = GUICtrlCreateButton("Button1", 8, 8, 99, 41, $WS_GROUP) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() $nMsg2 = TrayGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch If $nMsg2 = $Bandeja1 Then Bandeja1() If $nMsg2 = $Bandeja2 Then Bandeja2() If $nMsg2 = $Bandeja3 Then Bandeja3() WEnd EndFunc Func Bandeja1() MsgBox("","","Bandeja 1") TrayItemSetState($Bandeja1,$TRAY_UNCHECKED) EndFunc Func Bandeja2() MsgBox("","","Bandeja 2") TrayItemSetState($Bandeja2,$TRAY_UNCHECKED) EndFunc Func Bandeja3() Exit EndFunc Explicando: Opt("TrayMenuMode",1) > Tira Os TrayItens: Preferencias, Exit $Bandeja1 = TrayCreateItem("Preferências"), TrayCreateItem("") > Cria Um Item No TrayIcon Chamado: Preferencias, E Dpois Cria Um Item Vazio. TraySetState() > Deixa O TrayIcon Visivel. $nMsg2 = TrayGetMsg() > Abrevia A Func TrayGetMsg() Pra A Variavel $nMsg2. If $nMsg2 = $Bandeja1 Then Bandeja1() > Se O Item $Bandeja1 For Clicado Ele Manda Para A Função Bandeja1(). TrayItemSetState($Bandeja1,$TRAY_UNCHECKED) > Desmarca O CheckBox Do Item Bandeja1.
  2. 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: ; Includes #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ; Fim Dos Includes ; Form Do Programa $Form1 = GUICreate("Digitador", 187, 65, 192, 124) $Input1 = GUICtrlCreateInput("Texto", 8, 8, 169, 21) $Button1 = GUICtrlCreateButton("Digitar No Bloco De Notas", 8, 32, 171, 25, $WS_GROUP) GUISetState(@SW_SHOW) ; Fim Do Form ; Case Dos Botões While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ; Fim Das Cases Agora Vamos Tirar O Icone Do AutoIt Dali Perto Do Relogio 1º Adicione No Topo Da Source: #NoTrayIcon Ficando +/- Assim: ; Includes #NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ; Fim Dos Includes Vamos Fazer O AutoIt Pegar O Texto Do Input 1 1º Vá Nesta Parte Da Source: While 1 $nMsg = GUIGetMsg() 2º Agora Coloque Em Cima (Ou Em Baixo Tanto Faz) Isto: $Texto = GuiCtrlRead($Input1) 3º Ficando +/- Assim: ; Includes #NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ; Fim Dos Includes ; Form Do Programa $Form1 = GUICreate("Digitador", 187, 65, 192, 124) $Input1 = GUICtrlCreateInput("Texto", 8, 8, 169, 21) $Button1 = GUICtrlCreateButton("Digitar No Bloco De Notas", 8, 32, 171, 25, $WS_GROUP) GUISetState(@SW_SHOW) ; Fim Do Form ; Case Dos Botões While 1 $Texto = GUICtrlRead($Input1) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd ; Fim Das Cases Agora Vamos Adicionar O Codigo Dos Botões 1º Vá Nesta Parte Da Source: Switch $nMsg Case $GUI_EVENT_CLOSE Exit 2º Agora Em Baixo Disso Coloque Assim: Case $Button1 Run("Notepad.exe") WinWaitActive("[CLASS:Notepad]") ControlSend("[CLASS:Notepad]","","Edit1",$Texto) Source Final: ; Includes #NoTrayIcon #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> ; Fim Dos Includes ; Form Do Programa $Form1 = GUICreate("Digitador", 187, 65, 192, 124) $Input1 = GUICtrlCreateInput("Texto", 8, 8, 169, 21) $Button1 = GUICtrlCreateButton("Digitar No Bloco De Notas", 8, 32, 171, 25, $WS_GROUP) GUISetState(@SW_SHOW) ; Fim Do Form ; Case Dos Botões While 1 $Texto = GUICtrlRead($Input1) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Run("Notepad.exe") WinWaitActive("[CLASS:Notepad]") ControlSend("[CLASS:Notepad]","","Edit1",$Texto) EndSwitch WEnd ; 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: ===== 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).
  3. Aew Galera Blz, Entaum To Tentando Aki Fazer Assim, Colocar Um Imagem Em Tamanho Real, Mais Com O Scroll Por Exemplo: O Tamanho Da Imagem É: 1200x1000 E O Tamanho Do GuiCtrlCreatPic É: 700x700 Dai Eu Keria Que A Imagen Ficasse Em Tamanho Real Só Q Com O Scroll. Vlw Aew :D
  4. Dispert Now 0.1

    Daora :D
  5. For $i = 1 To 10000 If StringLeft(FileReadLine("Arquivo.txt",$i),5) = GUICtrlRead($Input1) Then MsgBox("","",StringRight(FileReadLine("Arquivo.txt",$i),2)) ExitLoop EndIf Next Fiz Essa Source Agora, Deve Funfar :D
  6. Sei La Mais N Precisa Usar A Func Inteira, Só Digitar MouseClick("botão).
  7. lol ¬¬' Skin N Tem Nd Haver Com Os Styles Do Koda.
  8. dei uma editadinha. olha aew HotKeySet("{F1}","Esquerdo") HotKeySet("{F2}","Direito") HotKeySet("{F3}","Esquerdo_Off") HotKeySet("{F4}","Direito_Off") HotKeySet("{F5}","Sair") Global $Direito, $Esquerdo While 1 If $Esquerdo = 1 Then MouseClick("left") If $Direito = 1 Then MouseClick("right") Sleep(100) WEnd Func Sair() Exit EndFunc Func Esquerdo() $Esquerdo = 1 EndFunc Func Direito() $Direito = 1 EndFunc Func Esquerdo_Off() $Esquerdo = 0 EndFunc Func Direito_Off() $Direito = 0 EndFunc
  9. Eu Postei Naa Area De Downloads;
  10. daora n sabia dessa vlw :D
  11. _ProcessGetWin

    q daora, dessa n sabia vlw :D vai me ajudar.
  12. Case $Button1 Coloque Isso No While. Recomendo Vc Ver Este Tutorial:
  13. Mandou Bem, Só Tirar O Xiado Msm, kkkkkkkkkkkkkkkkkkkkkkkkk
  14. Membro Xbenny

    O Membro Xbenny Foi Advertido Por Desrespeito. Levou Ban De 4 Dias.
  15. Sim, É Só Invez De Ir Em Compile Script, Ir Em Compile With Options
  16. caramba :D mandou mto bem, parabens.0
  17. Ajuda com Sendpacket. (Resolvido)

    SendPacket("Packet Desicriptado","Size") Tipo: SendPacket("00 00 00 0B 33", 5)
×