Jukebox : Serge Reggiani

rem ============================================================================
rem                   Jukebox
rem ============================================================================
rem  Je tiens à remercier Marlou12 pour son beau travail
rem ============================================================================
label terminer
dim f$
full_space 0 : color 0,0,0,255 : caption 0,"Serge Reggiani"
Alpha 10 : top 10,10 : left 10,100 : font_bold 10 : font_size 10,24 : font_color 10,0,255,255
caption 10,"Veuillez patienter, chargement en cours ... ... Pour sortir cliquez sur ce cadre bleu"
Alpha 20 : top 20,height(0)-80 : left 20,200 : font_bold 20 : font_size 20,24 : font_color 20,0,255,255

on_click 0,terminer
dll_on "kgf.dll" : ' Adapter le chemin de la DLL
 
f$ = "http://www.animsite.fr/site/marlene10/jukebox/jukebox.swf"
HTML_In_PANORAMIC(F$,70,50,width(0)-200,height(0)-200)
caption 20,"Cliquez sur ON, puis sur A ... J... Pour arrêter, cliquez sur OFF"
end
rem ============================================================================
SUB HTML_In_PANORAMIC(Flash$,xo,yo,larg,haut)
    dim_local hnd%, res%, url$, q$, WB1%
    q$ = chr$(34)
    file_open_write 9999,"flash.html"
    file_writeln 9999,"<embed src='"+Flash$+"'"+q$+" width="+q$+str$(larg)+q$+" height="+q$+str$(haut)+q$+">"
    file_close 9999
    hnd% = handle(0)
    url$ = "file://" + dir_current$ + "/flash.html"
    WB1% = dll_call1("WB_Create",hnd%)
    res% = dll_call5("WB_Locate",WB1%,xo,yo,larg+50,haut+50)
    res% = dll_call2("WB_Url",WB1%,adr(url$))
    file_delete "flash.html"
END_SUB
rem ============================================================================
Terminer:
    terminate
rem ============================================================================