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)
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    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]