Sign in to follow this  
Followers 0
Somerset

Streaming Radio Station

4 posts in this topic

I was just curious, and wanted to see if autoit can play a streaming asf file it can. To locate a radio station for online, near you you can find them here athttp://www.radio-locator.com/ Once playing in media player save it as a playlist, then open the play list in notepad or rename it to a text file so you can find the full web link to have autoit play it. Glad i found this out by accident. Ohhhhhh in the script don't put a 1 as a wait until it finishes the file then continue the script. Because it is streaming and won't finish, so other than that i hope it works for you.....

ToolTip ( "Loading...." ,0,0)
SoundPlay ( "http://ccri.eonstreams.com/ccri_oh_dayton_wtue_fm.asf" ,0)
HotKeySet("{ESC}", "Terminate")
ToolTip ( "ESC key to Exit --- Playing Rock Music: WTUE FM" ,0,0)
While 1
    Sleep(0x000001)
WEnd
Func Terminate()
    Exit 0
EndFunc

 

Spoiler

shoot_zpsfd329d66.png
dontbelieveeverythingyouthink_zps0e1e900

Madness is the first step to understanding...

Share this post


Link to post
Share on other sites



Whoa, thats an excellent find. I never knew that either...


FootbaG

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Nicely done, Im using this now. I made this for two stations. Rather slow

Global $Paused
ToolTip ( "Loading...." ,0,0)
SoundPlay ( "http://ccri.eonstreams.com/ccri_ct_hartford_wkss_fm.asf" ,0)
HotKeySet("{ESC}", "Terminate")
ToolTip ( "ESC key to Exit - Playing Music: Kiss 95.7" ,0,0)
HotKeySet("{NUMPADSUB}", "TogglePause")
HotKeySet("{NUMPADADD}", "NextStation")
HotKeySet("{NUMPADENTER}", "Previous")
While 1
    Sleep(0x000001)
WEnd

Func Terminate()
    Exit 0
EndFunc

Func NextStation()
ToolTip ( "Loading...." ,0,0)
SoundPlay ( "http://ccri.eonstreams.com/ccri_ct_hartford_wphh_fm.asf" ,0)
ToolTip ( "ESC key to Exit - Playing Music: KC 101.3" ,0,0)
EndFunc

Func Previous()
ToolTip ( "Loading...." ,0,0)
SoundPlay ( "http://ccri.eonstreams.com/ccri_ct_hartford_wkss_fm.asf" ,0)
ToolTip ( "ESC key to Exit - Playing Music: Kiss 95.7" ,0,0)
EndFunc

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Music is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Edited by Snipz

Once my friend told me that he had found Jesus. I thought to myself, "Woohoo, we're rich!" It turns out he meant something different.Sometimes I just like to lay in my bed and look up at the stars and wonder..where the hell did my roof go?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0