Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[VBS] Problème pour télécharger résultat d'une page web
Auteur Message
Répondre en citant
Message [VBS] Problème pour télécharger résultat d'une page web 
Salut :p

Ça fait un ptit bout de temps que je suis pas venu ici mais j'ai un petit problème sur un code en VBS pour télécharger une page.

En fait ça se passe comme ça :
1-je remplis un formulaire sur un site via le VBS (marche niquel)
2-j'attends que le JavaScript affiche la réponse sur le site (Là je bloque)
3-Je met le code html de la page dans un fichier

Voilà le code :

Code:
@echo off
set message=https://www.youtube.com/watch?v=bayHmBO5f7Y

(echo On Error Resume Next
echo set ie = CreateObject^("InternetExplorer.Application"^)
echo Set WshShell = WScript.CreateObject^("WScript.Shell"^)
echo ie.Navigate "http://offliberty.com/"
echo ie.Visible = false
echo Do While not ie.ReadyState = 4
echo WScript.Sleep^(100^)
echo Loop
echo ie.document.All.tags^("input"^).Item^("track"^).Value = "%message%"
echo ie.Document.All.Tags^("input"^).item^("button"^).Click

echo WScript.Sleep^(10000^)

echo Const TriStateTrue = -1 ' Pour la prise en charge de l'Unicode
echo URL = "http://offliberty.com/"
echo Titre = "Extraction du Code Source de " ^& URL
echo Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo DO WHILE ie.busy
echo WScript.Sleep^(100^)
echo LOOP
echo DataHTML = ie.document.documentElement.innerHTML
echo strFileHTML = "return.html"
echo Set objHTMLFile = objFSO.OpenTextFile^(strFileHTML, 2, True, TriStateTrue^)
echo objHTMLFile.WriteLine^(DataHTML^)
echo objHTMLFile.Close
echo ie.Quit
echo Set ie=Nothing
echo wscript.Quit
)>send.vbs

send.vbs
del send.vbs
start /max return.html



J'aimerais en fait à la place du echo WScript.Sleep^(10000^) mettre un code pour attendre que dans le code HTML apparaisse Save link as Comme ça je sais que la page a finit de traiter la demande Wink

Merci de bien vouloir m'aider, voir même optimiser mon code en VBS, suis pas un super pro avec ce langage Laughing !




______________________________________________________
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch