MyOnlineTelevision(Jetzt im Projekt bereich)

  • In diesem Thread wird kein Donwload mehr zur verfügung gestellt.
    Bitte Kritik und Co. in diesem Thread:https://autoit.de/index.php?page=Thread&postID=121729
    Und fals ein Mod das hier liest könnte er den Thread bitte löschen?

    Gruß Roggazzz

  • wieso sollte es illegal sein? die verschiedenen Sender bieten diese Livesteam ja offiziel an als .asx(Datei für Windows Media Player zum Abspielen) oder in einem Link format und mein Programm ist sogesehen nur ein Windows Media Player Embedded das die dateien abspielt.

  • ich find dein Programm sch**** :thumbdown:
    Weil ich schon seit 2 Stunden Game.TV gugge :D
    nein richtig hammer, echt^^
    Groooßes Lob^^

    [autoit]


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

    [/autoit]
  • hm habe grade was ausprobiert und es geht ... nimm doch einfach Livestreams von "mega-stream.us" da habe ich Nick gefunden und per _IECreateEmbeeded reingemacht
    also dein script schaut bei mir so aus :

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiStatusBar.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    Global $Form2
    $oWMP = ObjCreate("WMPlayer.OCX")
    $oIE=_IECreateEmbedded()
    #Region ### START Koda GUI section ### Form=
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("MyOnlineTelevision", 779, 513, 192, 154)
    $Button1 = GUICtrlCreateButton("N-TV", 696, 40, 75, 17)
    $Button2 = GUICtrlCreateButton("Stoppen", 236, 464, 75, 25)
    $Button3 = GUICtrlCreateButton("Starten", 340, 464, 75, 25)
    $Button4 = GUICtrlCreateButton("KI.KA", 696, 64, 75, 17)
    $Button5 = GUICtrlCreateButton("Game TV", 696, 88, 75, 17)
    $Button6 = GUICtrlCreateButton("Bahn TV", 696, 112, 75, 17)
    $Button7 = GUICtrlCreateButton("Tennis TV", 696, 136, 75, 17)
    $Button8 = GUICtrlCreateButton("Deluxe Music", 696, 160, 75, 17)
    $Button9 = GUICtrlCreateButton("Nick", 696, 184, 75, 17, 0)
    $Button10 = GUICtrlCreateButton("Nicht belegt", 696, 208, 75, 17, 0)
    $Button11 = GUICtrlCreateButton("Nicht belegt", 696, 232, 75, 17)
    $Button12 = GUICtrlCreateButton("Vollbild Nick", 696, 256, 75, 17)
    $Slider1 = GUICtrlCreateSlider(8, 454, 222, 29)
    $Label1 = GUICtrlCreateLabel("Lautstärke", 16, 436, 54, 17)
    GUICtrlSetData($Slider1,100)
    $wmp = GUICtrlCreateObj($oWMP, 8, 8, 680, 430)
    $ie = GUICtrlCreateObj($oIE,8,8,680,430)
    GUICtrlSetState($ie,@SW_HIDE)
    GUISetState(@SW_SHOW)

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

    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
    $StatusBar1 = _GUICtrlStatusBar_Create($Form1)

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

    #EndRegion ### END Koda GUI section ###
    Global $oMediaPlayControl = $oWMP.Controls

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($Form2)
    GUISetState(@SW_SHOW,$Form1)
    Case $button12
    GUISetState(@SW_HIDE,$Form1)
    $oIE=_IECreateEmbedded()
    $Form2 = GUICreate("MyOnlineTelevision", 1280, 1024, 0, 0)
    $ie = GUICtrlCreateObj($oIE,0,0,1280,1024)
    GUISetState(@SW_SHOW,$Form2)
    _IENavigate($oIE,"http://cdn.livestream.com/grid/PlayerV2.swf?channel=SuperRTL&Fullscreen",0)
    Case $Button9
    GUICtrlSetState($wmp,@SW_HIDE)
    GUICtrlSetState($ie,@SW_SHOW)
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbinde mit Mega-Stream.com")
    If Ping("google.de")=0 Then
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Mega-Stream.com Fehlgeschlagen")
    Else
    _IENavigate($oIE,"http://cdn.livestream.com/grid/PlayerV2.swf?channel=SuperRTL&Fullscreen",0)
    EndIf
    Case $Button8
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Deluxe Music...")
    If Ping("google.de")=0 Then
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Deluxe Music Fehlgeschlagen")
    Else
    $oWMP.url = ("mms://ha-lb01.cdn.eviscomedia.com/deluxemusictv_video")

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

    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
    endif

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

    Case $Button7
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Tennis-TV...")
    If Ping("google.de")=0 Then
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Tennis-TV Fehlgeschlagen")
    Else
    $oWMP.url = ("mms://213.155.73.173/Speedup-TV_Tennis-TV_10")

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

    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
    endif

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

    Case $Button6
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Bahn-TV...")
    If Ping("google.de")=0 Then
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Bahn-TV Fehlgeschlagen")
    Else
    $oWMP.url = ("mms://atkon-webcast1-700k.wm.llnwd.net/atkon_webcast1_700K")

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

    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
    endif
    Case $Button5
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit Game-TV...")
    If Ping("google.de")=0 Then
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit Game-TV Fehlgeschlagen")
    Else
    $oWMP.url = (@ScriptDir&"\Sender\gametv.asx")

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

    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
    endif
    Case $Button4
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit KI.KA...")
    If Ping("google.de")=0 Then
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit KI.KA Fehlgeschlagen")
    Else

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

    $oWMP.url = (@ScriptDir&"\Sender\kika.asx")

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

    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
    endif
    Case $Button2
    $oMediaPlayControl.stop
    Case $Button3
    $oMediaPlayControl.play
    Case $Button1
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbine mit N-TV...")
    If Ping("google.de")=0 Then
    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung mit N-TV Fehlgeschlagen")
    Else
    $oWMP.url = (@ScriptDir&"\Sender\ntv.asx")

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

    _GUICtrlStatusBar_SetText($StatusBar1,"Verbindung wurde erfolgreich hergestellt")
    endif

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

    EndSwitch
    $oWMP.settings.volume=GUiCtrlRead($Slider1)
    WEnd

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


    #cs-----------------------------------------------------------------------------
    Hilfe ist immer gut also nimmt sie an ^^
    #ce-----------------------------------------------------------------------------

    [/autoit]
  • Vielleicht wäre es sinnvoll ein etwas anderes Gui Konzept zu wählen.
    z.B. ein Listview in dem alle Sender aufgelistet werden.
    Dazu den Ordner mit den .asx Dateien und eine .txt für die Direktlinks.
    So kann jeder einfach neue Links einfügen und du musst nicht mit den Buttons darauf reagieren.

  • Ich hab auch mal ein "IP-View" Programm gecodet. Hab da noch so ein paar Sender für dich, wenn du sie mit in dein Programm einbauen möchtest kannste es gern machen :D

    Spoiler anzeigen


    9Live=http://livestream.9live.de/ps9live-live/ps9live1
    Astro Line TV=mms://85.214.87.175/camorakel/
    Donau TV=mms://80.190.139.66/11008bmt/live/3338s04donautv/300.wmv?cid=60535&dummy=.wmv
    Flott Tv=http://www.flott-tv.de/reginalfernsehen/FLOTT_DSL.wmv
    Game Tv=mms://195.182.58.55/gametv1
    IT News=http://sirocool.si.funpic.de/i.TV/TV%20Sender/Deutschland/IT%20News.asx
    Kanal 1=http://www.vm-deutschland.de/vaccount/_kanal1/videos/zeitnah_aktuell.wmv
    Kika=http://apps.nc3.de/clients/kika/player/myplaylist.php?channel=1&programm=1&videoshow=&video=1&ppid=
    Massive Mag=mms://stream01.massive-mag.tv/massivemag_mq
    München TV=mms://d8019013966.w.glx.core006.cdn.streamfarm.net/11008bmt/live/3338s15muenchentv/300.wmv?cid=60919&dummy=.wmv
    Noa4=mms://wt-wm1.wtnet.de/noa4-stream
    Oberfranken TV=mms://80.190.139.66/11008bmt/live/3338s05tvoberfranken/300.wmv?cid=60441&dummy=.wmv
    Oberpfalz TV=mms://80.190.139.66/11008bmt/live/3338s01oberpfalztv/300.wmv?cid=60534&dummy=.wmv
    Phoenix=mms://live.msmedia.zdf.newmedia.nacamar.net/zdf/phoenix_vh.wmv
    Rhein Main=mms://rheinmaintv-livestream.de/rmtv-livestream
    SpeedUp TV=http://www.speedup-tv.com/act_stream.aspx?sender_id=1&OBT_fname=act_stream.htm
    Streetclip TV=mms://85.214.76.233:1234
    TV Aktuell=mms://80.190.139.66/11008bmt/live/3338s13tvaostbayern/300.wmv?cid=60737&dummy=.wmv
    XX Home=http://mfile.akamai.com/53957/live/reflector:36565.asx?bkup=36560&prop=e
    ZDF=http://wstreaming.zdf.de/encoder/livestream6_h.asx