sieht echt geil aus
Beiträge von yxyx
-
-
oh ja ich habs gesehen
-
Zitat
Naja, bei Bild 7 ist klar, wers gemacht hat.
Wer
-
Zitat
Ach ja kann jemand diesem Typ der meint der Updater sei ein Virus, mal sagen das es keiner ist?
wer sagt das?
-
soa hier
Spoiler anzeigen
[autoit]Const $urlTe = 'http://listen.technobase.fm/tunein-dsl-asx'
[/autoit] [autoit][/autoit] [autoit]
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/'
;Erstellt ein Windows Media Player Objekt (http://msdn.microsoft.com/en-us/library/bb249680(VS.85).aspx)
$oWMP = ObjCreate ( "WMPLayer.ocx" )
;Default URL:
$oWMP.URL = $urlTe ;Stellt die Eigenschaft "URL" zu dem Online-Stream
$oWMP.controls.stop()
;Array für die einzelnen Zustande (Info)
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...'
; Variable für das Anzeigen der Info, damit ein blinken vermieden wird.Trotzdem blibkt die Sau manchma >-<
$lastStatus = 0#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>; Breite,Höhe, x ,y
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate ("Internet Radio by JakeFrost77", 230, 200, @DesktopWidth/2-250, @DesktopHeight/2-45) ;Durch die Beiden letzten Befehle, wird der Trainer, egal bei welcher Auflösung
; Immer an der selben Stelle geöffnet
Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.
$credit = GUICtrlCreateLabel ("Script by JakeFrost77 =P", 15, 170 )
$comSender = GUICtrlCreateCombo ("", 15, 35, 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", "Technobase.fm")
$lblSender = GUICtrlCreateLabel ("Senderliste:", 15, 8, 59, 17)
$cmdPlay = GUICtrlCreateButton ("Abspielen", 13, 70, 93, 23, $WS_GROUP)
$cmdStop = GUICtrlCreateButton ("Start", 123, 70, 93, 23, $WS_GROUP)
$lblInfo = GUICtrlCreateLabel ("Info...", 15, 100, 200 )
$lblPlayTime = GUICtrlCreateLabel ("00:00:00", 170, 100)
$Radio = TrayCreateMenu("Radiolist")
$radio1 = TrayCreateItem("Technobase.fm", $Radio, -1,1)
$radio2 = TrayCreateItem("Housetime.fm", $Radio, -1,1)
$radio3 = TrayCreateItem("Hardbase.fm", $Radio, -1,1)
$radio4 = TrayCreateItem("Happy Hardcore Radio", $Radio, -1,1)
$radio5 = TrayCreateItem("Coretime.fm", $Radio, -1,1)
$radio6 = TrayCreateItem("Afterhours.fm", $Radio, -1,1); Das ist der Slider für die Lautstärke
[/autoit] [autoit][/autoit] [autoit]
$slVolume = GUICtrlCreateSlider ( 15,130, 200, 25)
GUICtrlSetData(-1,$oWMP.settings.volume()) ; Hier wird der Startwert gelesen, der ist immer 50GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
$zeit = 0
While 1
$nMsg = GUIGetMsg()
$tmsg = TrayGetMsg()
If $tmsg = $Radio Then MsgBox(0, "", "")
Switch $tmsg
Case $radio1
$oWMP.controls.stop()
$oWMP.URL = $urlHt
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio2
$oWMP.controls.stop()
$oWMP.URL = $urlHb
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio3
$oWMP.controls.stop()
$oWMP.URL = $urlHhr
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio4
$oWMP.controls.stop()
$oWMP.URL = $urlTb
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio5
$oWMP.controls.stop()
$oWMP.URL = $urlCt
$oWMP.controls.play()
$zeit = TimerInit()
Case $radio6
$oWMP.controls.stop()
$oWMP.URL = $urlAh
$oWMP.controls.play()
$zeit = TimerInit()
EndSwitchSwitch $nMsg
[/autoit]
Case $GUI_EVENT_CLOSE
Exit
; Hier wird die Lautstärke gesetzt
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 -
lad ma pls den ganzen code hoch
mit so schnipseln zu arbeiten is etwas schwer
edit
[autoit]
[/autoit]
$tmsg = TrayGetMsg()
Select
Case $tmsg = TrayGetMsg()
$oWMP.controls.stop()
Endselectda is n fehler
weil tmsg is ja immer traygetmsg()
-
also die combo haste jetz ja eigenlich schon
also musste nur den code des traymenus einbaun
und das select übernehmen
edit
also so
Spoiler anzeigen
[autoit]$comSender = GUICtrlCreateCombo (" ",15, 35, 200, 25)
[/autoit]
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", "Technobase.fm")
Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.
$Radio = TrayCreateMenu("Radiolist")
$radio1 = TrayCreateItem("Technobase.fm", $Radio, -1,1)
$radio2 = TrayCreateItem("Housetime.fm", $Radio, -1,1)
$radio3 = TrayCreateItem("Hardbase.fm", $Radio, -1,1)
$radio4 = TrayCreateItem("Happy Hardcore Radio", $Radio, -1,1)
$radio5 = TrayCreateItem("Coretime.fm", $Radio, -1,1)
$radio6 = TrayCreateItem("Afterhours.fm", $Radio, -1,1)
While 1
$tmsg = TrayGetMsg()
Select
Case $tmsg = $Radio
$oWMP.controls.stop()
Switch TrayGetMsg()
Case $radio1
$oWMP.URL = $urlHt
Case $radio2
$oWMP.URL = $urlHb
Case $radio3
$oWMP.URL = $urlHhr
Case $radio4
$oWMP.URL = $urlTb
Case $radio5
$oWMP.URL = $urlCt
Case $radio6
$oWMP.URL = $urlAh
EndSwitch
$oWMP.controls.play()
; beim wechseln des Streams soll wieder von vorn gezählt werden.
$zeit = TimerInit()
EndSelect
$nMsg = GUIGetMsg()
Switch $nMsg
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
EndSwitch
$oWMP.controls.play()
$zeit = TimerInit()
Case $cmdStop
$oWMP.controls.stop()
Case $cmdPlay
$oWMP.controls.play()
EndSwitch
WEnd -
ich versteh jetz das problem nicht ganz
welche abfrage
willst du ne combobox im traymenu
-
alle vergangenen tage dieses jahres zusammen rechnen
-
siehe da bild nr 1 holt auf
-
-
Zitat
Naja, das ist auch echt schwierig, voralem lässt sich bild 7 keinem Profilbild zuordnen....
joa schon schade
-
Zitat
Funktioniert wahrscheinlich wegen den 10 Sekunden warten nicht
ne hab mir gedacht das du den link aus dem quelltext auslesn könntest
aba da das alles in php geschrieben is kan man das vergessen
haste schonma über nen free webspace nachgedacht?
da könnsteste dan die datei rauf tun und mit inetget downloaden
-
das müsste doch auch mit
[autoit]Inetget()
[/autoit]gehn oda
EDIThab mir das jetz grad angesehen
wird wohl eher doch nich gehen
-
boa da hab ich echt ka
-
ne oda vll doch
hmm ne
-
ja das sind die besten
-
bin schon gespannt wie die anderen bilder aussehen
-
so updaten pls
-
joa sieht so aus als hätt ich das verwechselt
is ja auch kein wunder bei meinem saustall
ähh ich hab jetz noch ebend beim nooby mode den doodle schuss bearbeitet
und den protect bug gefixt
schick mir ma pls das icon damit ich das compilen kann