VBS Téléchargement application [Résolu]

[JFMichaud]

Bonjour à tous voilà mon idée de base...

Télécharger un ensemble d'application (exe) provenant de lien html vers un répertoire X de mon ordi...Actuellement j'ai un script qui le fait mais auquel j'aimerais modifier quelques éléments.

De base le script

Code :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
HTTPDownload "http://le_lien_du.exe" , "C:\le\répertoire\Logiciels\1\"
 
Sub HTTPDownload( myURL, myPath )
 
' Written by Rob van der Woude
' http://www.robvanderwoude.com
 
    ' Standard housekeeping
    Dim i, objFile, objFSO, objHTTP, strFile, strMsg
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
    ' Create a File System Object
    Set objFSO = CreateObject( "Scripting.FileSystemObject" )
 
    ' Check if the specified target file or folder exists,
    ' and build the fully qualified path of the target file
    If objFSO.FolderExists( myPath ) Then
        strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) )
    ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then
        strFile = myPath
    Else
        WScript.Echo "ERROR: Target folder not found."
        Exit Sub
    End If
 
    ' Create or open the target file
    Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )
 
    ' Create an HTTP object
    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
 
    ' Download the specified URL
    objHTTP.Open "GET", myURL, False
    objHTTP.Send
 
    ' Write the downloaded byte stream to the target file
    For i = 1 To LenB( objHTTP.ResponseBody )
        objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
    Next
 
    ' Close the target file
    objFile.Close( )
End Sub

J'aimerais pouvoir télécharger plusieurs application à partir du même script...mais les télécharger dans des répertoires différents
De même j'aimerais que si l'application est présente, (il y a comparaison des 2 versions) l'exécution passe à la suivante...

petite info je remarque que le processus wscript.exe ne se termine pas après exécution...

Pour le moment je lance plusieurs .vbs (pour chacune des application que je veux télécharger) à l'aide d'un batch et à la fin du batch je kill le process mais encore ça ne fonctionne pas

Bon voilà...je tente de visualiser le tout mais aimerait avoir des idées

Merci

[hackoofr]

il vous suffit d’appeler la fonction dans le même script
HTTPDownload( myURL, myPath )

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
HTTPDownload "http://le_lien1_du.exe" , "C:\le\répertoire\Logiciels\1\"
HTTPDownload "http://le_lien2_du.exe" , "C:\le\répertoire\Logiciels\2\"
HTTPDownload "http://le_lien3_du.exe" , "C:\le\répertoire\Logiciels\3\"
HTTPDownload "http://le_lien4_du.exe" , "C:\le\répertoire\Logiciels\4\"
.
.
.
HTTPDownload "http://le_lien(N)_du.exe" , "C:\le\répertoire\Logiciels\(N)\"
 
Sub HTTPDownload( myURL, myPath )
.
.
.
End Sub

[JFMichaud]

Merci hackoofr je tente de faire ainsi mais depuis le script ne fait que télécharger les 2 premières applications et rien ne se passe par la suite...

Une idée? Pourtant lancé seul (juste en indiquant la troisième application) le téléchargement se fait bien pour cette application?

[JFMichaud]

Bon étant donné que je n'ai pas trouvé la raison pour que le download passe le second fichier...je me suis tournée vers l'appl http://www.gnu.org/software/wget/

Qui en ligne de commande sous batch me permet de télécharger ce que je veux

Merci

[hackoofr]

Envoyé par JFMichaud

Bon étant donné que je n'ai pas trouvé la raison pour que le download passe le second fichier...je me suis tournée vers l'appl http://www.gnu.org/software/wget/
Qui en ligne de commande sous batch me permet de télécharger ce que je veux
Merci

C'est quoi comme version que vous avez téléchargé ?
pouvez-vous nous communiquer un lien direct de la dernière version de Wget et c'est quoi comme script Batch que vous avez fait ?

[tsuji]

Le rendement de HTTPDownload est probablement daté - en tout cas, il n'est pas très apt d'utilser scripting.filesystemobject de traiter un stream a priori binaire.

Voici ce que j'écrirais.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
'Ici myPath doit être un fichier destiné avec le parcours si nécessaire
Sub HTTPDownload( myURL, myPath )
    dim oxmlhttp, ostream
    set oxmlhttp=createobject("msxml2.xmlhttp")
    with oxmlhttp
        .open "GET", myURL, False
        .send
        if .status = 200 then
            set ostream=createobject("adodb.stream")
            ostream.type=1    'adTypeText=2, adTypeBinary=1
            'ostream.mode=3    'adModeReadWrite=3
            ostream.open 
            ostream.write .responseBody
            ostream.SaveToFile myPath,2    'adSaveCreateOverWrite=2, without, error if file exists.
            ostream.close
            set ostream=nothing
        end if
    end with
    set oxmlhttp=nothing
End Sub

Avec responseBody binaire proprement travaillé, je ne vois pas la raison de soucis du numbre magique de limite 2 qui semble suggéré pour une raison obscure.

[JFMichaud]

Envoyé par hackoofr

C'est quoi comme version que vous avez téléchargé ?
pouvez-vous nous communiquer un lien direct de la dernière version de Wget et c'est quoi comme script Batch que vous avez fait ?

WGet http://opensourcepack.blogspot.com/2...r-windows.html lien direct de téléchargement http://dl.dropbox.com/u/2554170/wget-1.13.1.exe

Et la version que j'ai utilisé à la base http://gnuwin32.sourceforge.net/packages/wget.htm

et mon batch...

Code :

1
2
3
4
5
 
...
pause
cd "C:\Program Files (x86)\GnuWin32\bin"
wget --append-output=C:\Users\blabla\Desktop\storage\Logiciels\File.txt -P C:\Users\blabla\Desktop\storage\Logiciels\7Zip http://downloads.sourceforge.net/sevenzip/7z920.exe

Simple batch file dos

J'ai un autre script qui vérifie la version téléchargé avec celle en production (autre répertoire) et copie celle qui est la plus récente par après le output est placé dans un fichier log et le tout est affiché a l'écran avec les différences s'il y a.

[JamesWhite66]

Bonjour,



désolé pour la réponse tardive, mais il me semble plus simple,
d' utiliser un logiciel gratuit dont la mission principale est justement,
d' effectuer les tâches suivantes :

- Base de données , des différents logiciels à tenir à jour,
- Fonctionnement , en tache de fond,
- Programmation avancée grâce aux RegEx,
- Comparaison, des versions, etc ...

> Ce Logiciel Est Trouvable Sur Sourceforge.Net
> Et Il Se Nomme KETARIN.