Bonjour,
J’ai un problème qui commence à être un petit peu énervant, je dois faire une procédure d’automatisation de capture d’écran depuis une url. En gros, l’utilisateur saisit une url sur un site et le serveur réalise la capture et la miniaturisation du site renseigné, puis la stocke automatiquement dans un dossier.
J’avais trouvé plusieurs méthode pour faire ca, la première était de confier cette procédure à des sites spécialisé comme thumbshot, mais mon client refuse de décentraliser les applications … la deuxième consistait mettre en place un serveur dédié avec la méthode fourni la : http://www.octopuce.fr/Un-script-lib...-forme-d-image , mais trop couteux et complexe pour une tache aussi simple.
La derniere consiste à utiliser un logiciel nommé SiteShoter, realisant l’operation shouaité assez facilement, il suffit de lancer une ligne de commande bien paramétré, et la capture se realise automatiquement.
J’ai donc crée une page web avec un formulaire ou on saisit l’url qui genere un .bat avec tous les parametre qui est sensé realiser la procedure.
C’est à ce moment la que ca bloque, le .bat est bien généré et stocké sur le serveur, mais il ne s’execute pas et la procedure ne marche pas. Comment je peux faire pour que ca marche ?
Voici mon code (les chemins absolu sont absent …)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 <% '************************************************************************************************************************ ' Création et configuration d'un fichier .bat sur le serveur avec les noms et parametres de redimentionnement des images '************************************************************************************************************************ Set fs = CreateObject("Scripting.FileSystemObject") Set objWriteFile = fs.CreateTextFile(server.MapPath("automatique.bat"),true) NomApplication = "CHEMIN ABSOLU\siteShoter.exe" ' adresse de l'application siteshoter NomAdresseDestination ="CHEMIN ABSOLU" url=Request.Form("url") NomFichierDestination =Request.Form("nom") objWriteFile.writeline (""&NomApplication&" /URL "&url&" /Filename "&NomAdresseDestination&""&NomFichierDestination&".jpg /DisableScrollBars 1 /BrowserTimeout 10000 /BrowserWidth 1000 /BrowserHeight 750 /ImageSizePerCent 10") objWriteFile.close Set objWriteFile = Nothing Set fs = Nothing '************************************************************************************* ' Lancer le redimentionnement des images en fonction des paramettres du fichier.bat '************************************************************************************* set wshell=Server.CreateObject("wscript.shell") WShell.Run("cmd CHEMIN ABSOLU\automatique.bat") %> <form action="page.asp?action=ok" method="post"> URL à capturer : <input name="url" type="text" /> <br /> nom <input name="nom" type="text" /> <br /> <input type="submit" name="button" id="button" value="Envoyer" /> </form>
Partager