Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   

Calendrier Calendrier


La Blague Du Jour

Aller en bas

La Blague Du Jour

Message par Papydall-Admin le Lun 5 Mar - 2:50

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 ===========================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum