La Blague Du Jour
Page 1 sur 1
La Blague Du Jour
- Code:
rem ============================================================================
rem La Blague Du Jour
rem ============================================================================
label close
dim url$,d$,f$,src$
width 0,800 : height 0,550
dll_on "kgf" : ' <---------------------------------- Adapter le chemin !!!
d$ = dir_current$
src$ = "http://jour.toutimages"
src$ = src$ + ".com/blague_jour.htm"
Creer_HTML("Blague.html")
Creer_Browser()
on_close 0,close
end
rem ============================================================================
SUB Creer_HTML(htm$)
dim_local q$ : q$ = chr$(34)
f$ = d$ + "/" + htm$
file_open_write 999,f$
file_writeln 999,"<center>
file_writeln 999,"<IFRAME src=" + q$ + src$ + q$ + "height=" +q$ +"400" +q$ + " width=" + q$ + "620" + q$
file_writeln 999,"Marginwidth=" + q$ + "0" + q$ + " marginheight=" + q$ + "0" + " hspace=" + q$ + "0" + q$
file_writeln 999," vspace=" + q$ + "0" + q$ + " frameborder=" + q$ + "0" + q$
file_writeln 999,"scroling=" + q$ + "no" + q$ + "></IFRAME>"
file_writeln 999,"</center>"
file_close 999
url$ = f$
END_SUB
rem ============================================================================
SUB Creer_Browser()
dim_local WB%,res%
WB% = dll_call1("WB_Create",handle(0))
res% = dll_call5("WB_Locate",WB%,20,20,width_client(0)-50,height_client(0)-50)
res% = dll_call2("WB_Url",WB%,adr(url$))
END_SUB
rem ============================================================================
Close:
file_delete f$
terminate
return
rem ===========================================================================
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Lun 1 Jan - 0:25 par Papydall-Admin
» A ceux qui célèbre Noël, bonnes fêtes
Dim 24 Déc - 10:49 par Papydall-Admin
» Joyeux Noël et Bonne Année
Ven 8 Déc - 1:34 par Papydall-Admin
» Planets of the Solar System : Tilts and Spins
Lun 20 Mar - 15:43 par Papydall-Admin
» Bonne Année 2023
Sam 31 Déc - 1:39 par Papydall-Admin
» Fractals - Mandelbrot
Ven 21 Aoû - 22:51 par Papydall-Admin
» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
Mer 21 Nov - 1:08 par Papydall-Admin
» Balises {USER...}
Lun 19 Nov - 22:12 par Papydall-Admin
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin