IE FilmFenster öffnen

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>

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

    _IEErrorHandlerRegister ()

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

    $oIE = ObjCreate("Shell.Explorer.2")

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

    GUICreate("Film", 480, 380)
    $GUIActiveX = GUICtrlCreateObj($oIE, 1, 1, 480, 380)

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

    GUISetState()

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

    _IENavigate ($oIE, "http://de.youtube.com/watch?v=VnJ-GW5pgFg")

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

    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

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

    GUIDelete()

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

    Exit

    [/autoit]

    Ich möchte das, der Film direkt erscheint und man nicht erst scrollen muss :/
    Ist es möglich? Wenn ja, wie? :x

    Gruß


    /E: Gelöst :)

    Einmal editiert, zuletzt von samy123 (10. Oktober 2008 um 17:03)

    Ja, so würde ich es auch machen. Kann's leider jetzt nicht testen, aber so ungefähr:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>

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

    $Url = 'http://de.youtube.com/watch?v=VnJ-GW5pgFg'
    $Datei = FileOpen("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)

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

    _IEErrorHandlerRegister ()

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

    $oIE = ObjCreate("Shell.Explorer.2")

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

    GUICreate("Film", 480, 380)
    $GUIActiveX = GUICtrlCreateObj($oIE, 1, 1, 480, 380)

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

    GUISetState()

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

    _IENavigate ($oIE, $Datei)
    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

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

    FileDelete($Datei)
    GUIDelete()

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

    Exit

    [/autoit]

    Super Idee, danke! :D

    Nur jetzt habe ich jetzt Problem, das er die Seite nicht aufrufen will <.<
    Und ich sehe den Fehler im Script nicht wirklich :X

    Code
    Die Navigation zu der Webseite wurde  abgebrochen.
           Mögliche Vorgehensweise:
            Aktualisieren Sie die  Seite.

    Nein, das Problem ist ein anderes.
    Schon die HTM-Seite ist falsch erstellt.
    Kannst ja mal die Seite "per Hand" öffnen.
    Du wirst sehen, es wird kein Video kommen.

    Der Fehler beim erstellen liegt darin, dass der Original Code so aussieht:

    Zitat

    <object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/VnJ-GW5pgFg&hl=de&fs=1&color1=0x3a3a3a&color2=0x999999"></param><param name="allowFullScreen" value="true"></param><embed src="http://www.youtube.com/v/VnJ-GW5pgFg&hl=de&fs=1&color1=0x3a3a3a&color2=0x999999" type="application/x-shockwave-flash" allowfullscreen="true" width="425" height="344"></embed></object>

    Du fügst den falschen link ein.

    So wird zumindest die Datei richtig erstellt, zum abspielen kann ich im Moment nix sagen, kanns nicht ausprobieren.
    Probier mal:

    [autoit]

    $Url = 'http://www.youtube.com/v/VnJ-GW5pgFg'

    [/autoit]
    Zitat von Mario2323

    jetzt könnte man die html datei auch ohne rand machen zodass es wie ein Object aussieht

    Und wie macht man das?

    Hab noch ein bisschen was verändert. Man kann jetzt auch normale Youtube links angeben.

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #include <WindowsConstants.au3>
    #include <Inet.au3>
    #include <String.au3>
    #include <GUIConstantsEx.au3>
    #include <IE.au3>

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

    HotKeySet("{ESC}", "_exit")

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

    _IEErrorHandlerRegister()
    $oIE = ObjCreate("Shell.Explorer.2")
    GUICreate("Film", 470, 450, Default, Default, $WS_POPUP)
    $Input1 = GUICtrlCreateInput("", 16, 415, 435, 21)
    GUISetBkColor(0xFFFFFF)
    $GUIActiveX = GUICtrlCreateObj($oIE, 1, 1, 470, 400)
    GUISetState(@SW_SHOW)

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

    _Navigate("http://de.youtube.com/watch?v=Sl8gK9B5qnY&feature=related")

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    FileDelete(@TempDir & "Youtube.htm")
    Exit
    EndSwitch

    If (WinActive("Film")) AND (_IsPressed("0D")) then
    If GUICtrlRead($Input1) <> "" Then
    _Navigate(GUICtrlRead($Input1))
    GUICtrlSetData($Input1, "")
    EndIf
    EndIf
    WEnd

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

    Func _Navigate($Url)
    $text = _StringBetween(_INetGetSource($Url), "var embedUrl = '", "&hl=de&fs=1';")
    If IsArray($text) Then $Url = $text[0]
    FileDelete(@TempDir & "Youtube.htm")
    FileWrite(@TempDir & "Youtube.htm", '<object width="425" height="349"><param name="movie" value="' & $Url & '&hl=de&fs=1&rel=0&color1=0x3a3a3a&color2=0x999999&border=1"></param><param name="allowFullScreen" value="true"></param><embed src="' & $Url & '&hl=de&fs=1&rel=0&color1=0x3a3a3a&color2=0x999999&border=1" type="application/x-shockwave-flash" allowfullscreen="true" width="425" height="349"></embed></object>')
    _IENavigate($oIE, @TempDir & "Youtube.htm")
    EndFunc

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

    Func _exit()
    Exit
    EndFunc

    [/autoit]

    Beenden Esc.
    In das Input kommen Links, mit ENTER bestätigen.

    Grafisch total hässlich aber egal :D .

    Das Standartvideo das im Moment ausgewählt ist ist bestimmt auch interessant :D. Irgendso eine GuteNacht geschcihte, naja, hab einfach irgendwas geholt.