Jump to content

Davi Cesar Grego

Membros
  • Content count

    28
  • Joined

  • Last visited

Community Reputation

0 Neutro

5 Followers

About Davi Cesar Grego

  • Rank
    Membro

Profile Information

  • Location
    Araçatuba
  1. Enviar imagem para pasta padrão do usuarío

    muito grato vcs são realmente muito bons , me ajudo muito :600866:
  2. Enviar imagem para pasta padrão do usuarío

    nao entendi hihhih devagar hihi
  3. Enviar imagem para pasta padrão do usuarío

    :600866: muito grato galera as 3 respostas deu certinhoooo :600866:
  4. nao consigo manda imagens do $pic1 para meus amigos o C:/ user deles é diferente do meu, quando mando a imagem nao vai. desde já agradeço #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=c:\users\administrador\desktop\programa2\soldados.kxf $Form1_1 = GUICreate("Form1", 260, 543, 192, 124) $Pic1 = GUICtrlCreatePic("C:\Users\Administrador\Desktop\PROGRAMA2\soldados.bmp", 0, 0, 353, 561) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
  5. Criando um validador

    Achei muito legal parabéns só uma duvida, tem como , quanto dar prazo expirado , o programa se auto deletar ? ou depois de prazo expirado mesmo q volte a data ele nao abrir o programa ? muito grato fico no aguardo
  6. Ajuda como fazer um regressor de data

    opa valeuu pela dica muito grato
  7. Ajuda como fazer um regressor de data

    uma otima Resposta gostei, só q tenho outra duvida. ele começa com 30 minutos e quando chegar ao numero 0 ele fecha o programa. teria como programar , exemplo quando chegar no Zero ele fechar oprograma e nao deixar o programa abri, mesmo a pessoa clicando e aparece tempo esgotado!! desde já AGRADEÇO A AJUDA DE TODOS
  8. Verificar o IP da rede local

    muito grato :600866: :like_icon: isso q eu queriaaa
  9. Verificar o IP da rede local

    Joelson0007 sim em uma rede local , :600866: tem como , mas lembrando !!! se o IP nao for correspondente Nao abre. desde ja agradeço
  10. Verificar o IP da rede local

    aqui esta um exemplo, tipo se eu quiser passar este trabalho para alguém fazer , esta pessoa so vai ter asseço ao trabalho se o IP for realmente o dele. deste já agradeço #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <DateTimeConstants.au3> #include <GUIConstantsEx.au3> #include <GuiIPAddress.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Local $select = 0 $Form1 = GUICreate("Form1", 207, 311, 192, 124) $Label = GUICtrlCreateLabel("Label", 16, 8, 36, 17) $Label2 = GUICtrlCreateLabel("Label2", 16, 32, 36, 17) $Combo1 = GUICtrlCreateCombo("Combo", 64, 8, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1|2|3") $Combo2 = GUICtrlCreateCombo("Combo2", 64, 32, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1|2|3") $Button2 = GUICtrlCreateButton("Button2", 8, 277, 89, 33) $Button1 = GUICtrlCreateButton("Button1", 104, 277, 89, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $Msg = GUIGetMsg() Switch $Msg Case $GUI_EVENT_CLOSE Exit case $Button2 Exit case $combo1 $select = 1 EndSwitch If $Msg = $Button1 And $select = 1 Then frtread () frtread2() EndIf WEnd ui esta o exemplo
  11. Verificar o IP da rede local

    Boa noite gostaria de saber, tum password através do IP ? EXEMPLO Se o IP for o correto ele executa o programa . Se o IP não for correspondente ele emite uma mensagem , IP incompatível . desde já agradeço a ajuda fico no aguado
  12. Ajuda como fazer um regressor de data

    TAVA indo tao bem :mad2: fiquei a nooite toda e nada. O regressor ta show , mas nao sei combinar ele com as combox, gostaria de ajuda sera que é possivel deixar a combo rodando as funçoes e o regressor trabalhando. e sera que é possivel depois q o regressor termihar ele fechar as funçoes da como. exemplo terinou a contagem final o regressor nao deixa abrir o programa , so com chave . desde ja agradeço Global $tempo = 200 ; Aqui você substitui os 200 pelo valor de dias em milissegundos #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <DateTimeConstants.au3> #include <GUIConstantsEx.au3> #include <GuiIPAddress.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Local $select = 0 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 207, 311, 192, 124) $Label = GUICtrlCreateLabel("Label", 16, 8, 36, 17) $Label2 = GUICtrlCreateLabel("Label2", 16, 32, 36, 17) $Combo1 = GUICtrlCreateCombo("Combo", 64, 8, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1|2|3") $Combo2 = GUICtrlCreateCombo("Combo2", 64, 32, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "1|2|3") $Button1 = GUICtrlCreateButton("Button1", 104, 277, 89, 33) $Button2 = GUICtrlCreateButton("Button2", 8, 277, 89, 33) $Label1 = GUICtrlCreateLabel("30", 70, 170, 76, 88) GUICtrlSetFont(-1, 48, 800, 0, "PT Serif") $IPAddress1 = _GUICtrlIpAddress_Create($Form1, 8, 259, 185, 17) _GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### timer() While 1 $Msg = GUIGetMsg() Switch $Msg Case $GUI_EVENT_CLOSE Exit case $Button2 Exit case $combo1 $select = 1 EndSwitch If $Msg = $Button1 And $select = 1 Then frtread () frtread2() EndIf WEnd Func timer() While 1 $dia = GUICtrlRead($Label1) If $dia == 0 Then MsgBox(0,'',"Fim") Exit ExitLoop EndIf Sleep($tempo) $re = $dia - 1 GUICtrlSetData($Label1,$re) WEnd EndFunc Func frtread() $Read = GUICtrlRead($Combo) If $Read = "1" Then MouseClick("left", 684, 698, 1) Sleep(100) MouseClick("left", 682, 665, 1) Sleep(1000) MouseClick("left", 297, 499, 1) Sleep(100) MouseClick("left", 465, 448, 1) Sleep(1000) MouseClick("left", 555, 479, 1) EndIf If $Read = "" Then $Picf = GUICtrlCreatePic($dir & "", 16, 194, 44, 44) Else EndIf EndFunc func sair() Exit EndFunc func tt() EndFunc Func frtread2() $Read = GUICtrlRead($Combo2) If $Read = "1" Then MouseClick("left", 684, 698, 1) Sleep(100) MouseClick("left", 682, 665, 1) Sleep(1000) MouseClick("left", 297, 499, 1) Sleep(100) MouseClick("left", 465, 448, 1) Sleep(1000) MouseClick("left", 555, 479, 1) EndIf If $Read = "" Then $Picf = GUICtrlCreatePic($dir & "", 16, 194, 44, 44) Else EndIf EndFunc func sair2() Exit EndFunc func tt2() EndFunc
  13. Ajuda como fazer um regressor de data

    urummm muito gratooo perfeito , valeu a todos pela a ajuda
  14. Ajuda como fazer um regressor de data

    este é de tempo eu queria de data, mas vou guardar este e vou estudado muito grato se algual souber eu agradeço
  15. Boa tarde como eu faço um regressor de data de 30 dias e quando chegar no zero ele termina fico no aguardo da ajuda deste já agradeço
×