Kurze Frage:
Ist es möglich z.B. ein youtube Video in einer Gui wiederzugeben, anstatt den Link im IE öffnen zu lassen?
Kurze Frage:
Ist es möglich z.B. ein youtube Video in einer Gui wiederzugeben, anstatt den Link im IE öffnen zu lassen?
Kannst du evtl. mit einem eingebettetem IE Obj machen.
Dazu haben wir schon Lösungen hier im Forum
z.B.
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
$Url = 'http://www.youtube.com/v/VnJ-GW5pgFg'
$Datei = FileOpen(@scriptdir&"\Youtube.htm",2)
FileWrite($Datei,'<object width="625" height="344"><param name="movie" value="'&$Url&'&hl=de&fs=1"></param><param name="allowFullScreen" value="true"></param><embed src="'&$Url&'&hl=de&fs=1" type="application/x-shockwave-flash" allowfullscreen="true" width="625" height="344"></embed></object>')
FileClose($Datei)
_IEErrorHandlerRegister ()
[/autoit] [autoit][/autoit] [autoit]$oIE = ObjCreate("Shell.Explorer.2")
[/autoit] [autoit][/autoit] [autoit]GUICreate("Film", 630, 350)
$GUIActiveX = GUICtrlCreateObj($oIE, -10, -15, 670, 400)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]_IENavigate ($oIE, @scriptdir&"\Youtube.htm")
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
FileDelete($Datei)
GUIDelete()
Exit
[/autoit]Hab was vergessen dazu zu schreiben!
Es geht auch um eigene Videos, das ein eigenes abspielfenster vorhanden ist. Nicht nur um Online Videos.
Danke bisher um eure Hilfe!
Welchen Player willst du verwenden? Welche Dateiformate?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 629, 442, 186, 125)
$Player = ObjCreate("WMPlayer.OCX")
$Obj1_ctrl = GUICtrlCreateObj($Player, 10, 10, 400, 200)
$Dein_Video = 'test-video.wmv'
$Dein_Video = 'http://wstreaming.zdf.de/encoder/livestream6_h.asx'
With $Player
.fullScreen = True
.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
.enabled = True
.uiMode = "full"; none / mini full
.settings.autostart = True
.settings.mute = False
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith
$oMedia = $Player.newMedia($Dein_Video)
$Player.currentPlaylist.appendItem($oMedia)
$Player.controls.play()
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Flash kann man auch ohne IE einbinden. Beispiel für Youtube HQ:
http://www.autoitscript.com/forum/index.php?showtopic=84811
Eigentlich alles was geht an formate und player....
Den Player zb wahlweise zum aussuchen ($Radio1 zb $Radio2 = WM - VLan)
@progandy
Ist der YoutubeHQ ein fertiges script? Bei mir zeigt er mir fehler bei line 53 & 75 an...