Windows Media Player Object

  • Hallo,
    ich habe erst vor kurzem ein Thread eröffnet, in dem ich wissen wollte ob es irgendwo eine Liste von den Methods und Properties vom Media Player Object gibt.
    In diesem Thread habe ich auch informative Antworten bekommen, aber leider weis ich trotzdem nicht weiter, da ich mich mit den Objekten noch nicht auskenne.

    Also, ich möchte jetzt mal zum testen folgendes Skript erstellen:
    Der Media Player soll über ein Objekt gestartet werden, dann soll ein Lied ca. 5 Sekunden abgespielt werden, danach soll ein anderes Lied abgespielt werden.
    Und dann soll der Player nach ca. 5 Sekunden wieder geschlossen werden.

    Ich hoffe mir kann jemand helfen und vielleicht weiß jemand ein wirklich hilfreiches Tutorial über Objekte.

    Danke schon mal im Voraus.

    Einmal editiert, zuletzt von morfi93 (4. Juli 2008 um 20:05)

  • Ich habe mal selbst herumprobiert:

    Spoiler anzeigen
    [autoit]


    $oWMP = ObjCreate("WMPlayer.OCX")
    $oWMP.openPlayer(@ScriptDir & "\12 Burli.mp3")
    Sleep(5000)
    $oWMP.play(@ScriptDir & "\Basshunter - Boten Anna.wma")
    Sleep(5000)
    $oWMP.close

    [/autoit]

    Kann mir aber bitte jemand sagen warum das nicht funktioniert?
    Ich bekomme folgenden Fehler:

    Spoiler anzeigen


    C:\Users\Michael\AutoIt\Test.au3 (6) : ==> The requested action with this object has failed.:
    $oWMP.play(@ScriptDir & "\Basshunter - Boten Anna.wma")
    $oWMP.play(@ScriptDir & "\Basshunter - Boten Anna.wma")^ ERROR

  • Danke für deine Antwort, ich habe es jetzt mal so verstanden:

    Spoiler anzeigen
    [autoit]


    $oWMP = ObjCreate("WMPlayer.OCX")
    $oWMP.openPlayer(@ScriptDir & "\12 Burli.mp3")
    Sleep(5000)
    $oWMP.URL(@ScriptDir & "\Basshunter - Boten Anna.wma")
    $oWMP.play
    Sleep(5000)
    $oWMP.close

    [/autoit]


    Doch leider funktioniert das wieder nicht.

  • ok, ich habe eine Lösung gefunden, für alle die das interessiert.

    Spoiler anzeigen
    [autoit]


    $oWMP = ObjCreate("WMPlayer.OCX")
    $oWMP.openPlayer(@ScriptDir & "\12 Burli.mp3")
    Sleep(5000)
    $oWMP.openPlayer(@ScriptDir & "\Basshunter - Boten Anna.wma")
    Sleep(5000)
    $oWMP.close

    [/autoit]

    Einmal editiert, zuletzt von morfi93 (4. Juli 2008 um 20:05)

  • so nach etwas längerem tüfteln hab ich mal eine richtige Lösung für das Problem gefunden :)
    ohne openPlayer

    [autoit]

    HotKeySet ("^n", "_next")

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

    Dim $bTrack[2]
    $bTrack[0] = @ScriptDir&"\05.Royal Gigolos - California Dreamin - Rob.mp3"
    $bTrack[1] = @ScriptDir&"\09. Rocco & Bass-T - I Can't Take It.mp3"

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

    $Player = ObjCreate("WMPlayer.OCX")

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

    For $i = 0 To 1
    $oMedia = $Player.newMedia($bTrack[$i])
    $Player.currentPlaylist.appendItem($oMedia)
    Next
    If $Player.controls.isAvailable('Play') Then
    $Player.controls.play()
    Else
    Msgbox(0,"", "")
    EndIf
    While 1
    sleep(100)
    WEnd

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

    Func _next()
    $Player.controls.next()
    EndFunc

    [/autoit]

    Wenn das Skript nicht läuft schließt sich das object und man hört nix -.-

  • WOW, thx.
    Funktioniert echt toll.
    Auf das wäre ich nicht gekommen.

    Riesen THX

  • Ja, das habe ich gemerkt, dass dich das interessiert hat. ^^
    Noch mal ein riesen THX. :thumbup: