[R] Créer PAGE.HTM affichant des images du Web
Posté : lun. 09 févr. 2009 01:18
Boujour,
je viens de réaliser loadimg.exe qui crée une PAGE.HTM affichant
des images successives sur une page d'Internet selon les entrées InputBox()
- choix du dossier pour créer la PAGE.HTM ... ex: votre Bureau)
- url de la page ... ex: http://francette.gros.free.fr/pages/carnaval2008/VUES/
- de l'image ... ex: 1
- à l'image ... ex: 120
- extension ... ex: .jpg
- format d'indexation
entrez 1 pour 1, 2, 14, 145, etc.
entrez 2 pour 001, 002, 014, 145, etc; puis ### pour cette option
la page PAGE.HTM sera créée sur votre bureau et si vous la lancez, elle affichera les images du site
http://francette.gros.free.fr/pages/car ... ES/001.jpg ... à 120.jpg
loadimg.exe s'ouvre directement par http://louviou2.net/autoit/loadimg.exe
avec mes excuses, j'avais oublié de montrer le code de loadimg.au3
Bonne utilisation
je viens de réaliser loadimg.exe qui crée une PAGE.HTM affichant
des images successives sur une page d'Internet selon les entrées InputBox()
- choix du dossier pour créer la PAGE.HTM ... ex: votre Bureau)
- url de la page ... ex: http://francette.gros.free.fr/pages/carnaval2008/VUES/
- de l'image ... ex: 1
- à l'image ... ex: 120
- extension ... ex: .jpg
- format d'indexation
entrez 1 pour 1, 2, 14, 145, etc.
entrez 2 pour 001, 002, 014, 145, etc; puis ### pour cette option
la page PAGE.HTM sera créée sur votre bureau et si vous la lancez, elle affichera les images du site
http://francette.gros.free.fr/pages/car ... ES/001.jpg ... à 120.jpg
loadimg.exe s'ouvre directement par http://louviou2.net/autoit/loadimg.exe
Code : Tout sélectionner
; avec corrections par Yogui ... merci
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Local $gui, $background, $pic, $basti_stay, $msg,$a, $b, $c, $f, $w, $z, $format, $i, $file
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
$gui = GUICreate("Background", 970, 970, 0, 0)
GUISetBkColor(0x006666)
$background = GUICtrlCreateObj($oIE, 10, 10, 950, 950)
GUISetState() ;Show GUI
_IENavigate ($oIE, "http://louviou2.net/autoit/lune.jpg") ;à remplacer par l'url de votre image
MsgBox(4096, "Bienvenue", "Salutations de louviou", 10)
; Waiting for user to close the window
GUISetState(@SW_SHOW)
$var = FileSelectFolder("Choisissez un dossier pour créer PAGE.HTML.","",4,"",$gui)
$adresse = InputBox("Adresse avant l'index","Entrez l'url sans le n° de l'image ... ex: http://monsite.net/vues/", "url avant n° d'index","", 400, 120, 270, 440,'',$gui)
$a = InputBox($var & "\PAGE.HTM", "de l'image ?", "n°","", 400, 120, 270, 440,'',$gui)
$b = InputBox($var & "\PAGE.HTM", "à l'image ?", "n°", "", 400, 120, 270, 440,'',$gui)
$f = $b
$ext = InputBox($var & "\PAGE.HTM", "entrez l'extension précédée d'un point", "exemple: .jpg ou .gif ou .bmp, etc.", "", 400, 120, 270, 440,'',$gui)
$c = InputBox($var & "\PAGE.HTM", "1 pour 1, 34, 571, 2305, etc. ou 2 pour des zéros devant les chiffres", "Entrez 1 ou 2", "", 400, 120, 270, 440,'',$gui)
If $c = 2 then
$format = InputBox($var & "\PAGE.HTM", "entrez le format d'indexation", "ex: ### ou ##", "", 400, 120, 270, 440,'',$gui)
$f = StringLen($format)
EndIf
$file = FileOpen($var & "\PAGE.HTM", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.", $WS_EX_MDICHILD, $gui)
Exit
EndIf
FileWrite($file, "<HTML><BODY BGCOLOR=TEAL><center>")
For $i = $a to $b
FileWrite($file, Chr(10))
FileWrite($file, Chr(13))
FileWrite($file, "<img src=")
FileWrite($file, $adresse)
$w = StringLen($i)
$z = Number($f - $w)
If ($c = 2 AND $z > 0) then
For $n = 1 to $z
FileWrite($file, "0")
Next
EndIf
FileWrite($file, String($i))
FileWrite($file, $ext)
FileWrite($file, " border=1>")
Next
FileWrite($file, Chr(10))
FileWrite($file, Chr(13))
FileWrite($file, "</BODY></HTML>")
FileClose($file)
MsgBox(0, "PAGE.HTM est créée dans", $var & "\PAGE.HTM ....... Aurevoir", $WS_EX_MDICHILD, $gui)
Exit
Bonne utilisation