Bonjour a tous, j'utilise la fonction en dessous qui va dans des xml. Cependant cela va trop vite sur certain site, en allant jusqu'à 10 requêtes par seconde. Comment limiter ce nombre?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Public Function GetCodeSource(sURL) Set Lapage_en_HTML = CreateObject("Microsoft.XMLHTTP") 'instancie l'object Lapage_en_HTML.Open "GET", sURL 'ouvre l'url dans l'object Lapage_en_HTML.send Do: DoEvents: Loop While Lapage_en_HTML.readyState <> 4 'attendre que la page soit chargée GetCodeSource = Lapage_en_HTML.responseText End Function
Partager