[AHK] Radio System (Open Source)

Lukaz · 12. Januar 2017

Hey,

Ich habe damals einen Keybinder für einen Reallife Server geschrieben, welchen ich jedoch nicht mehr Supporte daher Release ich alle halbwegs nützlichen Funktionen wie dieses Radio System.

[tabmenu]

[tab='Infos', 'http://puu.sh/kDyWL/e251c7d7aa.png']
Das Radio System läuft über Windows Media Player
die Funktionen kann man in Hotkeys einbinden z.B.

RadioAus()
RadioPlus()
RadioMinus()
RadioSender("http://s.sunset-radio.com:14200/;stream", "Sunset Radio Hands Up")

Vorschaubild

[tab='Autohotkey Exe', 'https://puu.sh/tjsoZ/76e629b872.png']

[tab='Autohotkey Script', 'http://puu.sh/kDyQI/27913d4ccc.png']
Variablen des Radios:

Code

Radio := 0
RadioVolume := 20
RadioVolumeFix := 0
RadioSender := "Keiner"

Der Gui:

Code

Gui, Font, cWhite


Gui, Add, Picture, x0 y0 w765 h500, Hintergrund.png
Gui, Add, GroupBox, x12 y39 w150 h340,
Gui, Add, GroupBox, x612 y39 w150 h340, 
Gui, Add, GroupBox, x282 y189 w210 h70, 	
Gui, Add, Progress, x132 y445 w500 h20 vRadioProgress, %RadioVolume%		
Gui, Add, Text, x12 y29 w110 h20 +BackgroundTrans, Sunset Radio:
Gui, Add, Text, x612 y29 w100 h20 +BackgroundTrans, Top 8 Sender:
Gui, Add, Text, x282 y179 w100 h20 +BackgroundTrans, Informationen:
Gui, Add, Text, x292 y210 w200 h20 +BackgroundTrans vRadioSender, Radio Sender: %RadioSender%
Gui, Add, Text, x292 y235 w180 h20 +BackgroundTrans vRadioVolume, Radio Volume: %RadioVolume%
Gui, Add, Button, x282 y270 w210 h40 gRadioAus, Radio aus
Gui, Add, Button, x642 y435 w40 h30 gRadioPlus, +
Gui, Add, Button, x82 y435 w40 h30 gRadioMinus, -
Gui, Add, Button, x22 y59 w130 h30 gRadioHandsUp, Hands Up
Gui, Add, Button, x22 y99 w130 h30 gRadioMain, Main - Charts
Gui, Add, Button, x22 y139 w130 h30 gRadioRock, Rock
Gui, Add, Button, x22 y179 w130 h30 gRadioDiscofox, Discofox
Gui, Add, Button, x22 y219 w130 h30 gRadioClub, Club
Gui, Add, Button, x22 y259 w130 h30 gRadioHarder, Harder
Gui, Add, Button, x22 y299 w130 h30 gRadioBlack, Black
Gui, Add, Button, x22 y339 w130 h30 gRadioEurodance, Eurodance
Gui, Add, Button, x622 y59 w130 h30 gRadioDasDing, Das Ding
Gui, Add, Button, x622 y99 w130 h30 gRadioBigFm, Big Fm
Gui, Add, Button, x622 y179 w130 h30 gRadioBlackBeatsFM, BlackBeats FM
Gui, Add, Button, x622 y259 w130 h30 gRadioILOVERADIO, I LOVE RADIO
Gui, Add, Button, x622 y219 w130 h30 gRadioTechnoBase.FM, TechnoBase.FM
Gui, Add, Button, x622 y139 w130 h30 gRadioRadio7, Radio 7
Gui, Add, Button, x622 y299 w130 h30 gRadio1LIVE, 1LIVE
Gui, Add, Button, x622 y339 w130 h30 gRadioSWR3, SWR3
Gui, Add, Text, x675 y469 w480 h210 +BackgroundTrans, Radio by Lukas
Gui, Show, x370 y188 h489 w765, Radio by Lukas

Alles anzeigen

Die Radio Funktionen:

Code

RadioAus:
RadioAus()
return


RadioPlus:
RadioPlus()
return


RadioMinus:
RadioMinus()
return


RadioHandsUp:
RadioSender("http://s.sunset-radio.com:14200/;stream", "Sunset Radio Hands Up")
return


RadioMain:
RadioSender("http://s.sunset-radio.com:14000/;stream", "Sunset Radio Main - Charts")
return


RadioRock:
RadioSender("http://s.sunset-radio.com:14100/;stream", "Sunset Radio Rock")
return


RadioDiscofox:
RadioSender("http://s.sunset-radio.com:14120/;stream", "Sunset Radio Discofox")
return


RadioClub:
RadioSender("http://s.sunset-radio.com:14060/;stream", "Sunset Radio Club")
return


RadioHarder:
RadioSender("http://s.sunset-radio.com:14080/;stream", "Sunset Radio Harder")
return


RadioBlack:
RadioSender("http://s.sunset-radio.com:14180/;stream", "Sunset Radio Black")
return


RadioEurodance:
RadioSender("http://s.sunset-radio.com:14020/;stream", "Sunset Radio Eurodance")
return


RadioDasDing:
RadioSender("http://mp3-live.dasding.de/dasding_m.m3u", "Das Ding")
return


RadioBigFm:
RadioSender("http://217.151.152.245/bigfm-mp3-96", "Big Fm")
return


RadioBlackBeatsFM:
RadioSender("http://stream6.blackbeats.fm/", "BlackBeats Fm")
return


RadioILOVERADIO:
RadioSender("http://stream12.iloveradio.de/iloveradio1-aac.mp3", "I LOVE RADIO")
return


RadioTechnoBase.FM:
RadioSender("http://listen.technobase.fm/dsl.asx", "TechnoBase.Fm")
return


RadioRadio7:
RadioSender("http://snd.radio-z.net:8000/Radio-Z", "Radio 7")
return


Radio1LIVE:
RadioSender("http://1live.akacast.akamaistream.net/7/706/119434/v1/gnl.akacast.akamaistream.net/1live", "1LIVE")
return


RadioSWR3:
RadioSender("http://swr-mp3-s-swr3.akacast.akamaistream.net/7/203/137136/v1/gnl.akacast.akamaistream.net/swr-mp3-s-swr3", "SWR3")
return


RadioAus()
{
   	global Radio
	global RadioSender
	global RadioVolume
	global RadioProgress
	global RadioVolumeFix
	if(Radio == 1)
	{
		Radio := 0
		RadioVolume := 20
		RadioVolumeFix := 0
		GuiControl,,RadioProgress, 20
       		GuiControl, , RadioSender, Radio Sender: Keiner
       		RadioSender := "Keiner"
       		Process, Close, wmplayer.exe
	}
	return
}


RadioPlus()
{
	global Radio
	global RadioVolume
	global RadioProgress


	if(Radio == 1)
	{
        	if(RadioVolume < 100)
		{
            		RadioVolume += 10
	    		DetectHiddenWindows, on
            		PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
	        	GuiControl,,RadioProgress, %RadioVolume%
	       		GuiControl,,RadioVolume, Radio Volume: %RadioVolume%
		}
	}
	return
}


RadioMinus()
{
	global Radio
	global RadioVolume
	global RadioProgress


    	if(Radio == 1)
	{
    		if(RadioVolume > 0)
		{
    	    		RadioVolume -= 10
			DetectHiddenWindows, on
    	    		PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
			GuiControl,,RadioProgress, %RadioVolume%
			GuiControl,,RadioVolume, Radio Volume: %RadioVolume%
		}
	}
	return
}


RadioSender(Link, SenderName)
{
    	global Radio
	global RadioSender
	global RadioVolumeFix
	global Farb_Array
	global IngameFarbe1
	global IngameFarbe2
    	Run %A_programfiles%\Windows Media Player\wmplayer.exe  %Link%,, Hide
    	GuiControl, , RadioSender, Radio Sender: %SenderName%
    	RadioSender := "" . SenderName . ""
	if(RadioVolumeFix == 0)
	{
        	CheckRadioVolume()
		RadioVolumeFix := 1
	}
    	Radio := 1
	return
}


CheckRadioVolume()
{
   	Sleep, 2000
   	DetectHiddenWindows, on
   	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
	PostMessage, 0x111, 32815, 0, , ahk_class WMPlayerApp
	PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
  	PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
   	PostMessage, 0x111, 32816, 0, , ahk_class WMPlayerApp
	return
}

Alles anzeigen

Wenn der Keybinder geschlossen wird:

Code

GuiClose:
if(Radio == 1)
{
	Process, Close, wmplayer.exe
}
ExitApp

[/tabmenu]

Gruß:
Lukas

Pseudonyn · 5. März 2017

Hier mal meine Version des kleinen Radio Binders

Danke Lukas nochmal für die Veröffentlichung

Grüße

breadfish.de 12. März 2022