[VBscript] Récupération de fichier internet

Résolu/Fermé
malhsi Messages postés 5 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 28 décembre 2009 - 23 juil. 2008 à 19:49
 furious - 8 nov. 2011 à 13:56
Bonjour,

J'ai récupéré un script (vbscript) qui permet d'enregistrer en local et automatiquement un fichier à partir d'internet.
Trouvé ici : https://www.generation-nt.com/reponses/telecharger-un-fichier-a-partir-d-une-adresse-http-entraide-137853.html
Le script :

<script type="text/vbscript">
Function Objet_XMLHTTP
On Error Resume Next
Set Objet_XMLHTTP=CreateObject("Microsoft.XMLHTTP")
Set Objet_XMLHTTP=CreateObject("MSXML2.XMLHTTP")
On Error GoTo 0
End Function

Sub Importer_Fichier_Du_Web(source,destination)
Set HTTP=Objet_XMLHTTP
With HTTP
.Open "GET",source,False
.Send
End With
With CreateObject("ADODB.Stream")
.Type=1
.Open
.Write HTTP.ResponseBody
.SaveToFile destination,2
.Close
End With
Set HTTP=nothing
End Sub

Sub Bouton_onClick
   Importer_Fichier_Du_Web "http://url/fichier.txt","fichierlocal.txt"
End Sub
</script>

<span id="Bouton" name="Bouton">Bouton</span>


Je l'utilise dans un fichier .hta. En cliquant sur "Bouton", le fichier se télécharge sans problème.
Par contre, si je modifie le fichier fichier.txt sur le serveur et reclique sur "Bouton", le fichier téléchargé n'est pas modifié. Il reste identique à celui téléchargé la première fois.
Si je comprends bien (mais je suis assez limité à ce niveau), le flux de données reste dans le cache du navigateur.
J'ai essayé en bloquant le cache dans les balises META : pas mieux.

Si vous savez ce qu'il faut que je modifie dans le script ou si vous avez d'autres solutions, je suis preneur.

Merci.
A voir également:

3 réponses

malhsi Messages postés 5 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 28 décembre 2009
24 juil. 2008 à 01:55
C'est résolu en utilisant wget.exe qui télécharge mon fichier dans sa bonne version.

Bonne nuit.
0
Ce script à été piraté sur un site. J'en suis meme l'auteur alors svp eviter de voler le travail des autres
0
Effectivement c'est moins facile quand on ne sait pas a quoi il sert exactement.
0