Jump to content
Sign in to follow this  
Mosquitos

Online Radio

Recommended Posts

I have here a great script from kjactive but i wanna choose between radiostations in place of 1 station if you know what i meane :">

This is the code:

#include <GUIConstants.au3>
HotKeySet("ESC", "Exits")
$dll = DLLOpen("cwebpage.dll"); load in the Html library
If $dll = -1 then; check library load okay status or bust
    MsgBox(48,"ERROR...","CWebpage library failed...")
    Exit
EndIf

$Main = GUICreate("Radio",200,200,0,0)
DLLCall($dll,"long","EmbedBrowserObject","hwnd",$Main); attach the browser object from library

DLLCall($dll,"long","DisplayHTMLStr","hwnd",$Main,"str",HtmlCode('C:\Donna.jpg')); display the html code in the browser control
GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = -3
        ExitLoop
    EndSelect
WEnd
Exits()

Func HtmlCode($picture)
$a = '<BODY scroll=no><IMG style="position:absolute;left:0;top:0;width:111%;height:96%;cursor:none" src="' & $picture & '">'
$a = $a & '<OBJECT classid="clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6" ID=APlayer style="position:absolute;left:0;top:80%;width:111%;height:41">'
Return $a & '<param name=AutoStart value=0><param name=uiMode value=mini><param name=URL value="mms://streampower.belgacom.be/donnahigh"></OBJECT></BODY>'
EndFunc

Func Exits()
    DLLCall($dll,"long","UnEmbedBrowserObject","hwnd",$Main)
    DLLClose($dll)
Exit
EndFunc

Can i do it with URL value=&URL ?

This is the site where you can find the online radiostations Online Radio

Edited by Mosquitos

Sapiente vince, rex, noli vincere ferro!

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...