1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | #El fichero contiene enlaces de Yotube #https://www.youtube.com/watch?v=sNwpQwn5awY #https://www.youtube.com/watch?v=ETradti7L4c #Función para enviar la reproducción a la Smart TV function EnviarSmartTV { #Importar DLL para simular el clic del ratón #Es necesario poner las comillas correctamente cuando se importa la DLL user32.dll $MouseEventSig=@’ [DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)] public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo); ‘@ $MouseEvent = Add-Type -memberDefinition $MouseEventSig -name “MouseEventWinApi” -passThru #Depende de la resolución de pantalla #Pulsar en "Personaliza y controla Google Chrome" [System.Windows.Forms.Cursor]::Position=New-Object System.Drawing.Point(1347,43) $MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0) $MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0) Start-Sleep -Seconds 5 #Nos posicionamos en la opción "Enviar" [System.Windows.Forms.SendKeys]::SendWait(‘E') Start-Sleep -Seconds 5 #Pulsar la tecla ENTER [System.Windows.Forms.SendKeys]::SendWait(‘{ENTER}’) Start-Sleep -Seconds 10 #Enviar youtube.com a la primera TV [System.Windows.Forms.Cursor]::Position=New-Object System.Drawing.Point(653,153) $MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0) $MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0) Start-Sleep -Seconds 5 #Pulsar en "ENVIAR" [System.Windows.Forms.Cursor]::Position=New-Object System.Drawing.Point(705,173) $MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0) $MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0) } Get-Content E:\listadovideos.txt | % { #Abrir enlace de Youtube Start-Process chrome $_ #Enviar la reproducción a la Smart TV mediante la función EnviarSmartTV EnviarSmartTV #Esperar antes de reproducir el siguiente vídeo Start-Sleep -Seconds 200 } |