![[HELP REQUEST!!]](https://www.elitepvpers.com/forum/iconimages/autoit/help-request_ltr.gif){kind=small}
[HELP REQUEST!!]
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.
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
