Planning mensuel

' Télécharger une page de planning mensuel (pour impression)
LABEL Downl, Voir
DIM i%,opta,optm,u$,iv$,ms$(12),a$,m$,rtm$,url$,fr$
u$="http://icalendrier.fr/media/imprimer/aaaa/mensuel/mmmm/calendrier-mmmm-aaaa.png"
iv$ = "C:\Progra~2\Irfanv~1\i_view32.exe": ' <<<<<<<<<< IRFAN_VIEW <<<<<<<<<<<<<
rtm$ = "C:\TEMP": ' répertoire de stockage des images téléchargées

ms$(1)="janvier":ms$(2)="fevrier":ms$(3)="mars":ms$(4)="avril":ms$(5)="mai"
ms$(6)="juin":ms$(7)="juillet":ms$(8)="aout":ms$(9)="septembre":ms$(10)="octobre"
ms$(11)="novembre":ms$(12)="decembre": ' sans les accents

WIDTH 0,200: HEIGHT 0,325: BORDER_SMALL 0: FONT_BOLD 0
COLOR 0,190,255,255
CAPTION 0, "  -  PLANNING  MENSUEL  -"
i% = 10: opta = i%
CONTAINER_OPTION i%: TOP i%,3: LEFT i%,5: HEIGHT i%,260: WIDTH i%,70
    CAPTION i%," ANNÉE : ": COLOR i%,255,255,180
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,18: LEFT i%,10: CAPTION i%,"2014"
MARK_ON i%
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2015"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2016"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2017"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2018"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2019"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2020"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2021"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2022"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2023"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2024"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2025"

i% = 30: optm = i%
CONTAINER_OPTION i%: TOP i%,TOP(opta): LEFT i%,LEFT(opta)+WIDTH(opta)+3: HEIGHT i%,HEIGHT(opta)
    WIDTH i%,100: CAPTION i%," MOIS : ": COLOR i%,255,255,180
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,18: LEFT i%,10: CAPTION i%,"Janvier"
MARK_ON i%
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Février"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Mars"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Avril"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Mai"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Juin"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Juillet"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Août"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Septembre"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Octobre"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Novembre"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Décembre"

BUTTON 50: TOP 50,TOP(opta)+HEIGHT(opta)+2: LEFT 50,0: WIDTH 50,80: CAPTION 50,"Télécharger"
ON_CLICK 50,Downl
BUTTON 51: TOP 51,TOP(50): LEFT 51,LEFT(50)+WIDTH(50): WIDTH 51,100
CAPTION 51,"Voir/Imprimer": ON_CLICK 51,Voir

END
' ==============================================================================
Downl:
FOR i% = opta+1 TO opta+12
    IF CHECKED(i%) = 1 THEN EXIT_FOR
NEXT i%
i% = i%-opta: a$ = STR$(i%+2013): ' année choisie
FOR i% = optm+1 TO optm+12
    IF CHECKED(i%) = 1 THEN EXIT_FOR
NEXT i%
i% = i%-optm: m$ = ms$(i%): ' mois choisi (et non pas choix moisi)
url$ = u$
' mise en place de l'année dans l'url
i% = INSTR(url$,"aaaa"): url$ = LEFT$(url$,i%-1)+a$+RIGHT_POS$(url$,i%+4)
i% = INSTR(url$,"aaaa"): url$ = LEFT$(url$,i%-1)+a$+RIGHT_POS$(url$,i%+4)
' mise en place du mois dans l'url
i% = INSTR(url$,"mmmm"): url$ = LEFT$(url$,i%-1)+m$+RIGHT_POS$(url$,i%+4)
i% = INSTR(url$,"mmmm"): url$ = LEFT$(url$,i%-1)+m$+RIGHT_POS$(url$,i%+4)
fr$ = rtm$+a$+m$+".png"
WebLoadFic(url$,fr$)
IF FILE_EXISTS(fr$) = 0
    MESSAGE "          Échec !"+CHR$(10)+"(année non encore implémentée)"
END_IF
RETURN
' ==============================================================================
Voir:
EXECUTE_WAIT iv$ + " " + fr$
RETURN
' ==============================================================================
SUB WebLoadFic(url$,fr$)
' Téléchargement d'un fichier web donné par son url -> fr$
' (affichage d'une fenêtre noire temporaire jusqu'à la fin de l'opération).
DIM_LOCAL q$,fvb$: fvb$ = "Z:\Download.vbs": q$ = CHR$(34)
FILE_OPEN_WRITE 9,fvb$
FILE_WRITELN 9,"strFileURL = "+q$+url$+q$
FILE_WRITELN 9,"strHDLocation = "+q$+fr$+q$
FILE_WRITELN 9,"Set objXMLHTTP = CreateObject("+q$+"MSXML2.XMLHTTP"+q$+")"
FILE_WRITELN 9,"objXMLHTTP.open "+q$+"GET"+q$+", strFileURL, false"
FILE_WRITELN 9,"objXMLHTTP.send()"
FILE_WRITELN 9,"If objXMLHTTP.Status = 200 Then"
FILE_WRITELN 9,"Set objADOStream = CreateObject("+q$+"ADODB.Stream"+q$+")"
FILE_WRITELN 9,"objADOStream.Open"
FILE_WRITELN 9,"objADOStream.Type = 1"
FILE_WRITELN 9,"objADOStream.Write objXMLHTTP.ResponseBody"
FILE_WRITELN 9,"objADOStream.Position = 0"
FILE_WRITELN 9,"Set objFSO = Createobject("+q$+"Scripting.FileSystemObject"+q$+")"
FILE_WRITELN 9,"If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation"
FILE_WRITELN 9,"Set objFSO = Nothing"
FILE_WRITELN 9,"objADOStream.SaveToFile strHDLocation"
FILE_WRITELN 9,"objADOStream.Close"
FILE_WRITELN 9,"Set objADOStream = Nothing"
FILE_WRITELN 9,"End if"
FILE_WRITELN 9,"Set objXMLHTTP = Nothing"
FILE_CLOSE 9
EXECUTE_WAIT "cscript.exe " + fvb$
FILE_DELETE fvb$
END_SUB
' ==============================================================================