[HELP REQUEST!!]

~~FrEakY.~~ · 05/01/2010, 21:01

Hey, Leite ich bastele schon ne Zeit lang an meinem Browser mit InternetRadio,aber irgendwie will das Teil nich so wie ich... Und ich habe keine Ahnung, wieso nicht ..Vielleicht habt ihr a ne Idee,wieso das nicht geht..
Bitte um schnelle Hilfe
FrEakY.

PHP Code:


			
#RequireAdmin

Const $urlTe = 'http://listen.technobase.fm/tunein-dsl-asx'

Const $urlHt = 'http://listen.housetime.fm/tunein-dsl-asx'

Const $urlHb = 'http://listen.hardbase.fm/tunein-dsl-asx'

Const $urlHhr = 'http://88.191.69.69:80/'

Const $urlTb =  'http://listen.trancebase.fm/tunein-dsl-asx'

Const $urlCt =  'http://listen.coretime.fm/tunein-dsl-asx'

Const $urlAh = 'http://nl2.ah.fm:9000'

Const $urlPg = 'http://88.191.40.72:8010'

Const $urlDt = 'http://88.191.38.140:8014'

Const $urlPt = 'http://88.191.18.242:8000'

Const $urlDnb = 'http://80.237.204.49:8000/'

Const $urlOn = 'http://www.ipmusic.ch/ipmusic.asx'

Const $urlSl = 'http://www.raggakings.net/listen.wax'

Const $urlHs ='http://www.techno4ever.net/t4e/stream/dsl_listen.asx'



$oWMP = ObjCreate ( "WMPLayer.ocx" )

$oWMP.URL = $urlTe 

$oWMP.controls.stop()



Dim $arrStatus[12]

$arrStatus[0] = 'Unbekannt'

$arrStatus[1] = 'Gestoppt'

$arrStatus[2] = 'Pause'

$arrStatus[3] = 'Playing'

$arrStatus[4] = 'ScanForward'

$arrStatus[5] = 'ScanReverse'

$arrStatus[6] = 'Buffering'

$arrStatus[7] = 'Warten'

$arrStatus[8] = 'MediaEnded'

$arrStatus[9] = 'Transitioning'

$arrStatus[10] = 'Bereit'

$arrStatus[11] = 'Wiederverbinden...'



$lastStatus = 0



#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <StaticConstants.au3>

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <IE.au3>

FileInstall("C:\Dokumente und Einstellungen\TheAdmin\Eigene Dateien\Eigene Bilder\3D_873.jpg",@TempDir & "/Browser.jpg")

$Fenster = GUICreate("Webbrowser by JuriD", 801, 700, 192, 125)

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

$object_ctrl = GUICtrlCreateObj($object, 16, 10, 780, 400)

$url_button = GUICtrlCreateButton("Go", 24, 450, 750, 25)

$Input1 = GUICtrlCreateInput("Hier den Link eingeben", 24, 424, 745, 25)

$Pic1 = GUICtrlCreatePic(@TempDir&"/Browser.jpg", 0, 0, 801, 700, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

GUICtrlSetState(-1,$GUI_disable)

$comSender =     GUICtrlCreateCombo    ("",                                              15,  535, 200,  25)

GUICtrlSetData(-1, "Technobase.fm|Housetime.fm|Hardbase.fm|Happy Hardcore Radio|Trancebase.fm|Coretime.fm|Afterhours.fm|Psychedelik (Progressive Trance)|Psychedelik (Dark Psyché)|Psychedelik (Psy Trance)|DNB Radio|ChipTune|REAGGEKINGZ|Techno4Ever", "Technobase.fm")

$lblSender =     GUICtrlCreateLabel    ("Senderliste:",                                  15,  514,  59,  17)

$cmdPlay =         GUICtrlCreateButton    ("Abspielen",                                      13,  560,  93,  23, $WS_GROUP)

$cmdStop =         GUICtrlCreateButton    ("Start",                                         123,  560,  93,  23, $WS_GROUP)

$lblInfo =         GUICtrlCreateLabel    ("Info...",                                         15, 590,  200 )

$lblPlayTime =     GUICtrlCreateLabel    ("00:00:00",                                    170, 590)

$slVolume = GUICtrlCreateSlider                                                        ( 15,620, 200,  25)

GUICtrlSetData(-1,$oWMP.settings.volume())

$Screeny = GUICtrlCreateButton("ScreenShot", 300, 550)

_IENavigate($object,"www.google.de")

GUISetState()



While 1

    $msg = GUIGetMsg()

    Select

    Case $msg = $url_button

        $URL = GUICtrlRead($Input1)

        _IENavigate($Object,$URL )

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $slVolume

            $oWMP.settings.volume = GUICtrlRead($slVolume)

        Case $comSender

            ; Falls grade ein Stream abgespielt wird, wird er gestoppt

            $oWMP.controls.stop()

            Switch GUICtrlRead($comSender)

                Case 'Technobase.fm'

                    $oWMP.URL = $urlTe ;Stellt die Eigenschaft "URL" zu dem Online-Stream

                Case 'Housetime.fm'

                    $oWMP.URL = $urlHt

                Case 'Hardbase.fm'

                    $oWMP.URL = $urlHb

                Case 'Happy Hardcore Radio'

                    $oWMP.URL = $urlHhr

                Case 'Trancebase.fm'

                    $oWMP.URL = $urlTb

                Case 'Coretime.fm'

                    $oWMP.URL = $urlCt

                Case 'Afterhours.fm'

                    $oWMP.URL = $urlAh

                Case 'Psychedelik (Progressive Trance)'

                    $oWMP.URL = $urlPg

                Case 'Psychedelik (Dark Psyché)'

                    $oWMP.URL = $urlDt

                Case 'Psychedelik (Psy Trance)'

                    $oWMP.URL = $urlPt

                Case 'DNB Radio'

                    $oWMP.URL = $urlDnb

                Case 'ChipTune'

                    $oWMP.URL = $urlOn

                Case 'REAGGEKINGZ'

                    $oWMP.URL = $urlSl

                Case 'Techno4Ever'

                    $oWMP.URL = $urlHs

            EndSwitch

            $oWMP.controls.play            ; beim wechseln des Streams soll wieder von vorn gezählt werden.

            $zeit = TimerInit()

        Case $cmdStop

            $oWMP.controls.stop()

        Case $cmdPlay

            $oWMP.controls.play()

        EndSwitch



;Die komische Rechnung hier braucht ihr eigentlich gar nicht verstehen xD Hauptsache sie funktioniert =P

$curStatus = $oWMP.playstate

    If $curStatus <> $lastStatus Then

        GUICtrlSetData($lblInfo, $arrStatus[$curStatus])

        $lastStatus = $curStatus

    EndIf



    ; ist der Status auf gestoppt (1) oder unbekannt (0)

    ; wir die Zeitanzeige wieder auf 0 gesetzt und die

    ; Variable zeit auf 0

    If $curStatus = 1 or $curStatus = 0 Then

        $zeit = 0

        GUICtrlSetData($lblPlayTime,'00:00:00')

    ; Wird der Stream abgespielt und ist die Variable

    ; zeit auf 0, dann setze zeit auf die Init Zeit

    ElseIf $curStatus = 3 And $zeit = 0 Then

        $zeit = TimerInit()

    EndIf



    ; ist zeit größer 0 berechne die Zeit

    ; und gib sie aus

    If $zeit > 0 Then

        ; wandele die Millisekunden in Sekunden um

        $diff = round(round(TimerDiff($zeit),0) / 1000,0)

        ; Berechne Stunden, Minuten und Sekunken und gib sie mit

        ; führenden Nullen aus.

        GUICtrlSetData($lblPlayTime,StringFormat("%02d:%02d:%02d",((($diff-mod($diff,60))/60)-mod(($diff-mod($diff,60))/60,60))/60,mod(($diff-mod($diff,60))/60,60),mod($diff,60)))

    EndIf

exit



$oWMP.URL = "http://listen.technobase.fm/tunein-dsl-asx" ;Stellt die Eigenschaft "URL" zu dem Online-Stream

;von hr3.de ein, sollte automatisch starten



$oWMP.controls.play() ;explizit starten



While $oWMP.playstate > 2 ;solang der Windows Media Player den Stream lädt, buffert, abspielt usw.

    Sleep ( 10 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhört

WEnd    

    Case $msg = $GUI_EVENT_CLOSE

        Exit

    EndSelect

WEnd



$slVolume = GUICtrlCreateSlider                                                        ( 15,130, 200,  25)

GUICtrlSetData(-1,$oWMP.settings.volume()) ; Hier wird der Startwert gelesen, der ist immer 50





GUISetState(@SW_SHOW)



$zeit = 0

Al Kappaccino · 05/02/2010, 09:58

Wennde schon mein Inet Radio script nimmst, setz dich damit auseinander, damit du es auch verstehst!

PHP Code:


			
#RequireAdmin
#Region ### Variablen
Const $urlTe = 'http://listen.technobase.fm/tunein-dsl-asx'
Const $urlHt = 'http://listen.housetime.fm/tunein-dsl-asx'
Const $urlHb = 'http://listen.hardbase.fm/tunein-dsl-asx'
Const $urlHhr = 'http://88.191.69.69:80/'
Const $urlTb =  'http://listen.trancebase.fm/tunein-dsl-asx'
Const $urlCt =  'http://listen.coretime.fm/tunein-dsl-asx'
Const $urlAh = 'http://nl2.ah.fm:9000'
Const $urlPg = 'http://88.191.40.72:8010'
Const $urlDt = 'http://88.191.38.140:8014'
Const $urlPt = 'http://88.191.18.242:8000'
Const $urlDnb = 'http://80.237.204.49:8000/'
Const $urlOn = 'http://www.ipmusic.ch/ipmusic.asx'
Const $urlSl = 'http://www.raggakings.net/listen.wax'
Const $urlHs ='http://www.techno4ever.net/t4e/stream/dsl_listen.asx'

$oWMP = ObjCreate ( "WMPLayer.ocx" )
$oWMP.URL = $urlTe
$oWMP.controls.stop()

Dim $arrStatus[12]
$arrStatus[0] = 'Unbekannt'
$arrStatus[1] = 'Gestoppt'
$arrStatus[2] = 'Pause'
$arrStatus[3] = 'Playing'
$arrStatus[4] = 'ScanForward'
$arrStatus[5] = 'ScanReverse'
$arrStatus[6] = 'Buffering'
$arrStatus[7] = 'Warten'
$arrStatus[8] = 'MediaEnded'
$arrStatus[9] = 'Transitioning'
$arrStatus[10] = 'Bereit'
$arrStatus[11] = 'Wiederverbinden...'

$lastStatus = 0
Global $zeit = 0
#EndRegion ### Variablen

#Region ### Includes
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#EndRegion ### Includes

#Region ### GUI
FileInstall("C:\Dokumente und Einstellungen\TheAdmin\Eigene Dateien\Eigene Bilder\3D_873.jpg",@TempDir & "/Browser.jpg")
$Fenster = GUICreate("Webbrowser by JuriD", 801, 700, 192, 125)
$object = ObjCreate("Shell.Explorer.2")
$object_ctrl = GUICtrlCreateObj($object, 16, 10, 780, 400)
$url_button = GUICtrlCreateButton("Go", 24, 450, 750, 25)
$Input1 = GUICtrlCreateInput("Hier den Link eingeben", 24, 424, 745, 20)
;$Pic1 = GUICtrlCreatePic(@TempDir&"/Browser.jpg", 0, 0, 801, 700, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;GUICtrlSetState(-1,$GUI_disable)
$comSender =     GUICtrlCreateCombo    ("",                                              15,  535, 200,  25)
GUICtrlSetData(-1, "Technobase.fm|Housetime.fm|Hardbase.fm|Happy Hardcore Radio|Trancebase.fm|Coretime.fm|Afterhours.fm|Psychedelik (Progressive Trance)|Psychedelik (Dark Psyché)|Psychedelik (Psy Trance)|DNB Radio|ChipTune|REAGGEKINGZ|Techno4Ever", "Technobase.fm")
$lblSender =     GUICtrlCreateLabel    ("Senderliste:",                                  15,  514,  59,  17)
$cmdPlay =         GUICtrlCreateButton    ("Abspielen",                                      13,  560,  93,  23, $WS_GROUP)
$cmdStop =         GUICtrlCreateButton    ("Stop",                                         123,  560,  93,  23, $WS_GROUP)
$lblInfo =         GUICtrlCreateLabel    ("Info...",                                         15, 590,  200 )
$lblPlayTime =     GUICtrlCreateLabel    ("00:00:00",                                    170, 590)
$slVolume = GUICtrlCreateSlider                                                        ( 15,620, 200,  25)
GUICtrlSetData(-1,$oWMP.settings.volume())
$Screeny = GUICtrlCreateButton("ScreenShot", 300, 550)
_IENavigate($object,"www.google.de")
GUISetState()
#EndRegion ### GUI

HotKeySet("{ENTER}","urlstart")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit 0

        Case $url_button
            urlstart()
        Case $slVolume
            $oWMP.settings.volume = GUICtrlRead($slVolume)
        Case $comSender
            ; Falls grade ein Stream abgespielt wird, wird er gestoppt
            $oWMP.controls.stop()
            Switch GUICtrlRead($comSender)
                Case 'Technobase.fm'
                    $oWMP.URL = $urlTe ;Stellt die Eigenschaft "URL" zu dem Online-Stream
                Case 'Housetime.fm'
                    $oWMP.URL = $urlHt
                Case 'Hardbase.fm'
                    $oWMP.URL = $urlHb
                Case 'Happy Hardcore Radio'
                    $oWMP.URL = $urlHhr
                Case 'Trancebase.fm'
                    $oWMP.URL = $urlTb
                Case 'Coretime.fm'
                    $oWMP.URL = $urlCt
                Case 'Afterhours.fm'
                    $oWMP.URL = $urlAh
                Case 'Psychedelik (Progressive Trance)'
                    $oWMP.URL = $urlPg
                Case 'Psychedelik (Dark Psyché)'
                    $oWMP.URL = $urlDt
                Case 'Psychedelik (Psy Trance)'
                    $oWMP.URL = $urlPt
                Case 'DNB Radio'
                    $oWMP.URL = $urlDnb
            EndSwitch
            $oWMP.controls.play()
            ; beim wechseln des Streams soll wieder von vorn gezählt werden.
            $zeit = TimerInit()
        Case $cmdStop
            $oWMP.controls.stop()
        Case $cmdPlay
            $oWMP.controls.play()
        EndSwitch

;Die komische Rechnung hier braucht ihr eigentlich gar nicht verstehen xD Hauptsache sie funktioniert =P
$curStatus = $oWMP.playstate
    If $curStatus <> $lastStatus Then
        GUICtrlSetData($lblInfo, $arrStatus[$curStatus])
        $lastStatus = $curStatus
    EndIf

    ; ist der Status auf gestoppt (1) oder unbekannt (0)
    ; wir die Zeitanzeige wieder auf 0 gesetzt und die
    ; Variable zeit auf 0
    If $curStatus = 1 or $curStatus = 0 Then
        $zeit = 0
        GUICtrlSetData($lblPlayTime,'00:00:00')
    ; Wird der Stream abgespielt und ist die Variable
    ; zeit auf 0, dann setze zeit auf die Init Zeit
    ElseIf $curStatus = 3 And $zeit = 0 Then
        $zeit = TimerInit()
    EndIf

    ; ist zeit größer 0 berechne die Zeit
    ; und gib sie aus
    If $zeit > 0 Then
        ; wandele die Millisekunden in Sekunden um
        $diff = round(round(TimerDiff($zeit),0) / 1000,0)
        ; Berechne Stunden, Minuten und Sekunken und gib sie mit
        ; führenden Nullen aus.
        GUICtrlSetData($lblPlayTime,StringFormat("%02d:%02d:%02d",((($diff-mod($diff,60))/60)-mod(($diff-mod($diff,60))/60,60))/60,mod(($diff-mod($diff,60))/60,60),mod($diff,60)))
    EndIf
WEnd
exit

$oWMP.URL = "http://listen.technobase.fm/tunein-dsl-asx" ;Stellt die Eigenschaft "URL" zu dem Online-Stream
;von hr3.de ein, sollte automatisch starten

$oWMP.controls.play() ;explizit starten

While $oWMP.playstate > 2 ;solang der Windows Media Player den Stream lädt, buffert, abspielt usw.
    Sleep ( 10 ) ;schlafen, damit AutoIt sich nicht beendet und die Musik aufhört
WEnd

Func urlstart()
        $URL = GUICtrlRead($Input1)
        _IENavigate($Object,$URL )
EndFunc

martin888 · 07/04/2010, 15:23

nice copy past von blogg 4it . lern erstmal programieren