Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
 | | Sujet: A l'aide ! :-(( Lun 6 Avr 2020 - 15:42 | |
|  Euh... désolé de vous avoir dérangé dans votre travail... C'était ma séquence "se défouler pendant le confinement !" Bonne journée à tous ! | |
|
papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: A l'aide ! :-(( Lun 6 Avr 2020 - 17:26 | |
| - Spoiler:
- Code:
-
rem ============================================================================
rem Desktop_Cleanup
rem ============================================================================
dim url$
width 0,1200 : height 0,800
url$ = "https://www.youtube.com/watch?v=o_XaJdDqQA0&feature=youtu.be"
' url$ = "https://www.youtube.com/watch?v=RRAhv-Ozmi4"
' url$ = "https://www.youtube.com/watch?v=TbP2zq3Ktjs"
Create_Browser()
end
rem ============================================================================
SUB Create_Browser()
dim_local WB%,res%
dll_on "kgf" : ' <============== indiquer le chemin d'accès à KGF.DLL
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 ============================================================================
| |
|
Calendrier