Bonjour,

actuellement je possède un script qui se connecte à un site en HTTP (avec authentification : login + mot de passe) afin de récupérer un fichier à télécharger régulièrement.
Or ce script ne fonctionne pas pour un site en HTTPS. J'aimerai ainsi le modifier afin de le rendre plus polyvalent.

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
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
A partir de ce script je n'arrive donc pas à accéder aux site en HTTPS. J'ai alors regarder sur différents sites et j'ai trouvé un utilitaire cURL. Je l'ai téléchargé mais je ne comprend pas tout... Mion premeir problème avec cet utilitaire est qu'il ne se connecte pas au proxy:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
curl --proxy 1.1.1.1:80 monsite
Merci de votre aide.