Problème d'accès à un site avec InternetOpenUrl

Signaler
-
Bonjour,

j'ai développé il y a 10 ans un programme en VB6 qui accède au site Boursorama. Ce programme s'est arrêté de fonctionner le jour ou ils ont modifié le site.

Ce programme fonctionnait correctement sur XP - Vista et Windows 8

Problème: l'instruction InternetOpenUrl renvoie maintenant la valeur 0 lorsqu'elle tourne sur Windows XP (je ne sais pas ce qu'elle retourne sur Vista et Windows 8)

AdresseUrl = "http://www.boursorama.com/indices/indices.phtml"  

LongOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
If LongOpen = 0 Then Call erreur("Bourse1M4", 1)

LongOpenUrl = InternetOpenUrl(LongOpen, AdresseUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
If LongOpenUrl = 0 Then Fin du traitement


Avez la solution pour rêgler mon problème

Par avance Merci.