Jump to content

Pedro Pinheiro

Membros
  • Content count

    282
  • Joined

  • Last visited

  • Days Won

    13

Pedro Pinheiro last won the day on October 16

Pedro Pinheiro had the most liked content!

Community Reputation

47 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,827 profile views
  1. UDF para rodar vídeos

    https://mega.nz/#!xXwEDIrZ!KC_bJMp9zvHzs3yrgYkmW6di5gbSIUJcQ2Cgtvf0Mf0 Testai aí, adicionei a opção de Fullscreen, o sistema de fit não é uma função internet da UDF, e sim uma manipulação de janela. f = coloca a tela em fullsscreen g = estica o vídeo (em modo janela)
  2. UDF para rodar vídeos

    Faz uma janela tela cheia e coloca o vídeo nela. Ou da uma estudada nos parâmetros do directshow https://docs.microsoft.com/pt-br/windows/win32/directshow/media-parameters
  3. UDF para rodar vídeos

    O DSEnginer.dll foi feita com o DirectShow, nada que não se pode implementar na UDF.
  4. UDF para rodar vídeos

    Não sei, quem define isso é o aspect ratio nas configurações do codec. 4:3, 16:9. Se não conseguir, faça uma GUI versão fullscreen. Olha aí o exemplo que eu modifiquei para exibir o vídeo em tela cheia. "F" ou "ALT+ENTER" coloca em tela cheia. DirectShow.au3 InterfaceCall.au3 #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Misc.au3> #include "DirectShow.au3" $hGui = GUICreate("DirectShow Example",600,420,-1,-1,$WS_CAPTION + $WS_SYSMENU+ $WS_MINIMIZEBOX + $WS_MAXIMIZEBOX + $WS_SIZEBOX) $Run = GUICtrlCreateButton("Run",10,350,100,50) GUICtrlSetResizing ( -1, $GUI_DOCKHCENTER + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $GUI_DOCKBOTTOM) $Pause = GUICtrlCreateButton("Pause",120,350,100,50) GUICtrlSetResizing ( -1, $GUI_DOCKHCENTER + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $GUI_DOCKBOTTOM) $Stop = GUICtrlCreateButton("Stop",230,350,100,50) GUICtrlSetResizing ( -1, $GUI_DOCKHCENTER + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $GUI_DOCKBOTTOM) $FileOpen = GUICtrlCreateButton("FileOpen ",340,350,100,50) GUICtrlSetResizing ( -1, $GUI_DOCKHCENTER + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $GUI_DOCKBOTTOM) $Full = GUICtrlCreateButton("Fullscreen (F)",450,350,100,50) GUICtrlSetState(-1,$GUI_DISABLE ) GUICtrlSetResizing ( -1, $GUI_DOCKHCENTER + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $GUI_DOCKBOTTOM) $iBar = GUICtrlCreateLabel("",0,323,465,24) GUICtrlSetResizing ( -1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $GUI_DOCKBOTTOM) GUICtrlSetFont(-1,18,0,0,"arial") GUICtrlSetColor(-1,0xffffff) GUICtrlSetbkColor(-1,0) ;~ GUICtrlSetState(-1,$GUI_DISABLE ) $CSize = GUICtrlCreateButton("\/",570,325,20,20) GUICtrlSetResizing ( -1, $GUI_DOCKRIGHT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $GUI_DOCKBOTTOM) $CFull = GUICtrlCreateButton("FULLSCREEN",480,325,80,20) GUICtrlSetResizing ( -1,$GUI_DOCKRIGHT + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT + $GUI_DOCKBOTTOM) Local $GenericFull= False Local $fullscreen = False Local $EsconderB = False Global $IGraphBuilder GUISetState() GUIRegisterMsg($WM_SIZE, "WM_SIZE") While True $iMsg = GUIGetMsg() Select Case $iMsg = $CFull $GenericFull = Not $GenericFull if $GenericFull Then if $EsconderB then _hideButtons($EsconderB) GUICtrlSetData($CFull,"WINDOW") GuiSetStyle($WS_POPUP,-1,$hGui) GUISetState(@SW_MAXIMIZE,$hGui) ;~ _hideButtons($EsconderB) Else if $EsconderB then _hideButtons($EsconderB) GUICtrlSetData($CFull,"FULLSCREEN") GUISetState(@SW_RESTORE,$hGui) GuiSetStyle( $WS_CAPTION + $WS_SYSMENU+ $WS_MINIMIZEBOX + $WS_MAXIMIZEBOX + $WS_SIZEBOX,-1,$hGui) ;~ _hideButtons($EsconderB) EndIf Case $iMsg = $GUI_EVENT_CLOSE Exit Case $iMsg = $CSize _hideButtons($EsconderB) Case $iMsg = $Run IMediaControl_Run($IGraphBuilder) Case $iMsg = $Pause IMediaControl_Pause($IGraphBuilder) Case $iMsg = $Stop IMediaControl_Stop($IGraphBuilder) Case $iMsg = $Full $fullscreen = Not $fullscreen Local $status = ($fullscreen)? IVideoWindow_put_FullScreenMode($IGraphBuilder,-1) : IVideoWindow_put_FullScreenMode($IGraphBuilder,0) Case $iMsg = $FileOpen $var = FileOpenDialog("", Default, _ "Video(*.avi;*.qt;*.mov;*.mpg;*.mpeg;*.m1v;*.wmv;*.flv;*.mp4)|Images(*.gif;*.jpg;*.bmp)|All(*.*)", 1 + 4) if Not @error Then if Not ($IGraphBuilder) Then Local $iPosGet = WinGetClientSize($hGui,"") $IGraphBuilder = GUICtrlCreateGraph($hGui,$var,0,0,$iPosGet[0],$iPosGet[1]-100) GUICtrlSetData($iBar,$var) Else Re_GUICtrlCreateGraph($IGraphBuilder,$var) ;ByRef $IGraphBuilder EndIf EndIf Case (_IsPressed("12") and _IsPressed("0D")) or _IsPressed("46") $fullscreen = Not $fullscreen Local $status = ($fullscreen)? IVideoWindow_put_FullScreenMode($IGraphBuilder,-1) : IVideoWindow_put_FullScreenMode($IGraphBuilder,0) Sleep(300) EndSelect WEnd Func _hideButtons(ByRef $Check) $Check = Not $Check Local $iSpace = ($GenericFull)? 100:45 Local $Size = ($GenericFull)? 55:75 Local $iPosGet = WinGetClientSize($hGui,"") if $Check Then GUICtrlSetData($CSize,"/\") For $i=0 To $Size $iD = ControlGetPos($hGui,"",$Run) ControlMove($hGui,"",$Run, $iD[0],$iD[1] + 1) $iD = ControlGetPos($hGui,"",$Pause) ControlMove($hGui,"",$Pause, $iD[0],$iD[1] + 1) $iD = ControlGetPos($hGui,"",$Stop) ControlMove($hGui,"",$Stop, $iD[0],$iD[1] + 1) $iD = ControlGetPos($hGui,"",$FileOpen) ControlMove($hGui,"",$FileOpen, $iD[0],$iD[1] + 1) $iD = ControlGetPos($hGui,"",$Full) ControlMove($hGui,"",$Full, $iD[0],$iD[1] + 1) $iD = ControlGetPos($hGui,"",$iBar) ControlMove($hGui,"",$iBar, $iD[0],$iD[1] + 1) $iD = ControlGetPos($hGui,"",$CSize) ControlMove($hGui,"",$CSize, $iD[0],$iD[1] + 1) $iD = ControlGetPos($hGui,"",$CFull) ControlMove($hGui,"",$CFull, $iD[0],$iD[1] + 1) IVideoWindow_SetWindowPosition($IGraphBuilder, 0, 0, $iPosGet[0],$iPosGet[1]-100 + $i + $iSpace) ;~ Sleep(10) Next Else GUICtrlSetData($CSize,"\/") For $i=$Size To 0 Step -1 $iD = ControlGetPos($hGui,"",$Run) ControlMove($hGui,"",$Run, $iD[0],$iD[1] - 1) $iD = ControlGetPos($hGui,"",$Pause) ControlMove($hGui,"",$Pause, $iD[0],$iD[1] - 1) $iD = ControlGetPos($hGui,"",$Stop) ControlMove($hGui,"",$Stop, $iD[0],$iD[1] - 1) $iD = ControlGetPos($hGui,"",$FileOpen) ControlMove($hGui,"",$FileOpen, $iD[0],$iD[1] - 1) $iD = ControlGetPos($hGui,"",$Full) ControlMove($hGui,"",$Full, $iD[0],$iD[1] - 1) $iD = ControlGetPos($hGui,"",$iBar) ControlMove($hGui,"",$iBar, $iD[0],$iD[1] - 1) $iD = ControlGetPos($hGui,"",$CSize) ControlMove($hGui,"",$CSize, $iD[0],$iD[1] - 1) $iD = ControlGetPos($hGui,"",$CFull) ControlMove($hGui,"",$CFull, $iD[0],$iD[1] - 1) IVideoWindow_SetWindowPosition($IGraphBuilder, 0, 0, $iPosGet[0],$iPosGet[1]-100 + $i + $iSpace) ;~ Sleep(10) Next EndIf EndFunc Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam) #forceref $iMsg, $wParam Local $iPosGet = WinGetClientSize($hGui,"") IVideoWindow_SetWindowPosition($IGraphBuilder, 0, 0, $iPosGet[0],$iPosGet[1]-100) Return $GUI_RUNDEFMSG EndFunc ;==>WM_SIZE
  5. UDF para rodar vídeos

    Ele ta falando que o aplicativo no win7+ tem a responsabilidade de controlar o próprio som, e não o master (do pc todo) @Belini"depende de uma dll feita pelo criador " DSEnginer.dll? Não precisa usar ela para reproduzir vídeo, só usar o DirectShow direto. AutoItObject.au3 DirectShow_Player.au3
  6. #include <GDIPlus.au3> _GDIPlus_Startup() Coloca essas duas linhas no inicio do seu script. Você usou GDI+ no seu código sem iniciar a utilização dela, por isso que deu erro na linha 102. Não basta só chamar a DLL na linha 13 "Local $hDLL2 = DllOpen("gdi32.dll")". Tem que dar um start também.
  7. Faz o seguinte. Coloca Msgbox("","","Testando 1",) em algumas linhas, assim você encontra o lugar que está dando crash no programa.
  8. Roda ele pelo console da ide do autoit, quando ele fechar sozinho, vc mostra a mensagem que apareceu
  9. Autoit Frontend

    Um frontend totalmente igual ao pandorabox 3. Fiz em 15 dias para brincar um pouco, mas acabei abandonando. O projeto está aberto no github para download e contribuições com ajudas e ideias. Caso alguém queira atualizações do projeto, vou deixar meu link de doações em aberto, dependendo das doações, o frontend ficará 100% igual ao Pandorabox 3 e terá sistema de skins para o gosto da pessoa. https://github.com/pedrowarlock/FrontEnd_listbox https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=pedro_15boy%40hotmail.com&currency_code=BRL&source=url
  10. Usando a UDF au3Irrlicht2.au3

    Só colar o link do video no post que já fica automatico. link do projeto: https://github.com/pedrowarlock/FrontEnd Eu não atualizei ainda, quando eu tiver tempo eu mando a atualização dele. Fiquei desanimado porque não consegui gerenciar fontes de textos.
  11. Animate Window (Animar GUI do Autoit)

    Eu sempre usava array quando queria selecionar um setor do programa ou um monte de variáveis que eu acabava esquendo a finalidade. Dessa forma meus projetos vão ficar todos organizados por setores.
  12. Animate Window (Animar GUI do Autoit)

    Eu não conhecia a "_WinAPI_DisplayStruct", agora só vou fazer desse jeito que você fez.
  13. Usando a UDF au3Irrlicht2.au3

    Um tempo atras eu tinha me interessado nessa biblioteca de Irrlicht2, o problema é que ela é bem limitada no autoit, isso que é depressivo. Eu fiz esse projeto de menu de seleção 2D um tempo atras ->
  14. Hotkeyset() - Chamar função apenas uma vez

    Olha um exemplo do _IsPressed. Talvez te ajude #include <Misc.au3> #include <MsgBoxConstants.au3> Local $hDLL = DllOpen("user32.dll"), $pressed = False While 1 Select Case _IsPressed("1B", $hDLL) ExitLoop Case _IsPressed("10", $hDLL) if Not $pressed Then ConsoleWrite("Shift pressionado!" & @CRLF) $pressed = True case Else $pressed = False EndSelect WEnd DllClose($hDLL)
  15. Hotkeyset() - Chamar função apenas uma vez

    #include <MsgBoxConstants.au3> HotKeySet("a", "ShowMessage") While Sleep(100) Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd Func ShowMessage() HotKeySet("a") ;Remove a Hotkey durante a execução da função MsgBox($MB_SYSTEMMODAL, "", "Testando.") ;Executa qualquer coisa Sleep(1000) HotKeySet("a", "ShowMessage") ;Adiciona novamente a hotkey EndFunc
×