Jump to content

Rodrigo Chaves Neto

Membros
  • Content count

    39
  • Joined

  • Last visited

  • Days Won

    7

Rodrigo Chaves Neto last won the day on June 22

Rodrigo Chaves Neto had the most liked content!

Community Reputation

13 Neutro

About Rodrigo Chaves Neto

  • Rank
    Membro
  • Birthday 12/13/1982

Profile Information

  • Gender
    Male
  • Location
    Caçapava - SP

Contact Methods

  • Website URL
    https://www.linkedin.com/in/rodrigo-chaves-neto-242b1588

Recent Profile Visitors

669 profile views
  1. Receber dados no pc via Bluetooth

    Esqueci de anexar SecurityEx.au3
  2. Receber dados no pc via Bluetooth

    Talvez seja possível iniciar algo do tipo a partir desse código Instalei o BluetoothCLTools-1.2.0.56 e é possível gerenciar as conexões de bluetooth apartir dele Porém ainda não entendi como funciona todas as conexões. Todos os parâmetros estão neste link http://bluetoothinstaller.com/bluetooth-command-line-tools/ ou é possível visualizar pelo prompt de comando o help do arquivo digitando -h Exemplo: btcom.exe -h Este script eu desenvolvi no Windows 10. Não testei e outras versões. #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Bluetooth Script 06/2020 #ce ---------------------------------------------------------------------------- #RequireAdmin ;Necessario para mudar o status do servico #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #include <File.au3> #include <GuiListView.au3> #include <SendMessage.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <Services.au3> Dim $sRoot = @ScriptDir hWnd_Main() Func hWnd_Main() ; Cria a GUI principal $hWnd_Main = GUICreate("AutoitBrasil", 620, 380, -1, -1) $ListView1 = GUICtrlCreateListView("Mac Address|Friendly Name|Type", 0, 0, 620, 320) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 130) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150) $idBtn_Remove = GUICtrlCreateButton("Remove", 365, 330, 75, 25) $idBtn_Connect = GUICtrlCreateButton("Conectar", 445, 330, 75, 25) $idBtn_Pair = GUICtrlCreateButton("Parear", 525, 330, 75, 25) $idBtn_Refresh = GUICtrlCreateButton("Atualizar", 10, 330, 75, 25) $idBtn_ConnectView = GUICtrlCreateButton("Ver conexões", 95, 330, 75, 25) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit ;Verifica quais conexoes bluetooth estao disponiveis e visiveis Case $idBtn_ConnectView $iStatusProgress = hWnd_Status($hWnd_Main, 'Obtendo informações das conexões visíveis. . .') viewConnections() GUIDelete($iStatusProgress) ;Atualiza a lista de dispoitivos Case $idBtn_Refresh $iStatusProgress = hWnd_Status($hWnd_Main, 'Executando discovery. . .') $aDiscovery = discoveryDevices() If IsArray($aDiscovery) Then _GUICtrlListView_DeleteAllItems($ListView1) For $i = 1 To UBound($aDiscovery) - 1 GUICtrlCreateListViewItem($aDiscovery[$i], $ListView1) Next EndIf GUIDelete($iStatusProgress) ;Remove o dispositivos das conexoes conhecidas Case $idBtn_Remove Local $aItem = _GUICtrlListView_GetItemTextArray($ListView1) If IsArray($aItem) Then If $aItem[1] <> '' Then $iStatusProgress = hWnd_Status($hWnd_Main, 'Tentando remover. . .') Local $iQuestion = MsgBox(262144 + 32 + 4, 'Debug', 'Tem certeza que deseja remover o dispositivo selecionado?' & @CRLF & @CRLF & 'Mac Address: ' & $aItem[1] & @CRLF & 'Device: ' & $aItem[2] & 'Type: ' & $aItem[3], 60) If $iQuestion = 6 Then bluetoothRemove($aItem[1]) EndIf GUIDelete($iStatusProgress) Else MsgBox(262144 + 16, 'Debug', 'Selecione um item da lista') EndIf EndIf ;Conecta um dispositivo bluetooth Case $idBtn_Connect Local $aItem = _GUICtrlListView_GetItemTextArray($ListView1) If IsArray($aItem) Then If $aItem[1] <> '' Then $iStatusProgress = hWnd_Status($hWnd_Main, 'Conectando. . .') bluetoothConnect($aItem[1]) GUIDelete($iStatusProgress) Else MsgBox(262144 + 16, 'Debug', 'Selecione um item da lista') EndIf EndIf ;Pareia um dispositivo bluetooth Case $idBtn_Pair Local $aItem = _GUICtrlListView_GetItemTextArray($ListView1) If IsArray($aItem) Then If $aItem[1] <> '' Then $iStatusProgress = hWnd_Status($hWnd_Main, 'Pareando. . .') bluetoothPair($aItem[1]) GUIDelete($iStatusProgress) Else MsgBox(262144 + 16, 'Debug', 'Selecione um item da lista') EndIf EndIf EndSwitch WEnd EndFunc ;==>hWnd_Main Func viewConnections() checkIsBluettothOn() Local $iPID Local $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btdiscovery.exe -s"', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) Local $sOutput = StdoutRead($iPID) MsgBox(262144 + 64, 'Debug', $sOutput) EndFunc ;==>viewConnections Func bluetoothConnect($sByRefDevice) checkIsBluettothOn() Local $iPID Local $sOutput $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btcom.exe" -b' & $sByRefDevice & ' -c -s110b', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btcom.exe" -b' & $sByRefDevice & ' -c -s110e', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) EndFunc ;==>bluetoothConnect Func bluetoothPair($sByRefDevice) checkIsBluettothOn() Local $iPID Local $sOutput $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btpair.exe -b' & $sByRefDevice & ' -c -s110b"', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btpair.exe -b' & $sByRefDevice & ' -c -s110e"', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) EndFunc ;==>bluetoothPair Func bluetoothRemove($sByRefDevice) checkIsBluettothOn() Local $iPID Local $sOutput $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btcom.exe" -b' & $sByRefDevice & ' -r -s110b', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btcom.exe" -b' & $sByRefDevice & ' -r -s110e', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) EndFunc ;==>bluetoothRemove Func discoveryDevices() checkIsBluettothOn() Local $iPID Local $sOutput, $sTab = ' ' Local $aOutput, $aDevice, $aReturn Local $iPID = Run(@ComSpec & ' /c "' & $sRoot & '\btdiscovery.exe -s"', '', @SW_HIDE, 0x2) ProcessWaitClose($iPID) Local $sOutput = StdoutRead($iPID) ConsoleWrite($sOutput & @CRLF) $aOutput = StringSplit($sOutput, @CRLF, 1) If IsArray($aOutput) Then For $i = 1 To UBound($aOutput) - 1 If StringLeft($aOutput[$i], 1) = '(' Then $aDevice = StringSplit($aOutput[$i], $sTab, 1) If IsArray($aDevice) Then If $aDevice[0] > 2 Then $aReturn &= $aDevice[1] & '|' & $aDevice[2] & '|' & $aDevice[3] & @CRLF EndIf EndIf EndIf Next EndIf $aReturn = StringSplit($aReturn, @CRLF, 1) Return $aReturn EndFunc ;==>discoveryDevices Func hWnd_Status($hWnd_ByRef, $sByRefText = 'Aguarde') $hWnd_Status = GUICreate("", 620, 380, 0, 0, $WS_POPUP, $WS_EX_MDICHILD, $hWnd_ByRef) GUISetBkColor(0x252525) Local $aGetPos = WinGetPos($hWnd_Status) Local $Graphic1 = GUICtrlCreateGraphic(0, 95, $aGetPos[2] - 2, 160) Local $Label1 = GUICtrlCreateLabel($sByRefText, 0, 155, $aGetPos[2] - 2, 17, $SS_CENTER) GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI") GUICtrlSetBkColor(-1, -2) GUICtrlSetColor(-1, 0xFFFFFF) Local $Progress1 = GUICtrlCreateProgress(165, 185, 310, 12, 0x8) _SendMessage(GUICtrlGetHandle($Progress1), $PBM_SETMARQUEE, 1, 16) WinSetTrans($hWnd_Status, '', 230) GUISetState() WinActivate($hWnd_ByRef) Return $hWnd_Status EndFunc ;==>hWnd_Status Func checkIsBluettothOn() Local $sParam1 = 'bthserv', $sParam2 = 'bthHFSrv' Local $aCheckService = _Service_QueryStatus($sParam1) If $aCheckService[1] <> 4 Then Local $iQuestion = MsgBox(262144 + 32 + 4, 'Debug', 'O serviço bluetoth não está habilitado' & @CRLF & @CRLF & 'Deseja habilitar agora?', 60) If $iQuestion = 6 Then _Service_Start($sParam1) _Service_Start($sParam2) EndIf EndIf EndFunc ;==>checkIsBluettothOn Os demais arquivos necessários estão no link https://1drv.ms/u/s!AnsPM67Cyv4Xk9MKRtGzYbK2dTsCIA?e=Y3nXkD
  3. Desenvolvendo na interface metro

    Obrigado. Falta alguns meses ainda pra terminar. Assim que concluído vou disponibilizar o código fonte sem as informações da empresa para o qual estou fazendo
  4. Desenvolvendo na interface metro

    Dessa vez esta com banco de dados em SQL
  5. Incorporar libmpv no programa

    Aqui arquivos em mp4 funcionou. Sua aplicação eh portable? Se não for, poderia colocar a instalação de plugins de video como pre requisito Ontem não consegui criar o código. A empresa ta sugando a gente esse fim de ano.. huahauhau Mas essa semana ainda vou tentar verificar o aspect ratio
  6. Incorporar libmpv no programa

    Tendi. Obrigado por postar o exemplo Vou tentar replicar aqui e posto o codigo em breve
  7. Incorporar libmpv no programa

    Tendi. Vc pode postar se for possivel o tamanho da janela e um video de exemplo? Posso tentar encontrar os ajustes corretos
  8. Incorporar libmpv no programa

    Tendi. Vc pode postar se for possivel o tamanho da janela e um video de exemplo? Posso tentar encontrar os ajustes corretos
  9. Incorporar libmpv no programa

    Tendi. Vc pode postar se for possivel o tamanho da janela e um video de exemplo? Posso tentar encontrar os ajustes corretos
  10. Incorporar libmpv no programa

    Legal, conseguiu resolver de outra forma! Sobre o aspect ratio eu coloquei uma propriedade só .stretchToFit = True Essa propriedade preenche todo o espaço definido pela sintaxe abaixo $objActiveX = GUICtrlCreateObj($oWMPlayer, 0, 0, $_Width, $_Height)
  11. Incorporar libmpv no programa

    A maioria dos objetos listados nesse aplicativo podem ser manipulados pelo Autoit
  12. Incorporar libmpv no programa

    Meu teclado não tem funções de atalho para controle do player. Então não consigo testar se os controles serão desabilitados. Mas vc pode controlar o player pelo objeto $oWMPlayer Eu coloquei algumas propriedades With $oWMPlayer ; Object tag pool .fullScreen = False .windowlessVideo = True .stretchToFit = True .settings.playCount = 99999 .URL = $f_Video .enableContextMenu = False .enabled = False .Controls.currentPosition = 0 ; Move to location in movie .Controls.Play ;/ Pause and Stop .uiMode = "none" ; none / mini full .settings.autostart = True .settings.mute = False .settings.volume = 0 ; 0 - 100 .settings.Balance = 0 ; -100 a 100 EndWith Vc pode enviar instruções alterando os valores do objeto, por exemplo Se vc quiser aumentar o volume do video vc faz executando do seguinte modo $oWMPlayer.settings.volume = 20 ;Pra aumentar 20% o volume Se vc quiser colocar o volume só no lado direito $oWMPlayer.settings.balance = 100 Deve haver mais propriedades no objeto que desativam teclas de atalho, caso elas estejam ativadas Mas tem que olhar as propriedades do objeto usando o OLEView.exe Pra encontrar esse executável vc abre o help do Autoit e seleciona a aba search Digita OLEView.exe Vai aparecer uma referencia: COM Reference Ao abrir o arquivo de ajuda vá até o subtópico OLE/COM Object Viewer Lá tem o endereço pra baixar o arquivo e instruções de como encontrar as propriedades do objeto
  13. Incorporar libmpv no programa

    Deve ser a versão do Autoit Para funcionar em versões mais antigas você pode apagar a linha 23: Dim $WMPlayer = hwnd_Player E a linha 28: $WMPlayer() Em lugar dessas linhas apagadas você pode fazer a chamada direto na função: hWnd_Player() #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WinAPIDiag.au3> #include <WinAPIMisc.au3> ;Control Video File Dim $f_Video ;Create Player Object Dim $oWMPlayer = ObjCreate("WMPlayer.OCX.7") ;Define Player Size Dim $_Width = 640, $_Height = 360 ;Control Video Player Dim $WMPlayer = hWnd_Player ################## Excluir ;Extract Demo Video _Extract_Video(True) ;Start Player Video $WMPlayer() ################### Excluir Func hWnd_Player() $hWnd_Video = GUICreate("", $_Width, $_Height, -1, -1, $WS_POPUPWINDOW) $objActiveX = GUICtrlCreateObj($oWMPlayer, 0, 0, $_Width, $_Height) $oWMPlayerEvt = ObjEvent($oWMPlayer, "MediaPlayer_")
  14. Incorporar libmpv no programa

    Legal. Obrigado Eh possível incorporar muita coisa Vou postar um exemplo de como incorporar o word na Gui do autoit
  15. Incorporar libmpv no programa

    Vc se refere ao código que eu postei?
×