Discussion :

[Menerlach]

Bonjour à tous et meilleurs vœux

Décidément j'ai du mal avec Webbrowser, je désire récupérer le code d'une page internet, devant les problèmes j'ai réduit le programme à sa plus simple expression:

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
Private Sub Command1_Click()
navigue ("http://www.allocine.fr/film/fichefilm-170209/photos/")
End Sub
Private Sub Command2_Click()
navigue ("http://www.allocine.fr/recherche/?q=%23chef")
End Sub
Private Sub navigue(p$)
    WebBrowser1.Navigate p$
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.object) Then
    DoEvents
    WebBrowser1.Stop
    MsgBox (WebBrowser1.Document.documentelement.innerhtml)
End If
End Sub

Avec la référence et le composant "Microsoft internet controls" en plus des habituels. Vous l'avez déjà déduit du texte du programme il n'y a que trois éléments: une fenêtre Webbrowser1 et deux boutons command1 et command2

Alors voilà les problèmes:
1- Peut-on empêcher le lancement d'une navigation sauvage de Webbrowser au démarrage ?
2- Pourquoi a-t-on une erreur qui n'a rien à voir dès que l'on touche à DoEvents ?
3- Comment faire pour traiter la page du second bouton malgré ses problèmes de script ?

Voilà, merci de votre attention

[Menerlach]

Je n'ai rien résolu mais pour le point 3, au cas où ça intéresserait quelqu'un, j'ai une mesure palliative:

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
Dim compte%
Private Sub Command1_Click()
navigue ("http://www.allocine.fr/film/fichefilm-170209/photos/")
End Sub
Private Sub Command2_Click()
navigue ("http://www.allocine.fr/recherche/?q=%23chef")
End Sub
Private Sub navigue(p$)
    WebBrowser1.Silent = True
    compte% = 1
    WebBrowser1.Navigate p$
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If compte% > 0 Then
    compte% = compte% + 1
    If (pDisp Is WebBrowser1.object) Or compte% > 5 Then
        DoEvents
        WebBrowser1.Stop
        MsgBox (WebBrowser1.Document.documentelement.innerhtml)
        If compte% > 5 Then WebBrowser1.GoHome
        compte% = 0
    End If
End If