Jump to content

Pedro Pinheiro

Membros
  • Content count

    251
  • Joined

  • Last visited

  • Days Won

    11

Pedro Pinheiro last won the day on October 5 2017

Pedro Pinheiro had the most liked content!

Community Reputation

39 Bom

2 Followers

About Pedro Pinheiro

  • Rank
    Membro Nível 2
  • Birthday 12/01/1991

Profile Information

  • Gender
    Male
  • Location
    Brazil

Recent Profile Visitors

1,362 profile views
  1. Contador de Tempo

    Nossa, eu convertia tudo, dessa forma ficou tudo tão simples.
  2. Alinhamento de texto

    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.
  3. Envio de teclas

    Sim, eu reparei isso, o jogo assume o controle da tecla, aí eu não posso usar ela no programa utlizando o send, vou fazer mais testes aqui e retorno.
  4. Alinhamento de texto

    Pessoal, alguém poderia me ajudar com uma dúvida sobre alinhamento de texto? Eu estou precisando alinhar um texto na horizontal em uma janela com a largura de 640 e o modo gráfico que eu usei não da a oportunidade de centralizar o text, então eu precisaria utilizar o StringLen para ler a quantidade de caracteres do texto e colocar espaços antes dele para o texto ficar alinhado no centro da janela, a vantagem é que a largura das letras é a mesma para qualquer caractere, então eu precisaria encontrar só a quantidade de caractere necessário para poder centralizar o texto em 640 pixels. Resumo: O texto está sempre ajustado na esquerda em uma area de 640. Eu preciso usar o StringLen para encontrar a quantidade de letras no texto e baseado nela colocar espaços no inicio do texto para centralizar na area de 640. EDITADO: Já consegui. (640/2-(quantidade de caracteres do texto / 2 ) * ( largura da fonte)).
  5. Envio de teclas

    Eu estou com um problema em algumas aplicações de terceiros que utilizando graficos 3D, esses programas não aceita que o meu programa em autoit envie teclas com o "Send". Existe algum outro método de enviar teclas? O meu programa não faz nenhuma alteração em outros programas, ele só trabalha minimizado e precisa receber teclas, mas quando eu abro algum jogo, o meu programa para de receber teclas. Não tem haver com jogos já que isso é contra as regras. Um exemplo que dou é...tipo...se eu apertar a tecla F12 no teclado o programa manda alguma combinação de teclas tipo..Windows+pause...só que se eu estiver com algum jogo (especifico) aberto a tecla não vai. Se eu apertar a tecla F1 no teclado o programa aceita, mas se eu usar o "Send" o programa não aceita.
  6. Aliviar uso da CPU

    Use "Select ou Switch" Independente de onde o loop estiver, eles serão chamados na próxima volta caso algo neles seja executado durante o loop, dessa forma você pode colocar até um sleep de sei lá 10 segundos no loop, se vc executar alguma função contida nele e o loop já estiver passado pelo Switch ou select ele será executada na próxima volta independente de onde o loop estiver. "a rotina perde a leitura de entrada" Nunca será perdida while true Select       case _Ispressed("Tecla Exemplo1") _FunçãoQualquer1() case _Ispressed("Tecla Exemplo2") _FunçãoQualquer2() EndSelect sleep(10000) <---Se o loop estiver parado aqui esperando os 10 segundos e você apertar uma das teclas de exemplo, na proxima volta a função da tecla será executada. Dessa forma vc não vai precisar esperar que o loop passe por um "if" e a precisão será 100%. wend
  7. Ler conteudo do drive

    Não sei se ajuda, mas você pode usar ftp
  8. Cronograma de estudos

    Brincando um pouco no autoit eu fiz esse programa de cronograma de estudos, se alguém estiver afim de estudar, ele seleciona a hora atual mostrando o que você deveria está estudando. Bem simples mesmo. Eu queria receber SMS com as informações, mas resolvi não mexer mais. #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <MsgBoxConstants.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <WindowsConstants.au3> GUICreate("CRONOGRAMA DE ESTUDOS", 800, 660) GUICtrlCreateLabel("Receber SMS:",665,475,140,20) GUICtrlSetState(-1,$GUI_DISABLE ) $ddi = GUICtrlCreateInput("55",665,500,25,20) GUICtrlSetState($ddi,$GUI_DISABLE ) $tell= GUICtrlCreateInput("",695,500,100,20) GUICtrlSetState($tell,$GUI_DISABLE ) $itelCheck =GUICtrlCreateCheckbox("Receber Notificações",665,523,200,20) GUICtrlSetState($itelCheck,$GUI_DISABLE ) Global $idListview = GUICtrlCreateListView("HORAS |SEGUNDA|TERÇA|QUARTA|QUINTA|SEXTA|SABADO|DOMINGO", 10, 10, 630, 640, $LVS_SHOWSELALWAYS+$LVS_SINGLESEL,$LVS_EX_GRIDLINES+$LVS_EX_DOUBLEBUFFER+$LVS_EX_FULLROWSELECT+$WS_EX_CLIENTEDGE) GUICtrlSetState($idListview,$GUI_DISABLE ) for $i=0 to 7 _GUICtrlListView_JustifyColumn($idListview, $i, 2) Next Global $Tempo Global $att = True GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") GUISetState(@SW_SHOW) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch Local $seg = @SEC, $min = @MIN, $Hora= @HOUR $iTime = $Hora & ":" & $min Switch $iTime Case $ATT and $iTime >= "7:00" and $iTime <= "7:29" $Tempo = 0 $ATT = False _drawItens() Case $ATT and $iTime >= "7:30" and $iTime <= "7:59" $Tempo = 1 $ATT = False _drawItens() Case $ATT and $iTime >= "8:00" and $iTime <= "8:29" $Tempo = 2 $ATT = False _drawItens() Case $ATT and $iTime >= "8:30" and $iTime <= "8:59" $Tempo = 3 $ATT = False _drawItens() Case $ATT and $iTime >= "9:00" and $iTime <= "9:29" $Tempo = 4 $ATT = False _drawItens() Case $ATT and $iTime >= "9:30" and $iTime <= "9:59" $Tempo = 5 $ATT = False _drawItens() Case $ATT and $iTime >= "10:00" and $iTime <= "10:29" $Tempo = 6 $ATT = False _drawItens() Case $ATT and $iTime >= "10:30" and $iTime <= "10:59" $Tempo = 7 $ATT = False _drawItens() Case $ATT and $iTime >= "11:00" and $iTime <= "11:29" $Tempo = 8 $ATT = False _drawItens() Case $ATT and $iTime >= "11:30" and $iTime <= "11:59" $Tempo = 9 $ATT = False _drawItens() Case $ATT and $iTime >= "12:00" and $iTime <= "12:29" $Tempo = 10 $ATT = False _drawItens() Case $ATT and $iTime >= "12:30" and $iTime <= "12:59" $Tempo = 11 $ATT = False _drawItens() Case $ATT and $iTime >= "13:00" and $iTime <= "13:29" $Tempo = 12 $ATT = False _drawItens() Case $ATT and $iTime >= "13:30" and $iTime <= "13:59" $Tempo = 13 $ATT = False _drawItens() Case $ATT and $iTime >= "14:00" and $iTime <= "14:29" $Tempo = 14 $ATT = False _drawItens() Case $ATT and $iTime >= "14:30" and $iTime <= "14:59" $Tempo = 15 $ATT = False _drawItens() Case $ATT and $iTime >= "15:00" and $iTime <= "15:29" $Tempo = 16 $ATT = False _drawItens() Case $ATT and $iTime >= "15:30" and $iTime <= "15:59" $Tempo = 17 $ATT = False _drawItens() Case $ATT and $iTime >= "16:00" and $iTime <= "16:29" $Tempo = 18 $ATT = False _drawItens() Case $ATT and $iTime >= "16:30" and $iTime <= "16:59" $Tempo = 19 $ATT = False _drawItens() Case $ATT and $iTime >= "17:00" and $iTime <= "17:29" $Tempo = 20 $ATT = False _drawItens() Case $ATT and $iTime >= "17:30" and $iTime <= "17:59" $Tempo = 21 $ATT = False _drawItens() Case $ATT and $iTime >= "18:00" and $iTime <= "18:29" $Tempo = 22 $ATT = False _drawItens() Case $ATT and $iTime >= "18:30" and $iTime <= "18:59" $Tempo = 23 $ATT = False _drawItens() Case $ATT and $iTime >= "19:00" and $iTime <= "19:29" $Tempo = 24 $ATT = False _drawItens() Case $ATT and $iTime >= "19:30" and $iTime <= "19:59" $Tempo = 25 $ATT = False _drawItens() Case $ATT and $iTime >= "20:00" and $iTime <= "20:29" $Tempo = 26 $ATT = False _drawItens() Case $ATT and $iTime >= "20:30" and $iTime <= "20:59" $Tempo = 27 $ATT = False _drawItens() Case $ATT and $iTime >= "21:00" and $iTime <= "21:29" $Tempo = 28 $ATT = False _drawItens() Case $ATT and $iTime >= "21:30" and $iTime <= "21:59" $Tempo = 29 $ATT = False _drawItens() Case $ATT and $iTime >= "22:00" and $iTime <= "22:29" $Tempo = 30 $ATT = False _drawItens() Case $ATT and $iTime >= "22:30" and $iTime <= "22:59" $Tempo = 31 $ATT = False _drawItens() Case $min & ":" & $seg = "00:00" or $min & ":" & $seg = "30:00" $ATT = True EndSwitch WEnd ; Delete the previous GUI and all controls. GUIDelete() Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam) Local $tNMHDR, $hWndFrom, $iCode,$hListView $tNMHDR = DllStructCreate($tagNMHDR, $lParam) $hWndFrom = DllStructGetData($tNMHDR, "hWndFrom") $iCode = DllStructGetData($tNMHDR, "Code") $hListView = GuiCtrlGetHandle($idListview) Switch $hWndFrom Case $hListView Switch $iCode Case $NM_CUSTOMDRAW Local $tCustDraw = DllStructCreate($tagNMLVCUSTOMDRAW, $lParam) Local $iDrawStage = DllStructGetData($tCustDraw, "dwDrawStage") If $iDrawStage = $CDDS_PREPAINT Then Return $CDRF_NOTIFYITEMDRAW If $iDrawStage = $CDDS_ITEMPREPAINT Then Return $CDRF_NOTIFYSUBITEMDRAW Local $iSubItem = DllStructGetData($tCustDraw, "iSubItem") Local $iItem = DllStructGetData($tCustDraw, "dwItemSpec") Local $iColor, $iColor2 If $iItem = $Tempo Then If $iSubItem = @WDAY-1 Then $iColor = RGB2BGR(0x00aa00) ; green Else $iColor = RGB2BGR(0x26FF26) ; pink EndIf Else if $iItem = 5 and $iSubItem >= 1 and $iSubItem < 6 Then $iColor = RGB2BGR(0x5B9BD5) ; azul escuro ElseIf $iItem = 2 or $iItem = 3 or $iItem = 4 and ($iSubItem >= 6) Then #DEEAF6 $iColor = RGB2BGR(0xDEEAF6) ; blue ElseIf $iItem = 12 and ($iSubItem = 1 or $iSubItem = 3 or $iSubItem = 5) Then $iColor = RGB2BGR(0x5B9BD5) ; blue ElseIf $iItem = 13 and ($iSubItem >= 1 And $iSubItem <= 8) Then $iColor = RGB2BGR(0x5B9BD5) ; blue ElseIf $iItem = 14 or $iItem = 15 and ($iSubItem = 1 or $iSubItem >= 5) Then $iColor = RGB2BGR(0xFF0000) ; red ElseIf $iItem = 16 and ($iSubItem = 1 or $iSubItem = 5) Then $iColor = RGB2BGR(0xffaaff) ; pink ElseIf $iItem = 17 or $iItem = 18 and $iSubItem >= 1 And $iSubItem < 6 Then $iColor = RGB2BGR(0xffaaff) ; pink ElseIf $iItem = 22 and ($iSubItem >= 1 And $iSubItem <= 5) Then $iColor = RGB2BGR(0xFF0000) ; red ElseIf $iItem = 23 and ($iSubItem = 1 or $iSubItem = 5) Then $iColor = RGB2BGR(0xFF0000) ; red ElseIf $iItem = 23 and ($iSubItem >= 2 and $iSubItem < 5) Then $iColor = RGB2BGR(0xFFC000) ; amarelo ElseIf $iItem = 24 and ($iSubItem >= 1 and $iSubItem < 6) Then $iColor = RGB2BGR(0xFFC000) ; amarelo ElseIf $iItem = 25 and ($iSubItem >= 1 and $iSubItem < 6) Then $iColor = RGB2BGR(0xFFC000) ; amarelo ElseIf $iItem = 29 or $iItem = 30 and ($iSubItem >= 1 and $iSubItem < 6) Then $iColor = RGB2BGR(0xDEEAF6) ; azul claro ElseIf $iItem = 31 and ($iSubItem >= 1 and $iSubItem < 6) Then $iColor = RGB2BGR(0x5B9BD5) ; azul escuro Else $iColor = RGB2BGR(0xFFFFFF) ; white EndIf EndIf DllStructSetData($tCustDraw, "clrTextBk", $iColor) ; background color Return $CDRF_NEWFONT EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>WM_NOTIFY Func RGB2BGR($iColor) Return BitAND(BitShift(String(Binary($iColor)), 8), 0xFFFFFF) EndFunc ;==>RGB2BGR() Func _drawItens() _GUICtrlListView_DeleteAllItems ( $idListview ) GUICtrlCreateListViewItem("7h - 7h30", $idListview) GUICtrlCreateListViewItem("7h30 - 8h", $idListview) GUICtrlCreateListViewItem("8h - 8h30|HISTÓRIA| MATEMÁTICA| LITERATURA| BIOLOGIA| FÍSICA", $idListview) GUICtrlCreateListViewItem("8h30 - 9h|HISTÓRIA| MATEMÁTICA| LITERATURA| BIOLOGIA| FÍSICA", $idListview) GUICtrlCreateListViewItem("9h - 9h30|HISTÓRIA| MATEMÁTICA| LITERATURA| BIOLOGIA| FÍSICA", $idListview) GUICtrlCreateListViewItem("9h30 - 10h", $idListview) GUICtrlCreateListViewItem("10h - 10h30|QUÍMICA| GEOGRAFIA| FÍSICA| FIL/SOC |HISTÓRIA", $idListview) GUICtrlCreateListViewItem("10h30 - 11h|QUÍMICA| GEOGRAFIA| FÍSICA| FIL/SOC |HISTÓRIA", $idListview) GUICtrlCreateListViewItem("11h - 11h30|QUÍMICA| GEOGRAFIA| FÍSICA| FIL/SOC |HISTÓRIA", $idListview) GUICtrlCreateListViewItem("11h30 - 12h", $idListview) GUICtrlCreateListViewItem("12h - 12h30", $idListview) GUICtrlCreateListViewItem("12h30 - 13h", $idListview) GUICtrlCreateListViewItem("13h - 13h30", $idListview) GUICtrlCreateListViewItem("13h30 - 14h", $idListview) GUICtrlCreateListViewItem("14h - 14h30||BIOLOGIA |MATEMÁTICA |QUÍMICA", $idListview) GUICtrlCreateListViewItem("14h30 - 15h||BIOLOGIA |MATEMÁTICA |QUÍMICA", $idListview) GUICtrlCreateListViewItem("15h - 15h30||BIOLOGIA |MATEMÁTICA |QUÍMICA", $idListview) GUICtrlCreateListViewItem("15h30 - 16h", $idListview) GUICtrlCreateListViewItem("16h - 16h30", $idListview) GUICtrlCreateListViewItem("16h30 - 17h|REDAÇÃO |LITERATURA |HISTÓRIA |QUÍMICA |REDAÇÃO", $idListview) GUICtrlCreateListViewItem("17h - 17h30|REDAÇÃO |LITERATURA |HISTÓRIA |QUÍMICA |REDAÇÃO", $idListview) GUICtrlCreateListViewItem("17h30 - 18h|REDAÇÃO |LITERATURA |HISTÓRIA |QUÍMICA |REDAÇÃO", $idListview) GUICtrlCreateListViewItem("18h - 18h30", $idListview) GUICtrlCreateListViewItem("18h30 - 19h", $idListview) GUICtrlCreateListViewItem("19h - 19h30", $idListview) GUICtrlCreateListViewItem("19h30 - 20h", $idListview) GUICtrlCreateListViewItem("20h - 20h30", $idListview) GUICtrlCreateListViewItem("20h30 - 21h", $idListview) GUICtrlCreateListViewItem("21h - 21h30", $idListview) GUICtrlCreateListViewItem("21h30 - 22h", $idListview) GUICtrlCreateListViewItem("22h - 22h30", $idListview) GUICtrlCreateListViewItem("22h30 - 23h", $idListview) Sleep(1000) EndFunc
  9. Enviar SMS

    @Luigi tem certeza que ele manda mensagem via SMS? Pelo que eu vi aqui o celular precisa de uma conexão com a internet para receber mensagens
  10. Enviar SMS

    Muito Show, vlw @Luigi!!!, só uma dúvida, eu preciso ter telegram no celular? No _SendContact eu reparei que precisa colocar o ChatID, então eu teria que estar em um chat? Nunca usei o APP do telegram oq seria esse Token e esse chatID? #include "../Telegram.au3" $Token = '' ;Insert here your token $ChatID = '' ;Your Chat ID _InitBot($Token) ;Normal Keyboard Local $normalKeyboard[4] = ['TopLeft','TopRight','','SecondRow'] Local $normalMarkup = _CreateKeyboard($normalKeyboard) ;ConsoleWrite($normalMarkup & @CRLF) _SendMsg($ChatID,"This is a message with a custom keyboard.",Default,$normalMarkup) ;Inline Keyboard Local $inlineKeyboard[4] = ['Yes','pressed_yes','No','pressed_no'] Local $inlineMarkup = _CreateInlineKeyboard($inlineKeyboard) ;ConsoleWrite($inlineMarkup & @CRLF) _SendMsg($ChatID,"This is a message with an inline keyboard.",Default,$inlineMarkup)
  11. Enviar SMS

    Alguém se existe algum sistema gratuito de envio de SMS que eu consiga incorporar a API no autoit? Eu preciso receber avisos constantemente do meu computador (não é nada de empresa, então por isso que eu queria um gratuito), mas meu telefone celular não possui conexão de internet 24h, então a minha unica forma de receber essa informação é via SMS.
  12. Conectar em redes Wifi usando Autoit

    O sistema da UDF está funcionando de boas aqui para se conectar em wifi aberta, mas para rede privada você terá que criar uma array com 10 linhas falar a criptografia da rede e mandar a array na função _Wlan_SetProfileList($array), ai só vc se conectar no profile. O problema que eu não tenho ideia de que chave o windows usa na criptografia da senha, ai complica na hora de criptografar a senha que o usuário digitou no programa (Lina 7) Na linha 7 a senha que o usuario digita fica ali criptografada de acordo com a linha 3 no caso WPA2-PSK, mas não cheguei tentar descriptografar...eu nem sei qual a chave que o windows usa, mas é só fazer a criptografia reversa com a senha do wifi, se vc quiser reverter a criptografia os dados estão abaixo.. ;descriptografado (senha do wifi) J606212020 ;criptografado (senha do wifi em WPA2-PSK) 01000000D08C9DDF0115D1118C7A00C04FC297EB010000000BC5A9380CCAC5438A784C4F35C546D0000000000200000000001066000000010000200000003B8A43EAD4E6C4427098D82A8B1FEAD07FECD7D28E9597C44A1366165E1C0F31000000000p0000002000020000000A5E6EC2D93DA5F165CF6A03BFBBB3376A311BD54A55C0031C548224376FE1BB3100000002937B256DF3655134F0541358543DE5C400000003B3D7E39C1847B3B516706F2AAEF9501A04517E2A56CEFAC25749EB601ED4F80041DFEB2AA6956E38C8937255B1B28D69FFA42570033848974BD9A794ECFE5BC Testei no windows 10
  13. Conectar em redes Wifi usando Autoit

    Se o windows mostra, provavelmente ele tem alguma dll ou service que gerencie isso. Vou ver aqui. Editado: Aqui funcionou normal #include <wifi33a.au3> #include <array.au3> $avInterfaces = _Wlan_StartSession() $conexao = _Wlan_GetProfile("SARA_WIFI_GRATIS") _ArrayDisplay($conexao) _Wlan_Connect("SARA_WIFI_GRATIS") O problema no script é na linha 39 Para conectar a uma rede com senha pelo que eu vi por cima é que você tem que criar uma array com o profile da rede, salva-la e depois se conectar a ela.
  14. Mano, vc ressuscitou um tópico de 7 anos atras
  15. Conectar em redes Wifi usando Autoit

    Tenta com a UDF Native Wifi.
×