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