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 45 46 47 48 49 50 51 52 53 54
|
' --------------------------------------------------------------------------------------------
' Script de recuperation du fichier XXX sur le serveur web YYY
' --------------------------------------------------------------------------------------------
' Lors de l'utlisation de ce programme trois requettes sont effectues :
' 1- requette POST avec parametres d'authentification
' 2-requette GET automatique sur indication de redirection du serveur lors de la reponse à la premiere requette POST
' 3-requette Get pour telechargement du fichier XXX.zip
' Instancie le control ActiveX HttpRequest et Http
set req = CreateObject("Chilkat.HttpRequest")
set http = CreateObject("Chilkat.Http")
'Demande d'utilisation du proxy
http.ProxyDomain = "nomdomain"
http.ProxyPort = port
'Demande de récupérer et garder le coockie en memoire pour une utilisation automatique
http.CookieDir = "memory"
http.SaveCookies = 1
' Any string unlocks the component for the 1st 30-days. Alors la ??????
success = http.UnlockComponent("NETTHEHttp_TuAh5mvcNN87")
If (success <> 1) Then
MsgBox http.LastErrorText
WScript.Quit
End If
' Definit les parametres de la requette POST
req.UsePost
req.Path = "/login.aspx"
req.AddParam "email","ludo_93@gmail.fr"
req.AddParam "password","password"
req.AddParam "Submit=",""
' Parametres de connection
domain = "http://www.monsite.com"
port = 80
ssl = 1
'Envoi de la requette POST avec ses parametres
Set resp = http.SynchronousRequest(domain,port,ssl,req)
'Téléchargement du fichier iPrize dans fichier Performance_BAS.zip
success = http.Download("http://www.monsite/fichiers/","XXX.zip")
If (success <> 1) Then
MsgBox http.LastErrorText
Else
' MsgBox "Télechargement du fichier XXX.zip terminé!"
End If |
Partager