MetalPlayer 1.3

1. offizieller Beitrag

    hallooo :whistling:
    Da es irgendwie schon ein MUSS ist, ein Internetradio/Fernseher zu machen hab ich mich auch schon daran versucht :)
    Nichts großes, weil ich es üben wollte, aber vielleicht braucht es ja einer:)
    ein Player der Sender des Bereiches METAL abspielt.
    die Seite dazu ist: https://autoit.de/www.chroniX.com

    Es gibt 3 Sender:
    Aggression: Metalcore, Death Metal... Bands wie As I Lay Dying, Scar Symmetry, Soulfly... Bisschen was 'härteres'
    Metal: Metal, bischen Metalcore...Bands: All that Remains, ...
    GRID: Softmetal bis Rock...Bands: Papa Roach, Metallica, ...
    Wer diese Musik hört, sollte es sich mal ansehen :)
    Ein Kumpel von mir liebt mich dafür :D, da die Musik genau der seinen entspricht. :D
    Meiner auch^^
    aber jetzt zum Prog/Script:

    Wichtig: Sender brauchen etwas zum laden, also nicht wundern, wenn nicht gleich alles abgespielt wird :D


    naja viel Spaß beim testen :)
    mfg Tim


    NEUE VERSION (30.11.09)
    zeigt die aktuellen Titel der Sender in der Gui an. (gerade kleinen Bug beim anzeigen von aktuellem Sender behoben)
    autoit.de/wcf/attachment/6796/
    danke nochmals an GTASpider! ^^

    [autoit]


    While $Life = True
    $nMSG = BrainGetMsg()
    Switch $nMSG
    Case $Idea
    _Convert_Idea2Code()
    EndSwitch
    WEnd

    [/autoit]

    3 Mal editiert, zuletzt von GE IXI TIM (30. November 2009 um 19:37)

    joa also mir fällt da auch nix besseres ein als das aus dem html text auszulesen und dann halt anzuzeigen
    aber vlt gibts ja doch was andere... :rock: :rock:
    hmm existiert da auch nen quelltext ? und wo hast du due ganzen WindowsMediaP. funcs her ?

    Einmal editiert, zuletzt von No0oB (29. November 2009 um 05:30)

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Res_Comment=MetalPlayer. Plays from "www.chronixradio.com". Metalcore, Metal, DeathCore, ...
    #AutoIt3Wrapper_Res_Description=MetalPlayer
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.1
    #AutoIt3Wrapper_Res_LegalCopyright=Tim Dellmann / Chronix.com
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <String.au3>
    #include <Inet.au3>
    #include <IE.au3>
    $metal = "http://www.chronixradio.com/cxrmetal/listen/listen_htmlview.asx"
    $arrgesion = "http://www.chronixradio.com/chronixaggression/listen/listen_htmlview.asx"
    $grit = "http://www.chronixradio.com/cxrgrit/listen/listen_htmlview.asx"
    $metalnow = "http://www.chronixradio.com/cxrmetal/playing.html"
    $arrgesionnow = "http://www.chronixradio.com/chronixaggression/playing.html"
    $gritnow = "http://www.chronixradio.com/cxrgrit/playing.html"
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Chronix-Player by Tim Dellmann", 308, 345, 482, 199)
    $oWMP = ObjCreate("WMPlayer.OCX.7")
    $wmp = GUICtrlCreateObj($oWMP, 0, 0, 304, 204)
    $load = GUICtrlCreateButton("Sender laden", 0, 280, 75, 25, 0)
    $ListView1 = GUICtrlCreateList("", 0, 208, 306, 70)
    GUICtrlSetData(-1, "Chronix. METAL|Chronix. AGGRESSION|Chronix. GRIT")
    $stop = GUICtrlCreateButton("Stoppen", 0, 312, 75, 25, 0)
    $Slider1 = GUICtrlCreateSlider(80, 312, 222, 21)
    $whoPlay = GUICtrlCreateButton("Wer spielt?", 80, 280, 75, 25, 0)
    $Label1 = GUICtrlCreateLabel("50%", 280, 288, 24, 17)
    $Label2 = GUICtrlCreateLabel("READY", 160, 288, 57, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUICtrlSetData($Slider1, "50%")
    With $oWMP
    .URL = ("")
    .fullScreen = True
    .windowlessVideo = True
    .stretchToFit = True
    .enableContextMenu = True
    ;.enabled = True
    .uiMode = "none"; none / mini full
    .settings.autostart = True
    .settings.mute = True
    .settings.volume = 100; 0 - 100
    .settings.Balance = 0; -100 to 100
    EndWith
    Global $oMediaPlayControl = $oWMP.Controls
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Slider1
    $oWMP.settings.volume=GUiCtrlRead($Slider1)
    GUICtrlSetData($Label1, GUICtrlRead($Slider1))
    Case $load
    $x = GUICtrlRead($ListView1)
    GUICtrlSetData($Label2, "LOADING")
    if $x = "Chronix. METAL" Then $oWMP.URL = ($metal)
    if $x = "Chronix. AGGRESSION" Then $oWMP.URL = ($arrgesion)
    if $x = "Chronix. GRIT" Then $oWMP.URL = ($grit)
    $oMediaPlayControl.play
    GUICtrlSetData($label2, "PLAYING")
    Case $whoPlay
    $x = GUICtrlRead($ListView1)
    if $x = "Chronix. METAL" Then ShellExecute($metalnow)
    if $x = "Chronix. AGGRESSION" Then ShellExecute($arrgesionnow)
    if $x = "Chronix. GRIT" Then ShellExecute($gritnow)
    Case $stop
    $oMediaPlayControl.stop
    GUICtrlSetData($label2, "READY")
    EndSwitch
    WEnd

    [/autoit]

    Ach du Schande :D ich hab vergessen den SourceCode in die .rar zu packen :D
    also: hier das script! :thumbup:
    Jetzt weiß ich auch wieso niemand getestet hat 8o

    @ No0oB:
    was meinst du mit mediaplayer funcs?

    [autoit]


    While $Life = True
    $nMSG = BrainGetMsg()
    Switch $nMSG
    Case $Idea
    _Convert_Idea2Code()
    EndSwitch
    WEnd

    [/autoit]
    • Offizieller Beitrag

    Hallo

    Aktuellen Titel kannst du so herrausfinden:

    Spoiler anzeigen
    [autoit]

    #include <Inet.au3>

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

    $sSource = _INetGetSource("http://www.chronixradio.com/cxrgrit/playing.html") ;in der Beta durch InetRead ersetzen!
    $aRegEx = StringRegExp($sSource,'<font size="2" color="#CFCFCF"><small>(.*?)</small></font>', 3)

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

    MsgBox(0,"Current Playing:",$aRegEx[0])

    [/autoit]

    Gruß
    Spider

    @ GTA Spider:
    Danke dir :thumbup: Das mit StringRegExp hab ich mir schon fast gedacht, aber ich kann das (noch) nicht. :) vielen dank :)
    Techmix: danke :) dank GTASpider kan nich ne neue Version machen, die die aktuellen Lieder anzeigt :)

    [autoit]


    While $Life = True
    $nMSG = BrainGetMsg()
    Switch $nMSG
    Case $Idea
    _Convert_Idea2Code()
    EndSwitch
    WEnd

    [/autoit]