Nur Youtube / MyVideo Videos in GUI anzeigen

johnnyboyy

ist es möglich nur das Video z.b. von Youtube anzuzeigen also fals eine Website mit Video angezeigt wird das es dann nur das Video zeigt und beim rest Normal

und dann noch den Ablauf des Video´s in einem Progress zu Zeigen
und da ich nicht mal im geringsten weiß wie ich das anstellen soll
hier mal die GUI hoffe Jemand weis da was
:GUI Hier:

Spoiler anzeigen

[autoit]

#Region GUI & Includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Video View", 634, 448, 192, 124)
$Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
_GUICtrlStatusBar_SetSimple($StatusBar1)
_GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 633, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$URLLINK=GUICtrlCreateCombo("google.de",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Seite1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Seite2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Seite3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$InetOne.navigate("google.de")
$InetTree.navigate("google.de")
$InetTwo.navigate("google.de")
GUICtrlSetState($Seite1,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)
#EndRegion GUI
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$InetOne.navigate(GUICtrlRead($URLLINK))
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

war10ck

Hmm, weis nocht wie das direkt geht, aber vllt gehts, indem man ne Webseite hat wo das Video was man seen will eingebunden wird, und zwar nur das Video, dnn einfach mit nem eingebundennen Internet explorer aufrufen.

MAn müsste halt ne Webseite machen auf der man als User das Eingebundenen Video einstellen kann. Ich hab keinen Plan ob das so überhaupt geht od obs vllt irgendwie besser geht.

Mfg

PokerFace

Ich hätte da eine Idee.
Und zwar man kann mit einem ganz einfachen HTML Code eine Seite schreiben, welche Leer ist.
Dann findet man auf der MyVideo Seite einen Link den man in seine Website einbinden kann.
Dann wird per AutoIt dieser Link gefiltert und in ein ganz einfaches HTML Skript geschrieben.
Dieses Skript wird aufgerufen und dann in einer GUI angezeigt werden.
Vieleicht geht es so...
Ich setze mich auch mal dran.

war10ck

GEnau das hab ich eig gemeint

PokerFace

Mhh hier bekomm ich immer nen Error weiß aber nicht wieso...
Ich bekomm das schon hin.
Wenn dieser Fehler nicht wäre

Spoiler anzeigen

[autoit]

#Region GUI & Includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <Inet.au3>
#include <IE.au3>
#Region ### START Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

$Form1_1 = GUICreate("Video View", 634, 448, 192, 124)
$Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
_GUICtrlStatusBar_SetSimple($StatusBar1)
_GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 633, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$URLLINK=GUICtrlCreateCombo("google.de",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Seite1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Seite2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Seite3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$InetOne.navigate("http://www.myvideo.de/watch/6877938/Blick_unter_den_Minirock")
$InetTree.navigate("google.de")
$InetTwo.navigate("google.de")
GUICtrlSetState($Seite1,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)
#EndRegion GUI

[/autoit] [autoit][/autoit] [autoit]

;$Source = _INetGetSource ("http://www.myvideo.de/watch/6877938/Blick_unter_den_Minirock")
;$ObjectLink = _StringBetween ($Source, "{HO('player_link').value='\", "';} if(p==1)")
;FileWrite ("Test.txt", $ObjectLink[0])

[/autoit] [autoit][/autoit] [autoit]

$Blubb = _IEGetObjByName ($InetOne, "vdw")
$Value = _IEFormElementGetValue ($Blubb)
MsgBox (1, "", $Value)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$InetOne.navigate(GUICtrlRead($URLLINK))
EndSwitch
WEnd

[/autoit]

xXTobi93Xx

Bei Youtube kannst du es so machen (Ich hoffe ich habe es richtig verstanden^^):

Spoiler anzeigen

[autoit]

#Region GUI & Includes
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <Inet.au3>
#include <IE.au3>
#Region ### START Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

$file = @ScriptDir & "\youtube.html"

[/autoit] [autoit][/autoit] [autoit]

$URL = 'http://www.youtube.com/watch?v=ER9eTF7IhhE'
$split = StringSplit($URL, "v=", 1)
_ArrayDisplay($split)

[/autoit] [autoit][/autoit] [autoit]

$open = FileOpen($file, 2)
FileWrite($open, '<object width="480" height="295"><param name="movie" value="http://www.youtube.com/v/'& _
$split[2] & '&hl=de&fs=1&rel=0&color1=0x006699&color2=0x54abd6"></param><param name="allowFullScreen" '& _
'value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/'& _
$split[2] & '&hl=de&fs=1&rel=0&color1=0x006699&color2=0x54abd6" type="application/x-shockwave-flash" allowscriptaccess="always"'& _
' allowfullscreen="true" width="480" height="295"></embed></object>')
FileClose($open)

[/autoit] [autoit][/autoit] [autoit]

$Form1_1 = GUICreate("Video View", 634, 448, 192, 124)
$Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
_GUICtrlStatusBar_SetSimple($StatusBar1)
_GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 633, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$URLLINK=GUICtrlCreateCombo("google.de",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Seite1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Seite2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Seite3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$InetOne.navigate($file)
$InetTree.navigate("google.de")
$InetTwo.navigate("google.de")
GUICtrlSetState($Seite1,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)
#EndRegion GUI

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete($file)
Exit
Case $Button1
$InetOne.navigate(GUICtrlRead($URLLINK))
EndSwitch
WEnd

[/autoit]