Bonjour,
Encore une fois je me tourne vers ce super forum car je coince depuis 2 jours sur ce problème.....
Je souhaite récupérer le code ce cette page: https://www.amazon.fr/dp/B004GZTRG8?...osi&th=1&psc=1
Le but du jeu c'est d'ensuite parser le code pour extraire la description du livre.
voici mon code, avec d'autres explications dessous:
Avec httprequette et httpdonneresultat je récupère bien du code mais il est incomplet !
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 sResumeadresse est une chaîne="https://www.amazon.fr/dp/B004GZTRG8?.....osi&th=1&psc=1" SI sResumeadresse <>"" ALORS HTM_1=sResumeadresse AX_1>>Silent=True AX_1>>Navigate(sResumeadresse) sTest est une chaîne= AX_1..Valeur //LanceAppliAssociée(sResumeadresse) HTTPDestination("C:\BiblioNet\resume.htm") SI HTTPRequête(sResumeadresse) ALORS // Temporisation(200) sresume= fChargeTexte("C:\BiblioNet\resume.htm") pos1, pos2, pos3, longueur sont des entiers système pos1 =Position(sresume,"bookDesc_override_CSS")//+21 pos2 =Position(sresume,"justify",pos1)+9 pos3 =Position(sresume,"</p>",pos2) longueur = pos3-pos2 sRecherche est une chaîne =Milieu(sresume,pos2,longueur) Info(sTest) FIN FIN
J'ai essayé de le charger dans un champ HTML, la page se charge mais est incomplète. La description ne s'affiche pas alors que si on le charge dans firefox on a bien tout!
Je me suis rendu compte que cela vient du fait que Windev utilise Internet explorer 7 (si je me trompe pas...) comme moteur web. Avec IE11 la page s'affiche apparemment correctement aussi.
J'ai essayé les solutions pour utiliser le moteur le plus récent soit IE11 en ajoutant le code suivant au lancement de mon projet
Mais cela ne change rien. Je ne suis pas sûr que ce code marche....(je suis sous W10 et mes clients sont sur des versions allant de XP à W10.....)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 // permet d'utiliser la version la plus récente d'IE installée sur le poste SI PAS RegistreExiste("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION") ALORS RegistreCréeClé("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION") FIN RegistreEcrit("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", fExtraitChemin(ExeInfo(exeNom), fFichier + fExtension),"0",RegistreTypeEntier)
Ensuite j'ai essayé d'utilisé un active X "Microsoft Web Browser"....
Alors là, la page s'affiche correctement mais j'ai au moins 10 erreurs de script pour lesquelles il faut cliquer sur oui ou non... sans que ça change grand chose (du moins de visible pour ce qui m'intéresse)
Donc voici mes questions:
1) Le code que j'utilise pour forcer l'utilisation d'IE11 est-il valable et comment le tester pour en être sûr ?
2) Y a-t-il moyen de ne pas avoir les erreur de scripts à l'écran... j'ai essayé :mais sans succès !
Code : Sélectionner tout - Visualiser dans une fenêtre à part AX_1>>Silent=True
3) Peut on faire autrement ? J'ai vu des trucs pour insérer chrome... mais juste pour ça c'est un peu compliqué non ?
Merci beaucoup pour votre aide et vos pistes de réflexion....
En attendant vos réponse je vais essayer de trouver une solution pour savoir si j'arrive bien à forcer l'utilisation d'IE11....
Partager