Jump to content

All Activity

This stream auto-updates     

  1. Last week
  2. 3 pessoas visualizaram seu perfil agora https://t.co/M9xujXAnJ5

  3. Earlier
  4. @aquinaband @BandTV Num quero mais...

  5. RT @PReflitao: https://t.co/qQU44ilRQI

  6. RT @dailydotdev: 🔥 $1500 Giveaway == 10 x https://t.co/Dq6avDszZ4 Masterclasses! We've partnered up w/ @MrAhmadAwais an indie course aut…

  7. RT @Gaules: Estamos na próxima fase! O menino foi novo! Um dia vão dizer que era coincidência #SomosMibr https://t.co/275egbnAFp

  8. Desenvolvendo na interface metro

    Muito bom, parabéns! @Rodrigo Chaves Neto
  9. RT @LoiraCerejinha: Noitinha agradável com esse delícia @boy_nilson brincou em todos os sentidos e aquela finalização 🍑👌👈🍆💦 maravilhosa eu…

  10. Receber dados no pc via Bluetooth

    Esqueci de anexar SecurityEx.au3
  11. RT @xmgrau: Vishhhhhhhhhhhhhhhhhh!!!!!

  12. Receber dados no pc via Bluetooth

    Rodrigo vou baixar e fazer uns testes.. Edit: UDF necessária.. -> SecurityEx.au3
  13. 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
  14. @kolefffff Melhoraas!

  15. Pô @CorreiosBR , 10 dias e a encomenda não sai do lugar? https://t.co/rDIUdl5gdB

  16. Aquela recomendação de vídeo que te faz lembra que não é só você que ***** na vida https://t.co/ey0lKjIFWK

  17. Pessoal tem um cara precisando fazer umas melhorias no código do karaokê for directx que é código aberto, precisa mexer mais especificamente na parte relativa a .cdg se caso alguém tiver conhecimento e interese me manda MP que aí passo o contato dele me parece que o código é em C++
  18. @bitdov @bitcoinheiros @LandRover_UK Bando de marketeiro safado rsrss

  19. @ArnaldoJRibeiro O conteúdo que importa! É bom ou ruim para os times???

  20. @cirogomes nos ajude com esse tema #pronampe https://t.co/aAMjyhyBRX

  21. RT @FeCastanhari: Apesar de tudo hoje é um dia para se comemorar! Caiu o PIOR MINISTRO da edução que o Brasil já teve. Trouxe o caos para…

  22. @Malu_AraujoM Loirão

  23. @henriolliveira Kkkkk

  24. @SergioAguiar07 Tem, no mínimo, dois anos. Eu juro

  25. seu perfil foi visto por 6 pessoas nas últimas 2 horas https://t.co/M9xujXAnJ5

  26. https://t.co/49d3Avx6cL #WiBOOIndication187290

  27. @mimitagrr oi @mimitagrr

  1. Load more activity
×